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This publication describes the Basic Telecommunications 
Access Method (BTAM) available with Release 2 0.6/2 0.7 
and Release 21 of the System/360 Operating System com- 
bined with the Independent Component Release containing 
BTAM support for the IBM 3270 Display System. BTAM 
provides facilities that enable an assembler-language 
programmer to write a teleprocessing control program 
that effects communications at the Read/Write level 
between a System/360 and a variety of computers and 
terminals connected to the System/3 60 over common- 
carrier or private-wire communications networks. , 
BTAM provides similar facilities for the local IBM BTAM 
3270 Display System, BTAM employs both start-stop 
and binary synchronous communications (BSC) tech- 
niques, depending on the type of remote station. 
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edge of System/360 assembler language and data manage- 
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PREFACE 



This publication describes the BTAM 
facilities and macro instructions needed 
to write an application program that 
defines, activates, and controls a 
System/360-based teleprocessing system 
or local 3270 display system or both. 
Effective use of this publication does 
not presuppose a knowledge of 
teleprocessing techniques, but it does 
require a knowledge of the System/360 
assembly language and of data management 
techniques. The publication does not 
contain detailed information on the 
terminal equipment and computers that 
may be used as remote or local stations 
in a BTAM- control led system. For this 
information, see the listing of 
publications below. 

This publication is organized as 
follows: 

9 Teleprocessing and BTAM Concepts 

explains concepts of teleprocessing in 
general, and of BTAM in particular, for 
the reader who is not already familiar 
with these concepts. This chapter also 
defines many terms used throughout the 
publication. 

© Defining the TP System tells how to 
define to the Operating System the 
characteristics of the communications 
lines and equipment comprising the tele- 
processing system. It includes informa- 
tion on the system generation procedure. 
The DCB macro instruction, among others, 
is given here. 

© Buffer Management tells how to construct 
buffer pools and how to obtain and 
release buffers as needed to accommodate 
message data. 

© Code Translation describes the facili- 
ties BTAM provides for accomplishing the 
necessary translation between the trans- 
mission code used on communications 
lines and the internal code of System/ 
360 (EBCDIC) . The ASMTRTAB and TRNSLATE 
macro instructions are explained here. 

© Activating and Deactivating the TP Sys- 
tem tells what procedures to follow in 
initializing the user program prior to 
message transmission, and in deactivat- 
ing the system upon conclusion of mes- 
sage transmission. The OPEN, LOPEN, and 
CLOSE macro instructions appear here. 

® Line Control and Message Transmission 
briefly explains the techniques for con- 
trolling communications lines of various 
kinds (switched, nonswitched, conten- 
tion, polling) , and presents the READ 



and WRITE macro instructions , used in 
message transmission operations. Also 
given are the WAIT, TWAIT, and RESETPL 
macro instructions. 

• Start-Stop Read and Write Operations 
lists the types of Read and Write opera- 
tions applicable to each type of remote 
terminal, and gives the channel program 
for each. 

e BSC Read and Write Operations lists the 
types of Read and Write operations ap- 
plicable to each kind of line configura- 
tion, gives the channel program for 
each, and indicates the types of remote 
stations for which each type can be 
used. 

® Local 3270 Display System Read and 
Write Operations lists the types of 
Read and Write operations applicable 
to the local 3270 display system and 
gives the channel program for each type. 

© Error Recovery Procedures and Error 

Recording explains the BTAM-provided fa- 
cilities for diagnosing and attempting 
to recover from a variety of error con- 
ditions , and for indicating and record- 
ing the occurrence of these errors. 

© On-Line Testing describes the facilities 
available for diagnosing line and equip- 
ment troubles. 

• Sixteen appendixes appear at the back of 
the publication; these show control 
block, information table, macro instruc- 
tion, and error message formats, and 
code charts. 



Before using this manual, the reader 
should be familiar with the following 
publications: 

OS Assembler Language , GC28-6514 

IBM System/360 Operating System: Supervi- 
sor Services and Macro Instructions , 
GC28-6646 

OS Data Management Services Guide , 

GC26-3746 

OS Data Management Macro Instructions , 

GC26-3794 



The BTAM user will also need the level 
of knowledge of information contained in 
the following publications that apply to 
the transmission control units and ter- 
minals in his equipment configuration: 



• Transmission Control Units: 

IBM 2701 Data Adapter Unit, Component 
Description , GA22-6864 

IBM System/360 Component Description: 
IBM 2702 Transmission Control , GA22-6846 

IBM System/360 Component Description: 
IBM 2703 Transmission Control, GA27-2703 



• Start-Stop Terminals: 

IBM 1030 Data Collection System , 

GA24-3018 

IBM 10 50 Reference Digest , GA24-3020 

IBM 10 50 System Summary , GA24-3471 

IBM 10 50 Data Communications System , 

Principles of Operation , GA24-3474 

IBM 10 50 Operator's Guide , GA24-3125 

IBM 1060 Data Communications System , 
GA24-3034 

IBM System/360 Component Description: 
IBM 2260 Display Station; IBM 2848 Dis- 
play Control , GA27-2700 

IBM System/360 Component Description: 
IBM 2265 Display Station; IBM 2846 Dis- 
play Control , GA27-2731 



IBM 2740 Communications Terminal , 
GA24-3403 

IBM 2740/2741 Communications Terminal 
Operator ' s Guide , GA27-3001 

IBM 2760 Optical Image Unit Component 
Description , GA27-3011 

® BSC Stations: 

IBM SRL General Information — Binary 
Synchronous Communications , GA27-3004 



IBM System/3 RPG-II Telecommunications 
Programming Reference Manual , SC21-7507 

IBM 1130 Functional Characteristics , 
GA26-5881 

IBM 1130 Synchronous Communications 
Adapter Subroutines , GC26-3706 

IBM 2770 System Components , GA27-3013 

IBM 2780 Data Transmission Terminal , 
Component Description , GA27-3005 

IBM 2790 Data Communication System, Com- 
ponent Description , GA27-3015 

IBM 2972 Models 8 and 11 General Banking 
Terminal System, Component Description , 
GL27-3020 

IBM 50 Magnetic Data Inscriber, Com- 
ponent Description , GA27-2725 

IBM 3270 Information Display System, 
Component Description , GA27-2749 

IBM 3735 Programmable Buffered Terminal 
Concept and Application , GA27-3043 

IBM 3735 Programmer's Guide, GC30-3001 



• Local 3270 Display System: 

IBM 3270 Information Display System, 
Component Description, GA27-2749 



To assemble, linkage edit and execute a 
BTAM program requires knowledge of the 
information in: 

OS Linkage Editor and Loader , GC28-6538 

OS , System Generation , GC28-6554 
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TELEPROCESSING AND BTAM CONCEPTS 



This chapter explains some fundamental 
aspects of computer-based data communica- 
tions systems (often called teleprocessing 
systems) of the kind accommodated by the 
IBM System/360 Basic Telecommunications 
Access Method (BTAM), and explains some 
basic terminology used throughout the pub- 
lication. As this discussion is intended 
to explain teleprocessing (TP) systems for 
the BTAM user, it does not attempt to 
encompass all kinds of TP systems. Thus, 
while some of the terms defined apply to 
all or most communications systems, other 
terms are limited to communications pro- 
gramming usage, or specifically to BTAM. 
Moreover, concepts and terminology are pre- 
sented from the programmer's viewpoint, 
rather than from the engineer's. 

Viewed in its most elementary aspect, a 
teleprocessing system consists of (1) a 
central computer and associated transmis- 
sion control equipment, (2) remote sta- 
tions, and (3) the electrical circuits 

(called communication lines or data links) 
that connect the remote stations to the 
central computer (See Figure 1) . For the 
purpose of this discussion, the central 
computer equipment comprises the central 
processing unit (CPU) and the equipment by 
which the CPU is connected to the communi- 
cations lines. The generic name of this 
equipment is transmission control unit 

(TCU) . 

The equipment constituting a remote sta- 
tion can be either a terminal or another 
computer* A terminal consists of a control 
unit and one or more input and output 
devices, each of which is called a com- 
ponent of that terminal. Each input device 
and each output device is considered a 
separate component. 

Remote stations in a BTAM-controlled 
teleprocessing system are usually separated 
from the central computer by a distance 
sufficient to require common carrier facil- 
ities and transmission techniques to accom- 
plish communication between central comput- 
er and remote stations. (Communi- 
cations common carriers are companies that 
furnish communications services to the 
public.) However, it is the method of con- 
nection to the central computer, rather 
than the distance from the computer, that 
determines whether a station is classed as 
remote. A station is considered remote if 
it is connected to the central computer 
through a transmission control unit (TCU). 
(A station connected directly to a computer 
data channel is termed a local station. ) 



Except for the local 3270 display system, 
the System/3 60 Operating System version 
of BTAM supports only remote stations, 
which must be connected to the central 
computer by means of an IBM 2701 Data 
Adapter Onit or an IBM 2702 or 2703 
Transmission Control. Local 3270 display 
systems are connected directly to a 
selector, multiplexer, or block multiplexer 
channel of the central computer. 

An operator's console is an input/output 
device whose function is to control the 
operations of the computer. 

The console and its terminal control 
unit make up a terminal that can communic- 
ate with the operating system and with pro- 
blem programs but cannot communicate with 
other terminals. If the operating system 
includes the Multiple Console Support (MCS) 
option, BTAM can communicate with those 
operator's consoles that are connected to 
the central computer through a 2701, 2702, 
or 2703 transmission control unit. 

CATEGORIES OF COMMUNICATIONS LINES 



Communications lines can be categorized by 
several sets of attributes, some of which 
are discussed below. Some attributes have 
significance for the user's BTAM program, 
others need only be specified at system 
generation time, similar to the way in 
which the programmer specifies the attri- 
butes of local I/O devices. 

LINE AND STATION CONFIGURATIONS 



A communications line can be classified 
according to whether it connects two or 
more than two stations, and whether or not 
the electrical connection between the cen- 
tral computer and the station is con- 
tinuously established. Figure 2 illus- 
trates a teleprocessing system comprising 
several types of line and station configu- 
rations, the elements of which are 
explained below. 

A nonswitched line is one that con- 
tinuously links the stations associated 
with it, regardless of the amount of time 
it is in use for message traffic. This 
kind of line is usually furnished by a com- 
mon carrier on a contractual basis, between 
specified locations for a continuous 
period,, or regularly recurring periods, for 
the exclusive use of one customer. 
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A nonswitched line is called point-to- 
point if it connects the computer to a 
single remote station; or multipoint , if 
several remote stations are connected to 
the line. 

A switched line is one in which an 
electrical connection between the central 
computer and a remote station is estab- 
lished by dialing, similar to the manner in 
which ordinary telephone calls are made. 
As in the public telephone network, the 
actual communication path for a given 
transmission is not fixed, but is automati- 
cally selected from a variety of possible 
paths by common carrier switching 
equipment . 

Each remote station on a switched line 
is continuously connected to the common 
carrier switching center (exchange) by an 
access line in the same way as a telephone . 
A telephone number is associated with the 
access line. Similarly, each transmission 
control unit at the central computer is 
connected to the exchange by access lines. 
Usually, a TCU has several access lines, 
each witn its own telephone number; mul- 
tiple access lines permit simultaneous com- 
munication with several remote stations. 
Each connection of an access line at the 
TCU is called a switched line termination, 
or line appearance. 



Common carriers usually charge for 
switched lines on a time-used rather than a 
contractual basis. 



A switched line is always considered 
point-to-point, as communication occurs 
with only one remote station on a line dur- 
ing any call. Switched line connections 
are established by manual dialing, or by 
automatic dialing under program control. 
The dialing operation may be performed at 
the central computer or at the remote sta- 
tion, and the called station answers manu- 
ally or automatically. Not all of these 
options are available for all types of line 
configurations and remote stations. Within 
the limitations imposed by equipment or 
programming, the user chooses between them 
on the basis of the requirements of his 
application. For example, if the applica- 
tion involves collection of batched data 
from a number of remote stations after 
normal working hours, it would be appropri- 
ate to have each station equipped with an 
automatic answering facility and the cen- 
tral computer equipped with the calling fa- 
cility. This would allow the program auto- 
matically to call the unattended stations 
and receive the batched data. 
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DUPLEX VS. HALF-DUPLEX TRANSMISSION 



The term duplex is applied to a communica- 
tions line that can accomodate data trans- 
mission in both directions at once. Half- 
duplex lines permit transmission in only 
one direction at a time. In a BTAM- 
controlled teleprocessing system, data 
transmission is always in half- duplex mode; 
messages are never transmitted in both 
directions at once. 



TRANSMISSION TECHNIQUES 



Transmission technique is the way in which 
data characters are represented on the com- 
munications line. The two techniques used 
by computers and terminals supported by 
BTAM are start-stop and binary synchronous . 



Detailed explanations of these tech- 
niques are not given here, as the program- 
mer need not concern himself with them 
except to specify to BTAM which technique 
is used. , Binary synchronous communication 
(BSC) is Used for high-speed data transmis- 
sion between the central computer and 
another remote computer or high-speed ter- 
minal. Start-stop transmission (also 
called asynchronous transmission) is used 
for data transmission at lower speeds 
between the central computer and remote 
terminals of various types . 



TRANSMISSION CODES 



Data can be represented on a communications 
line by any of several transmission codes. 
The code used on a given line is determined 
by the kind of station or the class of sta- 
tions connected to the line. Some stations 
allow a choice of transmission codes. The 
BTAM programmer must be aware of the code 
used on a line since he must sometimes 
specify, in the form of bit patterns, cer- 
tain data characters to be transmitted by 
BTAM. At the back of this manual are 
charts giving the specific bit patterns of 
the characters contained in the character 
sets of the various transmission codes or 
station types. 



LINE CONTROL 



Just as a computing system, with its vari- 
ety of peripheral input/output equipment, 
requires some means to coordinate the func- 
tioning of the various parts, the variety 



of I/O equipment comprising a teleproces- 
sing system requires a discipline to 
effectively manage the flow of message 
traffic. A significant difference should 
be noted, however. In a conventional com- 
puting system, the various I/O devices are 
at the service of the programmer; the 
requirements of his program and the charac- 
teristics of the data to be processed 
largely determine which input and output 
devices are to be activated and when. 
Moreover, the I/O devices are within reach 
of the computer operator; he can intervene 
when a device malfunctions to correct the 
condition or assign a different device. In 
a teleprocessing system, on the other hand, 
the central computer receives data at ran- 
dom from remote stations, and the operator 
at the central computer cannot exercise^ any 
direct control over remote stations. He 
cannot, for example, correct a malfunction- 
ing device at a remote station. 

A further distinction between a comput- 
ing system and a teleprocessing system lies 
in the handling of errors in data. With 
current techniques for transmitting data 
over long distances, errors are frequently 
introduced into message data by unavoidable 
transient line conditions such as crosstalk 
and lightning strikes. Transmission errors 
occur much less often in a computing sys- 
tem. A discipline for a teleprocessing 
system must accommodate the facility to 
detect transmission errors and, when poss- 
ible, to correct them (as by retransmitting 
the message containing the errors). If the 
error is irrecoverable, its occurrence must 
be signaled to the user program so that 
appropriate action can be taken. 

The scheme of operating procedures and 
signals by which a teleprocessing system is 
controlled is called line control (for 
binary synchronous communications, the term 
data link control is often used) . A line 
control scheme must consider the functional 
characteristics and capabilities of the 
equipment and communication lines composing 
the system, as well as the operational 
requirements of the system. Some specific 
factors that line control must consider 
are: How is contact to be established 
between a sending and a receiving station? 
How is a message to be directed to a spe- 
cific station on a multistation line? What 
if two stations try to send at the same 
time? What should be done if a station 
fails to respond to a message? 

Line control can be classified in two 
ways. The first way is by the transmission 
technique (start-stop or binary synchro- 
nous) that is used for the line under con- 
sideration. With each of these techniques 
is associated a set of control characters 
and rules for their use to effect the 
needed functions. Some of the control 
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characters are used for both start-stop and 
BSC transmission, while others are peculiar 
to one or the other of the transmission 
techniques. The specific line control 
characters are explained under the discus- 
sions of these techniques in the Line Con- 
trol and Message Transmission chapter. 

The second way in which line control can 
be classified is by the communication line 
configuration with which it is used. For 
example, line control for a switched line 
differs from that for a nonswitched line. 

While the general capabilities and func- 
tions of a given line control scheme are 
identified in terms of transmission tech- 
nique and line configuration, individual 
variations in capability and function arise 
from differences in the kind of stations to 
be controlled, and by the presence or 
absence in the stations of certain fea- 
tures. For example, a given line control 
scheme may include the control characters 
needed to indicate occurrence of a trans- 
mission error and to request automatic 
retransmission, but some types of station 
equipment that use that line control scheme 
may not oe capable of error checking or 
automatic retransmission. Generally speak- 
ing, all stations connected to a given line 
must be designed to use the same line con- 
trol scheme, and where a certain capability 
is provided by some stations but not by 
others, the capability cannot be used. 

It is not necessary for the BTAM pro- 
grammer to specify the line control scheme 
to be used for a given line; this informa- 
tion is provided implicitly at system 
generation time, and at assembly time in 
the DCB macro instruction for the line 
group of which the given line is a member. 
The programmer must, however, have a gener- 
al understanding of line control concepts 
in order to correctly structure that por- 
tion of his program that performs message 
transmission. Also, the programmer must 
know the meanings of each of the line con- 
trol characters, as he must regularly 
insert certain of them into output areas 
and arrange his program to look for them in 
input areas. 

Line control functions can be considered 
in two categories: the functions needed to 
establish contact between central computer 
and remote stations, and those needed to 
produce orderly flow of message traffic. 



ESTABLISHING CONTACT 



Contact may be established in several ways, 
depending in part upon the line configura- 
tion involved. 



In some line control schemes one of the 
stations on a point-to-point nonswitched 
line can "bid" for use of the line so that 
it can send a message to the other station. 
Occasionally both stations may simul- 
taneously bid for use of the line. When 
this happens, the stations are said to con- 
tend with each other; a system in which 
this situation can occur is called a con- 
tention system. The line control scheme 
for a contention system must provide some 
means for resolving contention, that is, 
determining which of the contending sta- 
tions is to be given the opportunity to 
send its message. Once one station is 
given control, the other is blocked from 
sending. A contention system is more fre- 
quently used for a point-to-point line con- 
figuration (i.e., involving only two sta- 
tions) than for a multipoint configuration. 
BTAM currently provides contention line 
control only for a point-to-point line. 

The alternative to a contention system 
is a system in which a control station 
(i.e., the central computer) periodically 
contacts each of the remote stations in 
turn and allows it to send any input mes- 
sages it has ready. ("Ready" means that 
the terminal operator is prepared to enter 
data from a keyboard, or that some medium 
such as cards or paper tape has been placed 
in an input device so that the data can be 
transmitted automatically when the control 
station activates that device.) In this 
kind of system, each remote station has a 
unique identifier consisting typically of 
one or two characters, which, when sent 
over the line by the control station, 
causes that remote station, and no other, 
to respond. In a BTAM-controlled tele- 
processing system only the control station, 
that is, the central computer, activates 
stations in this manner. The process of 
contacting in turn each of several stations 
on a line to determine if any has input 
ready is called polling , and the station 
identifiers are called polling characters. 
Often, the first polling character identi- 
fies the station and the second identifies 
a particular component from which data is 
solicited. A system in which stations are 
polled is called a polling system (in con- 
trast to a contention system) . 

Although the term polling taken in its 
conceptual sense implies a nonswitched line 
to which is attached several stations, each 
of which is solicited in turn, the actual 
function of polling (that is, sending a 
station identifier) sometimes applies as 
well to a point-to-point nonswitched line 
or to a switched line. In the case of a 
switched line, the central computer may 
dial the telephone number of the station 
(or the station dials the computer) and 
then the computer transmits the polling 
characters for that station. 
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In this discussion of contention versus 
polling systems, the distinction between 
the two was based on establishing contact 
for the purpose of receiving input data 
from a remote station. The distinction is 
less clear in the case of output data. In 
either a contention or a polling system, 
the central computer must send a station 
identifier to select the specific station 
that is to receive an outgoing message. 
The station identifier in this case is 
called addressing characters (or selection 
characters) , and the process is called ad- 
dressing (or selection) . As with polling 
characters, the first addressing character 
may identify the station and the second, a 
particular component. 



Switched Lines 



It should be understood that, in the case 
of a switched line, the polling and ad- 
dressing functions are independent of 
whether the central computer or a remote 
station initiated the telephone connection. 
Typically, the operator at a remote station 
dials the computer only when the remote 
station has data to send to the computer, 
and the computer would therefore poll the 
station after the line connection is estab- 
lished. Similarly, the central computer 
might dial a remote station only when the 
computer has data to send, and would there- 
fore address (or select) the remote sta- 
tion. These conventions do not always pre- 
vail, however. For example, some applica- 
tions require that certain stations be 
polled after working hours when the sta- 
tions are unattended, with the proper com- 
mon carrier equipment at the station, the 
computer can dial the station, then poll 
the input devices that the operator pre- 
viously loaded with, for example, a deck of 
cards or a paper tape. 

In establishing contact over a switched 
line, two situations should be avoided. 
First, dialing a wrong number can result in 
establishing contact with a station other 
than the one intended. Second, an unau- 
thorized station, if provided with the 
telephone number of the central computer, 
could establish contact (assuming that the 
polling or addressing characters corre- 
sponded to the characters for authorized 
stations) . 



a specific telephone number) , must have an 
identification sequence that it automati- 
cally sends after the line connection has 
been established. The program compares the 
received sequence against a programmer- 
defined sequence. If they match, message 
transmission can proceed; if they differ, 
BTAM signals the fact by setting a flag 
bit, and inhibits message transmission. 
The user's program must check the flag bit 
and take appropriate action, which 
ordinarily will be to break the line 
connection. 

If the remote station is a computer, the 
identification sequence is provided by the 
programmer, and each computer, central and 
remote, can check the identity of the 
other. If the remote station is a termi- 
nal, the sequence is mechanically or elec- 
trically established when the terminal is 
installed, and only the central computer 
can perform the checking function. 

Because the central computer has no way 
of uniquely identifying a station that 
calls it, all polling and addressing char- 
acters and identification sequences must be 
the same for any station that is to be per- 
mitted to call in over a given switched 
line termination. 

The function of identification verifica- 
tion is not applicable to nonswitched 
lines, since the user determines, when the 
TP system is installed, which stations are 
to be connected to a specific nonswitched 
line. 



Terminal Lists 



When establishing contact with a remote 
station, the BTAM program gets the tele- 
phone numbers, polling or addressing char- 
acters, and identification sequences needed 
from a control table called a t erminal 
list , which the programmer generates at 
assembly time using a BTAM macro instruc- 
tion provided for this purpose. The struc- 
ture and contents of the terminal list vary 
according to the kind of line configuration 
and remote station for which the list is 
being generated. (Terminal lists are not 
used for contention systems.) 



To prevent message transmission under 
either of these circumstances, identifica- 
tion verification may be used. (This is an 
optional facility available for certain 
kinds of stations.) In order to use this 
facility, each remote station that is per- 
mitted to call the computer over a specific 
switched line termination (i.e., by calling 



Positive and Negative Responses 



The discussion on how contact is estab- 
lished between stations has up to this 
point considered only the action taken by 
the originating station (i.e., the station 
that initiates the contact) . Before mes- 
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sage transmission can proceed, the respond- 
ing station (the station being contacted) 
must indicate to the originating station 
whether or not it is ready to receive or 
send a message. This indication is gener- 
ally called a response or answerback, and 
is termed positive if the station is ready, 
negative if it is not ready. The specific 
characters used for positive and negative 
responses vary with the type of station and 
the kind of line control (start-stop or 
binary synchronous) under consideration. 



BUFFERING 



Buffering is a data management technique 
often used in conventional (non- 
teleprocessing) applications because, by 
permitting greater utilization of input/ 
output areas it minimizes the amount of 
main storage needed for these areas. This 
advantage is even more evident in a tele- 
processing system, especially one involving 
many communication lines and varying mes- 
sage lengths. 

Each Read or Write operation that 
involves transfer of text data between a 
central computer and a communication line 
requires that an input or output area be 
assigned to that line. However, to per- 
manently assign main storage areas to each 
communication line is wasteful, because 
these areas are idle except during the 
relative small proportion of time that text 
transfer to or from the communication line 
is in progress. 

Because data transfer operations are 
virtually never in progress simultaneously 
on more than a small proportion of the 
lines in a system, only a relatively small 
number of main storage areas are needed to 
service many communication lines. Buffer- 
ing permits these areas to be shared among 
the lines. 

Buffering involves defining a group (or 
pool) of main storage areas, called buf- 
fers; assigning buffers from this pool to 
Read and Write operations as needed; and 
then returning them to the pool when they 
are no longer needed, so they may be used 
for subsequent Read or Write operations. 

When the buffer pool is formed, all buf- 
fers are chained together by placing a link 
field containing the address of the next 
buffer in the chain in the first f ullword 
of each buffer. The link field of the last 
buffer contains zeros. Adjacent buffers in 
a chain are not necessarily in contiguous 
storage locations . 



Buffers can be withdrawn from the pool 
singly or in chains. A buffer control 
block (BCB) associated with the pool always 
contains the address of the first available 
buffer of those remaining in the pool. 
When buffers are returned to the pool they 
are automatically inserted into the chain. 

A control block associated with each 
Read and Write operation contains the 
address of the first buffer in the buffer 
chain that is assigned to the operation, so 
the programmer can always determine the 
address where the received data begins, or 
where the data to be sent must be placed. 

BTAM and the operating system automati- 
cally perform the functions necessary to 
set up a buffer pool when the programmer 
provides certain information such as the 
number of buffers he requires and the 
length of each. (All buffers in a pool 
have the same length) . In addition, BTAM 
can automatically obtain buffers from the 
pool and provide them to the Read or Write 
operation; this is called dynamic buffer 
allocation, or dynamic buffering . If the 
programmer does not specify the use of 
dynamic buffering, the program must request 
the required number of buffers before 
initiating the Read operation. This is 
called programmer buffering . 



DYNAMIC BUFFERING 



As mentioned earlier, buffering in general 
provides a significant increase in main 
storage utilization; dynamic buffering 
further increases the utilization. With 
programmer buffering, the programmer must 
anticipate the length of the message to be 
received; if messages can be of different 
lengths, he must request enough buffers to 
accommodate the longest message that can be 
expected, even if messages of this length 
are infrequently received. Furthermore, 
all buffers are provided in advance of the 
Read operation, even though they will not 
all be used at once. 

When dynamic buffering is used, however, 
buffers are obtained singly as the Read 
operation progresses (by means of program 
controlled interrupts) , and only as many 
buffers as needed are obtained. When BTAM 
detects an ending character in a buffer, it 
does not get any more buffers. Besides 
allowing delayed acquisition of buffers, 
dynamic buffering allows buffers that are 
no longer needed to be progressively 
released to the buffer pool, instead of 
remaining idle until the end of the Read or 
Write operation, and then being released as 
a group. This technique is possible 
because, with dynamic buffering, BTAM sets 
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a completion code in the high-order byte of 
each buffer when the Read or Write opera- 
tion has finished filling or emptying the 
buffer. This completion code is of the 
same kind that is set in the event control 
block (ECB) at the end of the entire Read 
or Write operation. The program can check 
each buffer in turn for this completion 
code and release the buffer when the code 
is set. 

Whether or not dynamic buffering is em- 
ployed, BTAM does not release buffers that 
contain data. The programmer must do this 
himself, and failure to do so will result 
in exhaustion of the buffer supply. Should 
this occur, no more Read or Write opera- 
tions could be performed. 

To summarize, dynamic buffering maxi-' 
mizes buffer utilization by (1) obtaining 
only as many buffers as are needed for an 
operation, (2) obtaining them just before 
actual use, and (3) allowing the programmer 
to release them, one at a time, immediately 
after use. 

Further information on buffering will be 
found in the chapter on Buffer Management. 



CONVENTIONS USED IN THIS PUBLICATION 



To explain the use of BTAM, this publica- 
tion must frequently express functional 
relationships between different parts of a 
teleprocessing system, at varying levels of 
detail. To express these relationships 
clearly and concisely requires that certain 
conventions be observed. 



Station, Computer, Terminal ; The term sta- 
tion, when not qualified, refers to any of 
the computers and terminals, whether cen- 
tral or remote, connected to a BTAM- 
controlled communication line. Central 
computer means the computer in which the 
user program under consideration is run- 
ning. Where the unqualified word Computer 
appears, it means the central computer. 

The general term remote station denotes 
a computer or terminal being controlled by 
the central computer, where the context is 
appropriate, the specific term remote com- 
puter or remote terminal is used. For 
example, in discussions limited to start- 
stop communication lines, the phrase remote 
terminal is generally used since start-stop 
lines do not accommodate remote computers. 
In discussions of binary synchronous lines, 
however, the more general phrase remote 
station is used since BSC lines accommodate 
both computers and terminals. 



Direction of Transmission ; The terms input 
and output are always used relative to the 
computer in which the BTAM program under 
consideration is being run. Thus, whether 
BTAM is running in the central computer or 
a remote computer, input denotes data 
transmission from the remote station, and 
output denotes data transmission from the 
central computer. 

In expressing a specific direction of 
transmission, the sending and receiving 
stations are always identified: as in 
"transmission from central computer to a 
terminal." The phrase "transmission 
between central computer and terminal," on 
the other hand, implies transmission in ei- 
ther direction. 

Data, Messages, Text, Control Characters ; 
The term data is the most general of these 
terms; with respect to communication lines, 
it refers to any sequence of transmission 
code bit patterns, whether the patterns 
represent graphic characters, control char- 
acters, or binary information. Message 
means any sequence of data characters, con- 
sidered as a unit, and includes any control 
characters necessary for transmission on a 
communication line. Text refers to the 
data characters comprising the information 
to be conveyed, such as plain language or 
binary data. Control characters are char- 
acters needed either to control transmis- 
sion on the line (called line control or 
data link control characters) or to acti- 
vate mechanical or formatting functions at 
a station ( end-to-end control characters ). 
Examples of line control characters are 
SOH, STX, and EOT (start of heading, start 
of text, end of transmission) . Examples of 
end-to-end control characters are CR, LF, 
VT, and BEL (Carriage Return, Line Feed, 
Vertical Tab, Bell) . 

Usually, the name of a character and the 
function it performs are the same, e.g., an 
EOT character indicates the end of trans- 
mission. In some cases, however, a partic- 
ular function is effected by a different 
character or character sequence. For 
example, the EOA (end-of -address) character 
is sometimes used as a positive response 
signal, and for certain non-IBM terminals 
the characters FIGS H LTRS are employed as 
an end-of -transmission sequence. Where 
these disparities of function and character 
name occur, the intended meaning is made 
clear. 

The text portion of an output message is 
given by the user to BTAM in a work area or 
buffer. The user also must provide certain 
line control characters in the buffer. 

Read and Write Operations ; The sequence of 
events by which data characters are sent or 
received is called a Read operation for 
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input messages, and a Write operation for 
output messages. 

Each Read or Write operation is produced 
by a READ or WRITE macro instruction issued 
by the user's program (except for some 
operations performed automatically by error 
recovery procedures and on-line testing fa- 
cilities) . The term Read (or Write) opera- 
tion may be qualified at several levels. 
For example, the phrase "Read operation" 
refers to any of several types of Read 
operation; the phrase "Read Initial opera- 
tion" refers to any of several variations 
of Read Initial operations, and so on. 
Where a specific type is intended, the 
corresponding type code is usually given, 



as in "Read Initial Conversational (TIV) 
operation. " 



A Read or Write operation is performed 
by a sequence of commands executed by the 
channel to which the transmission control 
unit (TCU) is connected. These channel 
commands cause the TCU to transmit data 
characters and control signals on the line 
or, conversely, to respond to data charac- 
ters and signals received from the line. 

In discussions of Read and Write opera- 
tions, the term command means a channel 
command, as represented in main storage by 
a channel command word (CCW) . 
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BTAM MACRO INSTRUCTION FORMATS 



BTAM macro instructions, like other operat- 
ing system macros, are written in the 
assembler language, and accordingly are 
subject to the rules given in IBM System/ 
360 Operating System; Assembler Language 
(GC28-6514). BTAM macros, like all 
assembler language macros, are coded in 
this format: 



phrase in small letters one of the values 
shown in the macro instruction format 
chart. 



If a specific character sequence follows 
the equal sign, code the entire operand 
exactly as shown. 



r t t 1 

| Name | Operation | Operands | 

|. — j. + H 

| Symbol or | Macro Name | One or more operands | 
j Blank j j separated by commas. | 
i x j. j 



Code commas and parentheses exactly as 
shown. Unlike positional operands, no 
comma need be coded in place of an omitted 
optional keyword operand. 



The operands are used to specify the fa- 
cilities to be included, services to be 
performed, and various parameters needed by 
BTAM. Operands are coded according to the 
following rules. 



Positional Operands 



Positional operands are shown as either 
small letters or capital letters. Small 
letters describe the kind of information to 
be coded; capital letters indicate the 
exact characters to be coded. 

If the operand is shown as small letters 
(e.g., inarea) , substitute for it one of 
the values shown in the macro instruction 
format chart. Appendix G. 

If the operand is shown as capital let- 
ters (e.g., OPENLST) , code it exactly as 
shown. 

Code commas and parentheses exactly as 
shown. If an optional operand is omitted a 
comma must still appear, except that no 
commas need follow the last operand coded. 



Continuation Lines 



The operand field of a macro instruction 
can be continued on one or more additional 
lines as follows: 



1. Enter a continuation character (any 

nonblank character that is not part of 
the operand coding) in column 72 of 
the line. 



2. Continue the operand field on the next 
line, starting in column 16. All 
columns to the left of column 16 must 
be blank. 

The operand field being continued can be 
coded in one of two ways. You may code the 
operand field through column 71, with no 
blanks, and continue the coding in column 
16 of the next line, or you may truncate 
the operand field at the end of an operand 
(including the comma that follows the 
operand) , then start the next operand in 
column 16 of the next line. 



Keyword Operands 



Keyword operands are shown as a word, in 
capital letters, followed by an equal sign, 
followed by (1) a descriptive word or 
phrase, in small letters, or (2) a specific 
character or sequence of characters , in 
capital letters. 

If small letters follow the equal sign, 
code the keyword and equal sign exactly as 
shown, and substitute for the word or 



Examples : 



Name 



NAME1 



h 

I 
I 
I 
I* 

t- 

|NAME2 



Operation 



OP1 



OP2 



Operand 



OPERANDI , OPERAND2 , OPE 
RAND 3 , OPERANDI , OPERAN 
D5,OPERAND6 THIS IS 
ONE WAY 



T 1 

Col 
72 

+ \ 



-+- 



OPERANDI , OPERAND 2 , 
OPERAND3, THIS IS 
OPERANDI ANOTHER 
WAY 



+ "I 
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Coding Aids 



The symbols [ ] (brackets), { > (braces), 
and ... (ellipsis) are used to aid in 
defining macro instruction formats; they 
are never coded. Their meanings are as 
follows. 



[ 3 



indicates that the enclosed operand is 
optional, or is coded under certain 
conditions. If more than one operand 
is stacked within brackets, as for 
example, 



CLiiAR=NO 
CLEAR=YES 



then one of the items, or none, may be 
coded. If one of the choices is un- 
derlined, the option associated with 
that choice is assumed to be specified 
if that operand is not coded. 



indicates that one of the enclosed 
operands must be coded. 



defines the limits of a syntactical 
unit, where the unit consists of more 
than one operand, e.g., ( {operandone, 
operandtwo} , . . . ) . The { } and ellip- 
sis signifies that the two operands 
may be repeated in sets. The enclos- 
ing parentheses must be coded. 
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DEFINING THE TELEPROCESSING SYSTEM 



Defining a teleprocessing system means 
specifying to BTAM and the operating system 
the characteristics of the communications 
lines, transmission control units, and 
remote stations comprising the system. 
Using this information, the operating sys- 
tem establishes the appropriate program 
interfaces between the user program and 
data management input/output routines. 

At system generation, the programmer 
must specify the types of transmission con- 
trol units and remote stations composing 
the TP system, and the features associated 
with each TCO and station. Appendix D 
explains how to code system generation 
macro instructions to provide this informa- 
tion. (See the System Generation publica- 
tion for general information on the system 
generation procedure.) 

At assembly time and during program 
execution, the programmer must define com- 
munications line groups and terminal lists, 
as explained below. 

For information about defining the 
local 3270 display system and about 
attention interruption handling, see the 
section "IBM 3270 Display System - 
Programming Considerations." 



DEFINING COMMUNICATIONS LINE GROUPS 



A communications line group is a logical 
association of lines having characteristics 
similar enough that the same channel pro- 
grams can be used for all lines in the 
group. These characteristics are as 
follows; 

• All lines in a group must be start-stop, 
or all must be binary synchronous; both 
types cannot be mixed in the same group. 

• All lines must be of the same type. For 
start-stop lines, this means that all 
lines in the group must be nonswitched, 
or all must be switched. For binary 
synchronous lines, all lines in the 
group must be nonswitched point-to- 
point, nonswitched multipoint, or 
switched point-to-point. 

• All remote terminals connected to start- 
stop lines in a group must be of the 
same type, must have the same features, 
and must use the same transmission code. 



All remote stations connected to binary 
synchronous (BSC) lines in a line group 
must have the same features and must use 
the same transmission code, but they 
need not all be of the same type. That 
is, more than one type (e.g., System/360 
Model 20, 1130, 2770, etc.) can be con- 
nected to the same nonswitched multi- 
point line, or more than one type can 
call or be called by the central comput- 
er over the same switched line termina- 
tion (i.e., the same telephone number at 
the central computer) . 

Any optional functions that are speci- 
fied apply to all lines in the group. 
For example, if dynamic buffering is 
specified for the line group, all lines 
must use dynamic buffering. 



Communications line groups are consid- 
ered as data sets, although they do not 
conform to the usual definition of data set 
(a named, organized collection of logically 
related records). Like other data sets, a 
communications line group is represented by 
a data control block (DCB) , which you 
define using the DCB macro instruction. 

you may establish a line group in either 
of two ways. First, you may specify during 
system generation what lines are to consti- 
tute the group, then symbolically identify 
the group during program execution by means 
of the UNIT parameter of a DD statement. 
Second, you may specify the makeup of the 
group during program execution, again using 
UNIT parameters on DD cards. Whichever 
method is used, during system generation 
you must identify to the operating system 
(1) what kind of transmission control unit 
is connected to each line, and (2) what 
kind of terminals (start-stop) or what type 
of line (BSC) is associated with each line 
address. 

A series of examples will make this 
clear. Assume that the teleprocessing net- 
work comprises seven lines — five start- 
stop and two binary synchronous (BSC) 
lines. Assume further that IBM 1050 ter- 
minals are connected to the five start-stop 
lines, and that any type of BTAM-supported 
BSC station is connected to the two BSC 
lines. See Figure 3. (The decision as to 
what types of remote stations are to be 
connected to which lines is part of the 
installation planning function; this 
example assumes that this decision has 
already been made.) 
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Before establishing the makeup of a line 
group, you must specify with IOCONTRL 
macros the type of TCU (2701, 2702, or 
2703) associated with each control unit 
address, and then, via IODEVICE macros, 
specify the type of terminal (for start- 
stop lines) or type of line (for BSC lines) 
associated with each line address. 



IODEVICE operands, including FEATURE, 
ADAPTER, and SETADDR. These are explained 
in Appendix D. 

Assume now that you wish to establish 
three line groups from the seven lines, as 
shown in Figure <*. Two examples show how 
to do this. 



IOCONTRL UNIT=2702,ADDRESS=02 
IOCONTRL UNIT=2703,ADDRESS=03 

The addresses 02 and 03 represent the con- 
trol unit addresses to which the TCUs are 
connected. Note that one IOCONTRL macro is 
issued for each control unit position 
(denoted by the second digit of the line 
address) . 



IODEVICE 
IODEVICE 
IODEVICE 
IODEVICE 
IODEVICE 
IODEVICE 
IODEVICE 



UNIT=1050 
UNIT=10 50 
UNIT=1050 
UNIT=10 50 
UNIT=1050 
UNIT=BSC3 
UNIT=BSC3 



,ADDRESS=021, 
,ADDRESS=0 22, 
,ADDRESS=025, 
,ADDRESS=0 27, 
,ADDRESS=0 2E, 
f ADDRESS=0 31, 
,ADDRESS=033, 




Figure 3. Sample Line Addresses and Asso- 
ciated TCU and Station Types 

Notice that the UNIT operands in the 
first five macros specify the type of ter- 
minal, while those in the remaining two 
macros specify "BSC3" — this value repre- 
sents the type of line, in this case non- 
switched multipoint. To specify a non- 
switched point-to-point line you would 
specify BSC1; for a switched point-to-point 
line, BSC2. See the description of the 
IODEVICE macro in Appendix D. 

In these macros, the three-digit 
addresses represent communications lines, 
not specific devices as would be the case 
in defining local I/O equipment. The 
ellipses represent other appropriate 



Example 1 ; To define the groups at system 
generation, you would code a UNITNAME macro 
for each line group: 

UNITNAME UNIT=(021,022,025,02E) ,NAME=GR0UP1 
UNITNAME UNIT=(027),NAME=GROUP2 
UNITNAME UNIT=(031,033),NAME=GROUP3 

During program execution, you would associ- 
ate these line groups with specific data 
control blocks in your program by issuing 
for each group a DD statement identifying 
the group by its name, and indicating the 
number of lines in the group: 



//DDGRP1 DD 
//DDGRP2 DD 
//DDGRP3 DD 



UNIT=(GR0UP1,4),, 

UNIT=(GROUP2,l), 

UNIT=(GROUP3,2),, 



The name of the DD statement (e.g., DDGRP1) 
must be the same as the DDNAME parameter in 
the data control block. In the foregoing 
DD statements the number of lines indicated 
for each group is the same as the number of 
lines specified at system generation in the 
UNITNAME macros. You may, however, specify 
any lesser number of lines to be in the 
group when you issue a DD statement. Lines 
are always included beginning with the low- 
est line address. 



For example, if you code 

//DDGRP1 DD UNIT=(GR0UP1,2),... 

the two lines associated with the two low- 
est addresses in the original four-line 
group, 021 and 022, constitute the group. 

Example 2 : Alternatively, you may elect 
not to define the groups at system genera-r 
tion, but to identify the lines in the 
group individually during program execu- 
tion. To do this, code a separate DD 
statement for each line, specifying the 
actual line address instead of the name of 
a line group, as in example 1. 



//DDGRP1 DD 
// DD 
// DD 



UNIT=021, 
UNIT=02E, 
UNIT=027, 
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TCU 



TCU 



Line Address 



-021 

-022 
-025- 



-027— ► Line Group 2 
■ 02E 



Line Group 1 



-031 



-033- 



Line Group 3 



TCU 



TCU 



Line 
Address 



-021 — 

-022 

-025 

-027-»-RLN 1 — Line Group 2 
-02E »-RLN 4 



-►RLN 1 
-►RLN 2 
-►RLN 3 



-031 »-RLN 1 



■033 — -HU.N 2 



► Line Group 1 



Line Group 3 



Figure 4. Sample Line Group Makeup 



Figure 5. Relative Line Numbers for 
Example 1 



These DD statements establish a group 
containing three lines. 



Even if you have defined a line group by 
using a JNITNAME macro at system generation 
you may redefine it by using DD statements 
as shown in this example. 



Relative Line Numbers ; In READ and WRITE 
macro instructions, you must specify the 
line over which the Read or Write operation 
is to take place. Rather than specify an 
actual line address, you code in the macro 
a relative line number (RLN) , which refers 
to the numerical position of the actual 
line address relative to other lines in the 
group. Thus, in Example 1, the relative 
line numoers are as shown in Figure 5; in 
Example 2 , as shown in Figure 6 . (In 
Example 2 four lines are not defined in any 
group. ) 



Line 
Address 



TCU 




-►RLN 1 



>■ Line Group 1 



-►RLN 3 
-►RLN 2 



TCU 



Figure 6. Relative Line Numbers for 
Example 2 



If you define a line group at system 
generation, using the UNITNAME macro, the 
relative line numbers are assigned such 
that they represent an ascending numerical 
order of addresses, regardless of the actu- 
al sequence in which the addresses were 
arranged in the macro. If, however, you 
define a line group by a sequence of DD 
statements, relative line numbers are ap- 
plied in the same sequence in which the DD 
statements are coded. 

See Appendix D for further information 
on system generation macro instructions 
involved in generating a BTAM system, and 
see the System Generation publication for 
complete information on generation 
procedures. 



DCB (Define Data Control Block) Macro 
Instruction 



The DCB macro instruction defines the 
structure of a data control block and 
includes in it certain information that you 
have coded in the macro. You must issue a 
separate DCB macro for each line group data 
set. 

Of the parameters that appear in the 
data control block, you must code certain 
ones in the macro, while others may either 
be coded in the macro or be supplied from 
an alternate source. The alternate source 
for an operand is indicated in the descrip- 
tion of the operand, as follows: 
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• PP means you can enter the parameter symbol 

into the data control block yourself Is the name of the DCB macro instruc- 

during program execution, any time prior tion. It must be specified, 
to opening the line group data set. keyword operands 

Are the operands that can be included 

• OE means you can enter the parameter (Table 1). 
into the data control block yourself 

during program execution, at any time up 
to and including the DCB exit taken dur- 
ing the opening process . 

r t t 1 

| Name | Operation | Operands | 

h + + ., 

| symbol | DCB | keyword operands | 
l x j. J 
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Table 1. Keyword Operands for the BTAM Communications-Line-Group DCB 
Macro Instruction (Part 1 of 5) 



| Keyword Operand and Description 



DSORG=CX 

Identifies the data set organization as that of a communications 
line group. 



(MACRF=(R) 

<MACRF=(W) 

ImACRF=(R,W) 

Specifies that access to the line group is to be gained with ei- 
ther READ or WRITE macro instructions, or both. Whichever option 
is coded, BTAM permits access with both READ and WRITE macro in- 
structions. This operand is required. 



[DDNAME=ddname] (Alternate source: PP) 

Is the name that appears in the DD statements associated with this 
data control block. If this operand is omitted, and no value is 
provided through an alternate source, the job is terminated. 



[BUFNO=number of buffers] (Alternate source: OE) 

Is the number of buffers to be obtained by BTAM at open time, if 

you wish BTAM to provide a buffer pool. Up to 225 buffers can be 

specified. You need not code this operand if BTAM is not to 
obtain a buffer pool. 



[BUFL=buffer length] (Alternate source: OE) 

is the length in bytes of the buffers making up the buffer pool, 
whether you provide the pool or BTAM provides it. The maximum 
value for BUFL is 32,760. A minimum limit on buffer length ap- 
plies to BSC line groups under certain conditions — see Program- 
ming Notes under READ and WRITE Macro instructions. Specify this 
operand for all applications using buffers. BUFL must be a mul- 
tiple of 4. 



[BUFCB=Duffer control block address] (Alternate source: OE) 

Specifies the address of the buffer control block for a buffer 
pool you provide. If you wish BTAM to provide the buffer pool, 
omit this operand, and code the BUFNO and BUFL operands. 



[EXLST=exit list address] (Alternate source: PP) 

Specifies the address of a BTAM program exit list, if you wish to 
provide one. only the DCB exit may be used. 



[BFTEK=D] (Alternate source: OE) 

Specifies dynamic buffering is to be used for this line group. If 
dynamic buffering is specified, a buffer pool must be defined. 



[LERB=line error block address] (Alternate source: OE) 

Specifies address of line error recording block. This operand is 
valid only if C is coded among the EROPT operand options. 



[EROPT=code] (Alternate source: OE) 

Specifies the error recovery, error recording, and on-line test 
options to be provided for the line group. 

E 
Specifies that the basic error recovery procedures (ERP) are to be 
provided for the line group. If EROPT is omitted, E is assumed. 

R 
Specifies that text-read errors are to be retried in addition to 
the basic error recovery procedures. This option is valid only 
for the following terminals: 
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Table 1. Keyword Operands for the BTAM Communications-Line-Group DCB 
Macro Instruction (Part 2 of 5) 

r ' 1 

| Keyword Operand and Description | 

h 1 

1050 terminals (valid for the card reader and paper tape reader 
only if line correction feature is installed), 2740 terminals with 
checking feature, and 2260 terminals. (Do not specify EROPT=R if 
dynamic buffering is to be used (BFTEK=D) as the use of dynamic 
buffering precludes the retrying of text-read errors. (See also 
discussion under N, below, for considerations for AT&T 83B3 and WU 
115A terminals.) 

W 
Specifies text-write errors are to be retried in addition to basic 
error recovery procedures. This option is valid for all start- 
stop terminals, except World Trade terminals. It is invalid for 
BSC stations. It results in an additional copy of the message for 
each retry (except for the 2260 with the line address feature, and 
the 1050 card punch and paper tape punch with the line correction 
feature) . This parameter is ignored for BSC and World Trade tele- 
graph terminals. (Do not specify EROPT=W if dynamic buffering is 
to be used (BFTEK=D) as the use of dynamic buffering precludes the 
retrying of text-write errors. 

C 
Specifies that threshold error counts and cumulative error counts 
are to be maintained in the line error recording block (LERB) for 
the line for data check, intervention required, and nontext time- 
out errors. 

N 
Specifies that no error recovery procedures are to be provided for 
the line group. This parameter and E,R,W, and C are mutually 
exclusive. This parameter is invalid for BSC stations; if coded, 
it is ignored. It is recommended that EROPT=N for AT&T 83B3 and 
WU 115A terminals if dynamic buffering is specified (BFTEK=D), 
because BTAM does not perform error retry either before or after 
start of text transfer when dynamic buffering is used for ter- 
minals of these types. If EROPT is omitted, or E, ER, or R is 
coded in the EROPT operand, ERP routines are unnecessarily loaded 
into the system, as they will remain unused. 

T 
Specifies that the on-line test facility is to be used for the 
line group. This option is valid for all IBM stations with or 
without error recovery procedures. To receive standard IBM 
maintenance for a remote or local 3270 display system, this 
option must be specified. 

Note: The parameters E, R, W, C, and T may appear in any combination. 
The parameter N may appear alone or with T. Commas must not be coded 
in this parameter. Example: EROPT=RECWT. When EROPT (any combina- 
tion of E, R, W, and C) is coded in the DCB macro instruction, the 
user automatically gets the Outboard Recorder (OBR) and the Statistic- 
al Data Recorder (SDR) facilities for this line group. (These are fa- 
cilities used by the Customer Engineer.) Error recovery procedures 
are required for BSC stations. For BSC line group data sets C and T 
are the only valid EROPT options; all other option codes are ignored. 
For World Trade terminals, E, C, and N are the only valid EROPT 
options; all other option codes are ignored. For the local 3270 
display system, E and T are the only valid EROPT options; all other 
option codes are ignored. 

I 

Caution: In previous releases of the S/360 Operating System, the 
EROPT operand of the BTAM DCB macro was spelled ERROPT. In a user 
program assembled under the current release of the Operating System, 
this operand must be spelled EROPT. The assembler will issue an MNOTE 
for, and will not assemble, any BTAM DCB macro in which the operand is 
coded ERROPT. 
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Table 1. Keyword Operands for the BTAM Communications-Line-Group DCB 
Macro Instruction (Part 3 of 5) 

r 1 

| Keyword Operand | 

j.. ., 

DEVD=BS 
DEVD=WT 

BS 
Specifies that BSC is to be used and causes a 4 4 byte field to be 
added to the DCB. This field contains the line control characters 
in the transmission code to be used. 

WT 
Must be coded if the line group contains World Trade terminals, 
and if any of the keyword operands IAM, WRU, MON, MONDLY, EOM, and EOT 
are coded. 
h _ 

[MODE=([IBC], ECNTRL] ,I"A"| # |"A"])] (BSC line group only) 

IBC 
Specifies that the transmission control unit (TCU) at the central 
computer is to operate in EIB (Error Information Byte) mode. EIB 
mode is discussed in the General Information section of the BSC 
Read and Write Operations chapter. 

CNTRL 
Should be coded if the central computer (this System/360) is to be 
given control when contention occurs on a point-to-point non- 
switched line. It should be omitted if the remote station is to 
be given control. 

A 
Specifies that communications are to be through the 27 01 Data 
Adapter Unit's Dual Communication Interface A. 

B 
Specifies that communications are to be through the 2701*s Dual 
Communication Interface B. This parameter may not be coded if 
this feature is not present on the 2701. 

A 
Specifies use of the transmission code designated by Code A for 
2701 Data Adapter Unit Dual Code Feature. 

B 
Specifies use of the transmission code designated by Code B for 
2701 Dual Code Feature. This parameter may not be coded if this 
feature is not present on the 2701. 

j. H 

[CODE=transmission code] (BSC line group only) 

EBCDIC 
Specifies transmission in Extended Binary Coded Decimal Inter- 
change Code. 

USASCII 
Specifies transmission in United States of America Standard Code 
for Information Interchange. 

TRANSC 
Specifies transmission in 6- bit TRANSCODE. 

L . . J 
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Table 1. Keyword Operands for the BTAM Communications-Line-Group DCB 
Macro Instruction (Part 4 of 5) 

r ■ 

Keyword Operand and Description 



The following six operands apply only to line groups for World 
Trade Telegraph terminals: 



[MON=YES 
MON=NO 



YES 
Specifies that each terminal of the line group is equipped with 
the optional Motor-On feature. 

NO 
Specifies that the terminals are not equipped with the Motor-On 
feature. NO is assumed if this operand is omitted. 



b. . 

MONDLY=nn 
M0NDLY=15 



nn 
Specifies the number of Mark Characters corresponding to a 1.5- 
second time-out when the terminal is not equipped with the option- 
al Motor- On feature. MONDLY=10 corresponds to 50-baud service, 
M0NDLY=15 corresponds to 75- baud service, and MONDLY=20 corre- 
sponds to 100-baud service. When this operand is omitted or nn 
exceeds 20, MONDLY=15 is assumed. 



[*IAM=YES] 
| lAM=NO J 



YES 
Specifies that the terminal can ask for the computer identifica- 
tion sequence by sending FIGS D. 

NO 
Specifies that the terminal cannot ask for the identification 
sequence of the computer. NO is assumed if this operand is 
omitted. 



WRU=YES| 
WRU=NO 



YES 
Specifies that by sending FIGS D, either the computer or the ter- 
minal can ask for the identification sequence of the other. When 
WRU=YES is specified, IAM=YES is assumed. 

NO 
Specifies that the computer cannot ask for the identification 
sequence of the terminal. NO is assumed if this operand is 
omitted. 
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Table 1. Keyword Operands for the BTAM Communications-Line-Group DCB 
Macro Instruction (Part 5 of 5) 



| Keyword Operand and Description 



£,OM=WRU 



EOM=X'hh* 
■LOM=X'hhlF' 

WRU 
Specifies that the end-of -message signal is the WRU signal. 

X'hh* 
Specifies that FIGS x is used as the EOM signal. *■ hh is the hexa- 
decimal representation of FIGS x set in the adapter. 

X'hhlF' 
Specifies that FIGS y LTRS is used as the EOM signal. 1 hh is the 
hexadecimal representation of FIGS y set in the adapter. WRU is 
assumed if this operand is omitted. 



| "kot=2bom "I 

UoT^X'hhlF'J 



2EOM 
Specifies that two consecutive EOM signals will be recognized by 
BTAM as end-of-transmission, except when IAM=YES and EOM=WRU are 
specified. 

X'hhlF' 
Specifies that FIGS y LTRS is used as the EOT signal. 1 Therefore, 
EOM=X'hhlF' cannot be specified for the EOM signal. 

Note : A time-out is also recognized as EOT. Moreover, two con- 
secutive EOM signals are always recognized as an EOT signal, 
except when IAM=YES and EOM=WRU aire specified. 



j. 



.j 



x x and y are the values assigned by the user and set in the adapter at 
the time of installation of the equipment. 

L . ,___ J 
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Table 2. Format of Data Control Block (DCB) (Part 1 of 2) 



Displacement 
flex Dec 



10 16 



14 20 

18 24 

1C 2 8 

20 32 

24 36 

28 40 

2C 44 

30 48 

28 40 

2C 44 

30 48 

30 48 

34 52 

38 56 

3C 60 

40 64 j 
/ 
I 



T T T 

I I I 

DCBBQFLG | DCBWTEOM | DCBWTEOT | DCBWTPAD 

I I I 

X X X 



DCBBUFNO | DCBBUFCB 
X 



DCBBUFL 



DCBDSORG 



DCBDEVTP 



DCBIOBAD 



"+- 



_ T r _ 

DCBBFTEK | DCBERROP | DCBBUFCT | 
J. X 1_. 



DCBEIOBX | DCBEXLST 
X 



DCBDDNAM 



T T 

DCBOFLGS | DCBIFLG | DCBMACR 
L X 



DCBTIOT 



| DCBMACRF 

.X 



DCBIFLGS | DCBDEBAD 



DCBOFLGS 



| DCBRE AD, DCB WRITE 

.X 



DCBLERB 



■T T" 

I DCBXCODE j 
.X X- 



DCBBSTSX 



(reserved) 



World Trade Telegraph 
^Interface (before and after 
the Open Function) 



T 



Common 
Interface 



Foundation Extension 



Foundation 

Before 

Open. 



Foundation 

After 

Open± 



BTAMl 
Interface 

_i__ 



BSC f 
Interface 
(before Open) 

__L 
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Table 2. Format of Data Control Block (DCB) (Part 2 of 2) 



38 56 | DCBXMODE | DCBXCODE 
+ 

3C 60 | DCBBSTSX | DCBBSSTX 
X 

40 64 | DCBBSAKO 

44 68 

48 72 

4C 76 

50 80 



T T 1 

DCBBSRSV J DCBBSWBT | 
X 

DCBBSTEX | DCBBSETX 

J. 

DCBBSAK1 



DCBBSENQ | DCBBSNAK 
+ 

DCBBSEOT | DCBBSSYN 
X 

DCBBSONL 



DCBBSRVI 



DCBBSETB | DCBBSDLE 

X 

DCBBSTBE j DCBBSTEB 



DCBBSSAK 

(reserved) 



54 84 j 



BSC 
Interface 
(after Open) 



I 
60 96 j 



(reserved) 



Defining the Teleprocessing System 33 



Table 3. DCB Field Contents 



j Field 



| Contents 



,. 

| DCBBQFLG 


|. 

World Trade Telegraph flag byte. 


| DCBWTEOM 


The EOM character (WT terminals) 


j DCEWTEOT 


The EOT character (WT terminals) 


| DCBTPAD 


Number of pad (LTRS) characters required for Motor-on delay (WT 




terminals) . 


| DCBBUFNO 


Number of buffers, obtained by Open-routine for this DCB. 


| DCBBUFCB 


Address of buffer control block. 


| DCBBUFL 


Buffer length (length of buffers to be obtained by Open for a BTAM- 




provided buffer pool, and/or the buffer length to be used if length 




parameter of a Read or Write macro is coded as * S'). 


|DCBDSORG 


Data set organization (bit 3=1 for BTAM) 


| DCBDEVTP 


Index to device entry in Device I/O directory. 


JDCBIOBAD 


IOB (Input/Output Block) address. 


| DCBBFTEK 


Buffering technique, (Bit 4=1 indicates dynamic buffering) 


j DCBERROP 


Error recovery procedures defined by DCB EROPT operand. 


j DCBBUFCT 


Max. no. of buffers to be obtained by BTAM for a Read or Write 




operation (dynamic buffering) . 


jDCBEIOBX 


Extended IOB index. 


| DCBEXLST 


Address of a user-provided exit list. 


| DCBDDNAM 


DD name of the line group data set. 


| DCBOFLGS 


Flags used by OPEN, and checked by programmer to determine if data 




set has been opened. 


|DCBIFLG 


Flags used by Input/Output Supervisor (IOS) . 


j DCBMACR 


Macro instruction reference. 


j DCBTIOT 


Pointer to DD entry in task I/O table. 


| DCBMACRF 


Same as DCBMACR. 


JDCBIFLGS 


Same as DCBIFLG. 


| DCBDEBAD 


Address of associated Data Extent Block (DEB) . 


| DCBOFLGS 


Same as DCBOFLGS above. 


j DCBREAD/DCBWRITE 


Address of Read/Write module. 


| DCBLERB 


Address of line error recording block (LERB) . 


| DCBXMODE 


Transmission mode for BSC lines. 


j DCBXCODE 


Transmission code for BSC lines. 


| DCBBSRSV 


The DLE character. "> 


| DCBBSWBT 


(reserved) 




|DCBBSTSX 


DLE character. 




| DCBBSSTX 


STX character. 




j DCBBSTEX 


DLE character. 


Hexadecimal representation 


j DCBBSETX 


ETX character. 


of 


JDCBBSAKO 


ACK-0 sequence 3 -. 


> transmission 


| DCBBSAK1 


ACK-1 sequence 2 . 


code 


1 DCBBSENQ 


ENQ character. 




j DCBBSNAK 


NAK character. 




| DCBBSETB 


ETB character . 




| DCBBSDLE 


DLE character. 




|DCBBSEOT 


EOT character. 




JDCBSSYN 


SYN character. 




JDCBBSTBE 


DLE character. 




| DCBBSTEB 


ETB character. 




JDCBBSONL 


SOH % characters. 




j DCBBSSAK 


WACK sequence 3 . "* 


| DCBBSRVI 

L J 


RVI sequence** . 

L _ _ 


r 

I^ACK-O is two ch£ 


iracters — DLE X'70* (EBCDIC), DLE (USASCII), or DLE - (TRANSCODE) . 


| 2 ACK-1 is two chc 


iracters — DLE / (EBCDIC), DLE 1 (USASCII), or DLE T (TRANSCODE). 


| 3 WACK is two chai 


racters ~ X'lOeB* (EBCDIC), X'103B' (USASCII) 


| '♦RVI is two chare 


icters — X'107C (EBCDIC), 


X'lOSC* (USASCII) 



l : . : . J 
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DEFINING AND MODIFYING TERMINAL LISTS 



A terminal list is a table from which BTAM 
obtains the information it needs to estab- 
lish contact with a remote station when you 
issue a READ Initial or WRITE Initial macro 
instruction (and occasionally other types 
of READ and WRITE) . This information con- 
sists of telephone numbers (dial digits) , 
polling and addressing sequences, and iden- 
tification sequences to be sent to remote 
stations, or against which an incoming 
sequence can be checked to ensure that con- 
tact has been established with a valid 
station. 



There are several kinds of terminal 
lists, having different names and formats. 
For example, a polling list is one kind of 
terminal list; it is used for supplying the 
polling sequences BTAM needs to activate 
certain kinds of remote stations. Another 
kind is a dial list, used in operations 
over switched lines. Appendix A shows the 
formats of terminal lists and gives 
examples of what they contain. 



Two macro instructions, DFTRMLST and 
CHGNTRY, provide the ability to define ter- 
minal lists and to modify an existing list. 



DFTRMLST (Define Terminal List) Macro 
Instruction 



DFTRMLST generates a terminal list having 
the format and contents required by the 
type of station and kind of communication 
line involved in the Read or Write opera- 
tion that uses the list. The macro speci- 
fies the format and provides telephone num- 
bers, polling or addressing characters, and 
identification sequences, as required by 
the Read or Write operation. 

Described below are each of the operands 
that may be coded in a DFTRMLST macro 
instruction; only a few of these will be 
coded for a particular list. To determine 
which ones to code for a particular Read or 
Write operation, see the discussion on ter- 
minal lists in the section of the Start- 
Stop Read and Write Operations or BSC Read 
and Write Operations chapters that covers 
the particular type of remote station or 
line configuration for which the terminal 
list is required. 

A separate DFTRMLST macro must be issued 
for each list to be defined. Appendix A 
illustrates the formats of various kinds of 
lists, with examples. 



Notes : The DFTRMLST macro instruction 
is not used for the local 3270 display 
system- 

For more information about the DFTRMLST 
macro instruction for the remote 3270 
display system, see "Defining Terminal 
Lists" under the heading "Defining and 
Modifying Terminal Lists" in the section 
"IBM 3270 Display System - Programming 
Considerations. " 



r t t 1 

| Name | Operation | Operand | 

,. + + ., 

| symbol | DFTRMLST (list type, j 

I | | device- dependent | 
I j j operands 
i x j. '. j 

list type 

Specifies the format of the terminal 
list. Code one of the following, as 
required by the remote station or 
line configuration involved. 

OPENLST (start-stop, BSC; multipoint line) 
Generates an open polling list (for 
programmed polling of start-stop ter- 
minals) or an addressing list (for 
addressing of start-stop or BSC 
stations) . 

WRAPLST (start-stop; multipoint line) 
Generates a wraparound polling list 
(for programmed polling). 

SSALST (start-stop; multipoint line) 
Generates an open polling list for 
Auto Poll operations. 

SSAWLST (start-stop; multipoint line) 
Generates a wraparound polling list 
for Auto Poll operations. 

DIALST (start-stop, BSC; switched line) 
Generates a calling list or an an- 
swering list. 

IDLST (start-stop [TWX only]; 

switched line) 
Generates a calling list or an an- 
swering list with ID verification. 

BSCLST (BSC; switched line) 

Generates a calling or an answering 
list (for switched lines), with ID 
verification. This kind of list spe- 
cifies an identification sequence to 
be sent to a remote BSC station; and 
specifies what identification 
sequence will be accepted from a 
remote BSC station. 

AUTOLST (BSC; multipoint line) 

Generates an open polling list for 
Auto Poll operations. 
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AUTOWLST (BSC; multipoint line) 

Generates a wraparound polling list 
for Auto Poll operations. 

WTTALST (start-stop [WT telegraph only] ; 
nonswitched point-to-point line) 
World Trade telegraph terminal list 
containing the identification 
sequence expected from a remote sta- 
tion and the identification to be 
sent to the remote station when 
transmission begins. 

WTLIST (BSC; switched line) 

Generates a terminal list to be used 
for Read and Write operations involve 
ing manual dialing of a remote sta- 
tion or manual answering of calls 
from remote stations, where the 
expanded ID verification facility is 
not to be used (i.e., when only one 
unique ID sequence is to be accepted 
from any remote station that calls or 
is called by the central computer) . 



SWLST (BSC; switched line) 

Generates a terminal list to be used 
for Read and Write operations involv- 
ing automatic or manual dialing of a 
remote BSC station or automatic an- 
swering of calls from remote BSC sta- 
tions, where the expanded ID verifi- 
cation facility is to be used (i.e., 
when any of several authorized ID 
sequences is to accepted from a 
remote station) . 

device-dependent operands 

Specify the information to be placed 
in the list. 

xx 

two hexadecimal digits representing 
the transmission bit pattern of a 
single polling or addressing 
character. Example: 62 (repre- 
senting the polling character A in 
transmission code [1030]). 

xxyy 

four hexadecimal digits represent- 
ing the transmission code bit pat- 
terns of a two-character polling or 
addressing sequence. Example: 
E202 (representing the polling 
characters Al in transmission code 
(10503). 

dialcount 

one or two decimal digits repre- 
senting the number of dial digits 
in the telephone number of the 
remote station to be called. 
Example: 7. 



dialchars 

the digits of the telephone number 
to be dialed. Example: 5672022. 

numrec 

one or two decimal digits repre- 
senting the number of characters in 
an identification expected from a 
remote station. 

ridseq 

hexadecimal digits representing the 
transmission code bit patterns of 
the identification sequence to be 
received. 



numsent 

one or two decimal digits repre- 
senting the number of characters in 
the identification sequence to be 
sent to a remote station. 



tidseq 

hexadecimal digits representing the 
transmission code bit patterns of 
the identification sequence to be 
sent. 



numcnsent 

one or two decimal digits repre- 
senting the number of characters in 
a terminal control sequence to be 
sent to a TWX station. 



cntrlseq 

hexadecimal digits representing the 
transmission code bit patterns of 
the terminal control sequence to be 
sent . 

length 

the number of characters composing 
a "data tone" (an audible signal to 
be sent to a remote station that 
calls the central computer) . Code 
this operand only for lists of the 
WTLIST type. (A sequence of X'FF* 
characters is recommended for the 
data tone.) 

area 

the address of the area containing 
the data tone character sequence. 
Code this operand only if you code 
the length operand. 

faaseq (2760 only) 

hexadecimal digits representing the 
transmission code bit patterns of 
the three-character frame change 
sequence (F,Ai,A a characters). 
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Programming Note : The DFTRMLST macro can- 
not define open or wraparound lists of the 
OPENLST or WRAPLST types having more than 
31 entries. If a larger list is required, 
you must define it yourself; see Appendix A 
for the required format. 

CHGNTRY (Change Terminal Entry) Macro 
Instruction 

CHGNTRY is used to cause BTAM to suspend or 
resume polling or addressing of a specific 
remote station or component represented by 
a terminal list entry or to change the 
value of a control byte in an answering 
list of the SWLST form. 1 For a programmed 
polling list or an addressing list, CHGNTRY 
sets the skip bit of the entry to 1, if 
polling or addressing is to be skipped; or 
sets the bit to 0, if polling or addressing 
is to be resumed. For an Auto Poll polling 
list, CHGNTRY moves an entry to be skipped 
to the end of the list so that all active 
entries appear at the beginning of the 
list, and all entries to be skipped appear 
at the end of the list. CHGNTRY moves an 
entry to be reactivated back to its origin- 
al position in the list. 

You must issue a separate CHGNTRY for 
each list entry you wish to skip or activ- 
ate , or for each SWLST control byte value 
to be changed. 

You can change a terminal list entry 
only if the list is not currently in use by 
a Read or Write operation. You should 
therefore issue CHGNTRY only after making 
sure that no Read or write operation is in 
progress on the line to which the list ap- 
plies. If you wish to change the list 
while wraparound polling is in progress, 
first issue a RESETPL macro to terminate 
polling, then issue a CHGNTRY for the entry 
to be changed. 

CHGNTRY cannot be used to modify a ter- 
minal list of the IDLST or BSCLST format. 

M ote i A special form of the CHGNTBY macro 
instruction is used for the local 3270 
display system. See "Attention 
Interruptions and Bead Initial Operations" 
in the section "IBM 3270 Display System — 
Programming Considerations." 

r t t 1 

| Name | Operation | Operand | 

h + + J, 

| [symbol] | CHGNTRY jlistaddr, listype, | 
| | jlistposition,numchars, | 
j | J action | 

l__ jl x 4 

CHGNTRY cannot be used to change the con- 
trol byte value of a calling list of the 
SWLST form. 



listaddr 

Specifies the address of the first 
entry of the terminal list containing 
(1) the entry to be skipped or acti- 
vated, or (2) the SWLST entry the 
control byte value of which is to be 
changed. 

listype 

Specifies the type of list, as coded 
in the DFTRMLST macro that defined 
the list: OPENLST, WRAPLST, DIALST, 
SSALST, SSAWLST, AUTOLST, AUTOWLST, 
or SWLST. (IDLST, BSCLST and WTTALST 
are invalid operands.) 

listposition 

Specifies the original relative posi- 
tion in the list of the entry to be 
changed. Code a 1 if the first entry 
is to be changed, 2 if the second 
entry, etc. 

numchars 

SDecifies the number of polling or 
addressing characters in each entry 
of the list. This operand may be 
omitted if listype is SSALST, 
SSAWLST, or SWLST. 

action 

Specifies the action to be performed 
on the entry: 

• For lis types other than SWLST: 

SKIP 

indicates that polling or ad- 
dressing is to be suspended. . 

ACTIVATE 

indicates that polling or ad- 
dressing is to be resumed. 

• For a listype of SWLST: 

The following operands specify the 
action to be performed when the ID 
ENQ sequence is received from a 
remote station on a Read Connect 
operation. 

ACTIVATE 

specifies that BTAM is to send 
the ID ACK-0 sequence contained 
in the idsent field of the an- 
swering list, and then read a 
message block, if any. ACTIVATE 
sets the control byte to X,* 00 ' . 

DISC 

specifies that BTAM is to send 
the disconnect signal (DLE EOT) 
and then break the line connec- 
tion. (The two commands that 
perform this function are part of 
the Read Connect channel pro- 
gram. ) BTAM then restarts the 
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channel program at the Enable 
command to await a new call. 
DISC sets the control byte to 
X'Ol'. 

POST 

specifies that BTAM is to post 
the Read Connect operation com- 
plete. The user program then 
must take the appropriate action. 
POST sets the control byte to 
X , 02 f . 

Return Codes ; After you issue a CHGNTBY 
macro with"! listype of SSALST, SSAWLST, 
AOTOLST, or AUTOWLST only, ETAH indicates 
the result of the operation, by means 
of a return code in register 15: 

Code Meaning 



ing was already suspended or 
resumed) . 

X'04' The requested action was not per- 
formed, because the terminal list 
is in use by a Read or Write 
operation. 



X'08* The requested action was not per- 
formed, because the value coded 
in the listposition operand 
exceeded the number of entries in 
the list, i.e., no such entry 
exists. 



X*00* The requested action was per- 
formed, or it was already per- 
formed (i.e. , poll ing or address- 
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BUFFER MANAGEMENT 



This chapter describes how to construct 
buffer pools, obtain buffers through both 
programmer buffering and dynamic buffering, 
and release buffers after use. Dynamic 
buffering for Read and for Write operations 
is differentiated. 



Figures 7 and 8 show examples that use 
DS statements and the GETMAJN macro. 



Using the GETPOOL Macro Instruction 



CONSTRUCTING BUFFER POOLS 



If you intend to use buffers for holding 
input and output messages, a buffer pool 
must be constructed in one of several ways, 
as illustrated by Figures 7 through 10. 
Only those operands of concern in con- 
structing buffer pools are shown. The 
BUILD, GETMAIN and GETPOOL macro instruc- 
tions mentioned below are fully explained 
in the Supervisor and Data Management Macro 
Instructions publication. 



You may issue a GETPOOL macro instruction 
either before opening the data control 
block to be associated with this buffer 
pool or during the DCB exit routine. In 
the GETPOOL macro specify the address of 
the data control block and the number and 
length of the buffers you need. You must 
also specify the buffer length in the DCB 
macro (BUFL operand) . 

GETPOOL obtains sufficient storage to 
accommodate the pool, structures the buffer 
control block and the buffer chain, and 
places the buffer control block address in 
the data control block. See Figure 9. 



Using the BUILD Macro Instruction 



BTAM Construction of Buffer Pools 



First, reserve a storage area at assembly 
time using DC or DS instructions, or issue 
a GETMAIN macro instruction to obtain the 
space. The area must begin on a fullword 
or doubleword boundary, and must contain 
enough space for an eight-byte buffer con- 
trol block and the number of buffers 
needed . 

Then issue a BUILD macro instruction 
specifying the number of buffers, their 
length, and the address of the area 
reserved at assembly time or obtained by 
the GETMAIN macro (GETMAIN provides the 
address, in a register, of the area it has 
obtained) . The BUILD macro constructs the 
buffer control block and the buffer chain. 

The length of each buffer must be four 
bytes longer than the length of the data to 
be placed in the buffer, because BTAM uses 
the first four bytes of each buffer as a 
link field containing the address of the 
next buffer. If this caution is not 
observed, the data, when placed in the buf- 
fers, may overlay the link field, which 
will destroy the link addresses and thus 
cause loss of data. 

In the DCB macro instruction for each 
line group that is to use this buffer pool, 
specify the address of the buffer control 
block (BUFCB operand) . 



If you wish for BTAM to provide the buffer 
pool automatically, you simply specify the 
number of buffers (BUFNO) and their length 
(BUFL) in the DCB macro for the line group 
that is to use the buffer pool. During the 
opening of the data control block, BTAM 
uses the operating system data management 
facilities to obtain main storage for the 
buffer pool, and then structures it. See 
Figure 10. 

Once a buffer pool has been constructed, 
you can either request buffers yourself, 
before the Read or Write operation that 
will use them (programmer buffering) , or 
let BTAM obtain them automatically (dynamic 
buffering) . 



PROGRAMMER BUFFERING 



To obtain buffers yourself, issue a REQBUF 
macro instruction, specifying how many you 
need. Then check the return code in regis- 
ter 15 to determine whether all of the buf- 
fers you requested, some of them, or none 
of them are available to you. If any are 
available, REQBUF provides, in a register 
you have designated, the address of the 
first buffer. Simply specify this address 
in the READ or WRITE macro instruction. In 
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the case of a WRITE macro, you move the 
message to be written into the buffers, 
beginning at the address of the first 
buffer. 

In moving an output message into a buf- 
fer chain, remember that each buffer begins 
with a fullword link field. You must fill 
each buffer individually, inspecting the 
link field each time to learn the location 
of the next buffer. The address of the 
buffer, plus four bytes, yields the address 
where the message data should begin. 

After you issue a REQBUF macro instruc- 
tion, the return code in register 15 may 
indicate that only some of the buffers you 
requested are available, or none of them. 

If some buffers are available, they are 
assigned to you. The address of the first 
one is in the register you designate, and 
register indicates how many of the buf- 
fers that you requested were unavailable. 

The action you take when the full number 
of buffers is not available depends on your 
application. Either use the number of buf- 
fers supplied (if any) and issue another 
REQBUF for the remainder; or, issue a 
RELBUF macro to release the ones supplied 
to you and reissue the REQBUF for the orig- 
inal number of buffers you requested. If 
the insufficient-buffer condition occurs 
infrequently, the cause is probably a 
momentary peak of activity on several lines 
at once. In this case, you will most like- 
ly obtain the buffers you need the next 
time you issue the REQBUF macro. On the 
other hand, frequent recurrence of this 
condition indicates that you should 
increase the number of buffers in the pool , 
as the amount of transmission activity on 
the lines using the pool exceeds the pres- 
ent capacity of the pool. 



READ OPERATIONS 



The first buffer for a Read operation may 
be obtained in one of two ways: either you 
supply the buffer yourself, by giving its 
address in the area operand of the READ 
macro, or you let BTAM provide the first 
buffer by coding 'S' as the area operand. 
BTAM places the address of the first buffer 
it obtains in the DECAREA field of the DECB 
for the line. This tells you where the 
received message begins. Regardless of 
which method you choose BTAM automatically 
obtains all subsequent buffers needed to 
contain the data being received. If you 
provide the first buffer yourself, BTAM 
automatically places the address of the 
first buffer it provides in the high-order 
fullword of your buffer and reads data into 
your buffer beginning at the second 
fullword. 

An advantage of supplying the first buf- 
fer yourself is that it need not be a buf- 
fer from the buffer pool; it can be an area 
you have defined in your program as the 
place where all incoming messages begin; 
this affords you the convenience of always 
beginning your message processing at the 
same main storage address. Another advan- 
tage is that this area can be small com- 
pared to the size of your buffers allowing 
short messages to be read into this small 
area rather than into a regular buffer. 
Improved buffer utilization results, espe- 
cially when the pool consists of a small 
number of large buffers. 

After each buffer is full, it is 
posted complete. The first word of each 
buffer is treated as an event control 
block (ECB). A completion code is set 
in the high-order byte of the ECB, and 
the address of the next buffer is placed 
in the three low-order bytes . 



DYNAMIC BUFFERING 

To be able to use dynamic buffering for 
a line group, you must specify BFTEK=D in 
the DCB macro instruction for the line 
group. Because channel programs differ for 
dynamic buffering and programmer buffering, 
and all lines in a line group use the same 
channel programs, you must use either 
dynamic buffering or programmer buffering 
for all lines in the group; you cannot use 
dynamic buffering for some lines, and pro- 
grammer buffering for others. 

Note : Dynamic buffering cannot be used 
for the local 3270 display system. If 
dynamic buffering is specified, the 
specification is ignored. 

Read operations and Write operations 
employ dynamic buffering somewhat 
differently. 



The user program may wait for the 
entire message block to be read by issuing 
a WAIT macro for the primary ECB, in the 
same manner as is done without dynamic 
buffer allocation. Alternatively, the 
user program may wait for each buffer 
to be posted complete. This is 
accomplished by obtaining the address 
of the first buffer from the DECB and 
using that address as the ECB address 
in a WAIT macro instruction. After the 
first wait completes, the user program 
may obtain the address of the second 
buffer from the chain address field of 
the first buffer and issue a WAIT macro 
instruction for the second buffer. 
Succeeding buffers are waited for in a 
similar manner. After each buffer 
completes, the user program must check 
for a zero chain address, which indicates 
that it is the last buffer in the chain. 
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As the Read operation progresses, BTAM 
obtains buffers successively until it 
detects the receipt of an ending character 
such as ETB, ETX, or EOT. When this 
occurs, BTAM does not obtain any more buf- 
fers. If by the time the ending character 
is received BTAM has obtained another buf- 
fer, BTAM releases that buffer automati- 
cally, unless the ending character is in 
the last byte of the current buffer. In 
this event, you must release the extra buf- 
fer yourself. You may check for this con- 
dition in one of two ways. 

1. Compare the residual count in the 
DECCOUNT field against the buffer 
length in the DCBBUFL field, minus 
four. If count and length-minus-four 
are equal, the last buffer BTAM 
obtained for the Read operation is 
unused. (This method cannot be used 
if the Read operation includes the 
Reset function, e.g., the Read Initial 
and Reset (TIR) option.) 

2. Test the last byte of the next-to-last 
buffer for an appropriate ending char- 
acter. If one is present, the last 
buffer is unused. 



When you detect an unused buffer, 
release it with a RELBUF macro ^and place 
zeros in the low-order three bytes of the 
high- order word of the next-to-last buffer 
(i.e. , the one containing the ending char- 
acter) , to indicate that this buffer is the 
last one in the chain. If you are waiting 
on buffers, do not release the unused 
buffer unti] it is posted. 



In the channel programs for Read opera- 
tions using dynamic buffering, each Read 
Text command is followed by a Read Skip 
command. When the Read Text command is 
executed, a program controlled interrupt 
(PCI) occurs. This causes BTAM to obtain 
another Duffer, place its address in the 



next Read Text command, and change the Read 
Skip command to a transfer-in-channel (TIC) 
command pointing to the next Read Text com- 
mand. When the first buffer is filled, 
incoming data begins filling the buffer 
just obtained. The same action occurs as 
each Read Text commanu is executed. 

The action just described represents the 
normal case in which BTAM is able to obtain 
the next buffer in time to receive data 
from the line. Occasionally, however, BTAM 
may be unable to obtain the next buffer in 
time. Should this occur, the Read Skip 
command following the Read Text command 
remains unchanged. The Read Skip receives, 
but does not place in main storage, all 
data received from the line after the cur- 
rent buffer is full. In this way, the line 
is cleared of incoming data. The Read 
operation ends when BTAM detects an ending 
character, posts the operation as normally 
completed (X'7F f ) in the event control 
block (DECSDECB) , and turns on bit 4 of 
DECFLAGS to indicate that part of the 
incoming message has been lost in the man- 
ner described. By checking this bit after 
each Read operation using dynamic buffer- 
ing, you can detect the condition and take 
appropriate action? normally, you would 
release the buffers and send a negative 
response in reply to the message, causing 
the remote station to resend it. 



As indicated under Programmer Buffering, 
frequent unavailability of buffers may be 
caused by a buffer pool that is too small 
to satisfy the demands made upon it. 
Increasing the number of- buffers should 
solve the problem. 

Caution : If the CPU is stopped while 
operations involving dynamic buffering are 
in progress, message data may be lost, as 
the program-controlled interrupts (PCI) 
required to obtain successive buffers are 
not handled when the CPU is stopped. 
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WRITE OPERATIONS 



Whereas in Read operations the main storage 
locations of individual buffers are unknown 
to the programmer until BTAM links them 
into a chain, in Write operations the chain 
must already have been formed from buffers 
whose locations and contents are known to 
the programmer. You must, therefore, 
always specify in the Write operation the 
address of the first buffer in the chain 
whose contents are to be transmitted. As 
the Write operation progresses , BTAM pro- 
vides to the operation the address of each 
of the remaining buffers in the chain. 

Normally, you will have obtained the 
buffers for the Write operation by means of 
a REQBUF macro; or you will have obtained 
them dynamically during a preceding Read 
operation, when you wish to send the same 
data you received during the Read. A Write 
operation ends when BTAM detects an ending 
character, or when all the data in the last 
buffer has been transmitted, whichever 
occurs first. The length you specify in 
the WRITE macro must be great enough to 
encompass the number of characters in the 
last buffer, including the ending character 
or character sequence ^ If, instead of 
specifying the length, you code ' S* as the 
length operand, the ending character must 
be in the last buffer in the chain. 

After each buffer is transmitted, it 
is posted complete, in the same manner 
as for Read operations. The user program 
may wait either for the entire message 
block to be transmitted or for each buffer, 
in the same manner as for Read operations. 
Once the message is successfully 
transmitted, the buffer chain can be 
returned to the pool with the RELBUF macro 
instruction. 



BUFFER MANAGEMENT MACRO INSTRUCTIONS 

REQBUF (Request Buffer) Macro Instruction 

REQBUF is used to obtain one or more buf- 
fers from a buffer pool that has been con- 
structed before or during opening of a line 
group data set. 

When you are using programmer buffering, 
you may issue a REQBUF macro to obtain one 
or more buffers in which data can be 
received from a line (Read operations) or 
in which to build or move an output message 
(Write operations) . 

When you are using dynamic buffering, 
BTAM automatically obtains buffers for Read 
operations, so you do not issue a REQBUF 
macro to obtain them. For Write opera- 
tions, however, use of REQBUF is the same 
as for programmer buffering. 



The buffers provided are not necessarily 
in consecutive main storage locations. 
They are chained together, the link field 
of each containing the address of the next. 
The link field of the last buffer in the 
chain contains zeros. 



T ___ T ! 

Name ( Operation i Operand ( 
1 + , 

[symbol] I REQBUF I dcbaddr ,returnreg , I 

1 ! [count] ' 

! 1 I 



dcbaddr 

Specifies the address of the data con- 
trol block with which the buffer pool 
is associated. 

returnreg 

Specifies a general register (2 
through 12) into which you wish BTAM 
to return the address of the first 
buffer to be provided. 

count 

Specifies the number of buffers you 
are requesting. 

If you specify one of the registers 
2 through 12, you must previously have 
loaded the count into the low-order 
byte of that register; the high-order 
bytes are ignored. 

If you specify register 0, you must 
previously have loaded the count into 
the high-order byte of the register; 
the low-order bytes must contain zero. 

If you omit this operand, BTAM pro- 
vides one buffer, i.e., the link field 
contains zero. 

Return Codes : After you issue a REQBUF 
macro, the low-order byte of register 15 
contains a return code indicating the 
result of the buffer request. (The three 
high-order bytes of the register contain 
zero.) The return code, in hexadecimal 
notation, is one of the following: 

00 Normal return . BTAM has provided the 
total number of buffers you 
requested. The return register con- 
tains the address of the first one. 

4 Partial fulfillment of request . You 
requested more buffers than are cur- 
rently available in the pool. All 
those available were provided. The 
return register contains the address 
of the first one. 

8 No buffers available . The buffer 

pool had been exhausted at the moment 
of your request. The return register 
and register contain zero. 

0C No buffer pool . The request cannot 
be filled because no buffer pool is 
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associated with the data control 
block you have specified in the 
macro. 

10 No buffer routine . The request can- 
not be filled because the BTAM buffer 
management routine has not been 
included in your program. (The rou- 
tine is automatically included if you 
have specified BFTEK=D in the DCB 
macro, or if the data control block 
contains the address of a buffer con- 
trol block. ) 

Programming Note ; If the buffer request 
was partially filled (return code is 04) , 
the low-order byte of register contains 
the count of the number of buffers not pro- 
vided. (The three high-order bytes contain 
zeros.) 

When the REQBUF macro instruction 
is used for the local 3270 display system, 
an entire message must fit into one buffer. 

RELBUF (Release Buffer) Macro Instruction 



pool to which the buffers are to be 
released. 

buf feraddr 

Specifies a general register (2 
through 12) into which you must pre- 
viously have placed the address of the 
first buffer to be released. 

Return Codes ; After you issue a RELBUF 
macro, the low-order byte of register 15 
contains a return code indicating the 
result of the operation. (The three high- 
order bytes of the register contain zeros.) 
The return code, in hexadecimal notation is 
one of the following: 

00 Normal return ; The specified buffers 
have been returned to the pool. 

04 Already returned ; The first buffer of 
the chain to be released has already 
been returned to the pool (or has never 
been obtained from the pool) . 



0C No buffer pool : The buffer release 
cannot be accomplished because no buf- 
fer pool is associated with the data 
control blocks you have specified in 
the macro. 



10 No buffer routine ; The buffer release 
cannot be effected because the BTAM 
buffer management routine has not been 
included in your program. 



RELBUF is used to return to the buffer pool 
one or more buffers obtained by a REQBUF 
macro or automatically during dynamic buf- 
fering. Failure to issue this macro in- 
struction following Read and Write opera- 
tions for which buffers have been obtained 
will ultimately result in exhaustion of the 
buffer pool. RELBUF releases each buffer 
in the chain, beginning with the one whose 
address you specify and ending with the one 

whose link field contains zero (i.e., the Programming Note : If you wish to release a 
last buffer) . different number of buffers than you 

obtained by a REQBUF macro or by dynamic 

i 1 r 1 buffering (assuming the first buffer to be 

i Name i Operation i Operand i released is the same as the first buffer 

i j j . ! that was obtained) , you will have to place 

S [symbol] | RELBUF j dcbaddr, buf feraddr [ zeros in the link field of the last buffer 

i j j. ._i you wish returned. Be sure to retain the 

address of the buffer that follows the last 
dcbaddr one you return, as it will become the first 

Specifies the address of the data con- of the remaining buffers in the original 

trol block associated with the buffer chain. 
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CODE TRANSLATION 



As pointed out in the first chapter, in the 
discussion of how information is repre- 
sented in various parts of a teleprocessing 
system, it is the programmer's responsibil- 
ity to perform code conversion between 
transmission code and the internal code of 
the central computer, if the application 
requires it. 



BTAM provides a translation routine and 
a set of translation tables that convert 
between EBCDIC and the transmission code or 
codes employed by the types of remote sta- 
tions supported by BTAM. Some terminal 
types can be furnished with any of several 
character sets; BTAM provides translation 
tables for the more common sets. (In most 
cases the sets vary by only a few charac- 
ters. ) When a remote station in your con- 
figuration uses a character set not direct- 
ly supported by a BTAM- provided translation 
table, you can easily modify an existing 
table to accommodate that station. Alter- 
natively, you can define an entirely new 
table (but do not give it the same name as 
a BTAM-provided table) . You must format 
any table you define according to the 
requirements of the System/360 Translate 
(TR) instruction (see the Principles of 
Operation manual) . 

If you wish to refer to a BTAM-provided 
translation table after assembling it into 
your program (for example, to modify the 
table via a MVC instruction or to use it in 
conjunction with the TR instruction) , you 
must refer to the table by the name 
IECTxxxx, where the x*s represent the four- 
character table name as shown in Table 4. 
In referring to the table with the TRNSLATE 
macro, however, you need specify only the 
four- character table name. Table 4 lists 
the translation tables provided by BTAM. 

At the end of this publication are two 
sets of code tables. Appendix H is a code 
correspondence chart that shows for each of 
the 256 EBCDIC bit patterns the correspond- 
ing character (and its transmission code 
bit pattern) to or from which the BTAM- 
provided translation tables convert the 
EBCDIC character. Full understanding of 
this chart requires that you read the 
explanatory maerial preceding it. 

Appendix I shows for each of the 256 
possible bit patterns in a System/360 byte 
the character represented by that pattern 
in each of the transmission codes and in 
EBCDIC. This chart is useful in interpret- 
ing the contents of main storage locations. 



ASMTRTAB (Assemble Translation Table) Macro 
Instruction 



ASMTRTAB assembles into a program one or 
more BTAM-provided translation tables. You 
may code all table names in one ASMTRTAB, 
and you need code only one ASMTRTAB regard- 
less of the number of lines and line groups 
for which the table is needed. Code the 
macro among the program constants, not in 
the middle of executable code. 



Note; The ASMTBTAB macro instruction 
is not used for the local 3270 display 
system. 

r t t 1 

| Name | Operation (Operand | 

j. + + < 

| (Omit) | ASMTRTAB | tablename, . . . | 
l x ^.j. J 

tablename 

Specifies the BTAM-provided transla- 
tion table or the table you wish to 
assemble into your program. Code any 
table name listed in Table 4. Table 
names may be coded in any sequence. 

Example : If you wish to perform code 
translation between EBCDIC and 1030 code, 
and between EBCDIC and TRANSCODE, code: 

ASMTRTAB RC30, SD30,RC80, SD80 



TRNSLATE Macro Instruction 



TRNSLATE translates data in main storage 
from transmission code to EBCDIC (for 
received data) or from EBCDIC to transmis- 
sion code (for data to be transmitted). 
Code TRNSLATE at each point in your program 
where translation is required. 



Note; The TRNSLATE macro instruction 
is not used to translate between 
transmission code and EBCDIC for the local 
3270 display system. 



r t t 1 

| Name | Operation | Operand | 

j. + + i 

j [symbol] | TRNSLATE | [dcbaddr] , tablename, j 
| | | area, length | 

l x x J 
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dcbaddr 

Specifies the address of the data con- 
trol block for the line group. This 
operand is required if you code the 
length operand as ' S' ; otherwise, it 
ma/ be omitted. 

tablenarae 

Specifies the four-character name 
(e.g., RC50) of the BTAM-provided 
translation table to be used* or the 
name of your own translation table. 
(You must have previously assembled 
the indicated table into your 
program.) 



area 



Specifies the address of the main 
storage area in which the data to be 
translated is located. If dynamic 
buffering is used for the line group 
involved, the address specified by 



area must be a fullword boundary. If 
you use TRNSLATE to translate a chain 
of buffers you have defined, those 
buffers must be formatted and chained 
just like BTAM-provided buffers: the 
first fullword of each buffer contains 
the address of the next buffer (except 
that the first fullword of the last 
buffer contains zeros) . Each buffer 
must begin on a fullword boundary. 



length 

Specifies the number of bytes to be 
translated, from 1 to 32,767. If you 
wish to translate the contents of a 
chain of buffers, code 'S' as the 
length operand. This causes the 
translate routine to use the buffer 
length given in the data control 
block. 



Type of Remote Station 



Transmission Code 



Table Name 



For incoming messages: 

(Translation from transmission code to 

EBCDIC): 

IBM 1030 

IBM 1050 

IBM 1060 

IBM 2260 



IBM 2740/2741 



EBCD/PTTC 
EBCD/PTTC 
BCD/PTTC 
USASCII 

BCD/PTTC 
{ EBCD/PTTC 

Correspondence code 



IBMS/360(incl. Model 20) 
IBM System/3 
IBM 2770 

IBM 2780 

Remote IBM 3270 

AT&T83B3, WU 115A 

WUTWX (Models 33,35) 

World Trade Telegraph 
terminals 




Table 4. Code Translation Tables Provided by BTAM (Part 1 of 2) 
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Type of Remote Station 


Transmission Code 


Table Name 


For outgoing messages (translation from 
EBCDIC to transmission code): 








IBM 1030 


EBCD/PTTC 


SD30 




IBM 1050 


EBCD/PTTC 


SD50 




IBM 1060 


BCD/PTTC 


SD60 




IBM 2260 


USASCII 


SSCI 




IBM 2740, 2741 


f BCD/PTTC 
/ EBCD/PTTC 
1 Correspondence code 


SB40 
SD40 
SD41 




IBM S/360 (incl. Model 20) 


USASCII 


SASA 




IBM System/3 


USASCII 


SASA 




IBM 2770 


USASCII 


SASA 




IBM 2780 


f USASCII 

^ 6-bit Transcode 


SASA 
SD80 




Remote IBM 3270 


USASCII 


SASA 




AT&T 83B3, WU 115A 


Baudot code 


SCT1 




WU TWX (Models 33,35) 


TWX code 


SCT2 




World Trade Telegraph Terminals 


C ZSC3 
V ITA2 


SCT3 
SCTW 




1. Translation tables marked * convert both uppercase and lowercase alphabetic characters to uppercase EBCDIC ec 
(e.g. , both A and a are converted to A); tables not so marked convert uppercase to uppercase and lowercase to 
(e.g. , A to A and a to a). 


uivalents 
owercase 


2. Transmission code abbreviations used above: 
BCD = binary coded decimal 
EBCD = extended binary coded decimal 
PTTC = perforated tape and transmission code 
USASCII = USA Standard Code for Information Interchange 
ZSC3 = Figure Protected Code 
ITA2 = International Telegraph Alphabet No. 2 






3. See General Note in Appendix H for discussion of TWX code parity. 







Table 4. Code Translation Tables Provided by BTAM (Part 2 of 2) 
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ACTIVATING AND DEACTIVATING THE TELEPROCESSING SYSTEM 



The operations performed by a user*s tele- 
processing program preparatory to data 
transmission is called activating the sys- 
tem. Similarly, deactivating the system 
refers to the operations performed after 
all transmission has ceased. These opera- 
tions largely consist of opening (activat- 
ing) and closing (deactivating) the com- 
munications line group data sets. 



code the second operand as DEVD=WT. If the 
system includes both kinds of stations, 
code DEVD=(BS,WT) . 

Code the DCBD and IECTDECB macros at the 
end of the control section (CSECT) in which 
they appear. 



r 

YOURPROG CSECT 



— 1 



PROGRAM INITIALIZATION 



Before activating the TP system you must 
first perform the usual initialization 
steps required of any program that runs 
under the System/360 Operating System. 
These are as follows: 

1. Using a SAVE macro instruction (or a 
Store Multiple instruction) , store the 
contents of the general registers you 
will use in your program in a register 
save area, the address of which is in 
register 13 upon entry to your 
program. 

2. Store the contents of register 13 in 
the second fullword of a save area you 
have defined in your program. 

3. Load the address of your program's 
save area into register 13. (Save 
areas are required by most system 
macro instructions.) Unless you 
require register 13 for other pur- 
poses, you need to load it only at the 
beginning of your program. 

See Figure 12 for an example of the 
foregoing linkage. More detailed informa- 
tion on the use and format of register save 
areas and on linkage conventions is con- 
tained in the OS Supervisor services Guide, 
GC28-6646 and the OS Data Management Ser- 
vices Guide, GC26-3746. 

In addition to these initialization 
steps, you should create dummy control sec- 
tions (DSECTs) for the data control blocks 
and data event control blocks in your pro- 
gram, to allow you to refer symbolically to 
fields in these control blocks. To create 
these DSECTS, use the DCBD and IECTDECB 
macro instructions as shown in Figure 11. 
If the TP system includes BSC stations, a 
second operand, DEVD=BS, must appear in the 
DCBD macro; similarly, if the system 
includes World Trade telegraph terminals. 



USING IHADCB,DCBREG 
USING IECTDECB, DECBRES 



DCBD DSORG=BX 
IECTDECB 

I J 

Figure 11. Establishing Addressability for 
DCBs and DECBs 



OPENING AND CLOSING LINE GROUP DATA SETS 



Before you can perform data transmission 
operations over a line, you must open, or 
activate, the line group data set encom- 
passing that line, by means of an OPEN 
macro instruction. When you issue an OPEN 
macro, an OPEN routine establishes and 
initializes various internal control 
blocks, and loads from the system library 
those routines and tables needed for BTAM 
to construct the channel programs required 
by subsequent READ and WRITE macros. The 
Open routine also "conditions" the communi- 
cations line adapters within each transmis- 
sion control unit (TCU) associated with the 
line group. Conditioning a line adapter 
makes the line attached to it ready for 
data transmission. 

The fact that you have issued an OPEN 
macro does not guarantee that the line 
group is open. The DCB for the line group 
has a bit, called the Open flag, that you 
can check to determine whether the line 
group is open. The Open flag is bit 3 of 
the DCBOFLGS field; if it equals 1, the 
line group is open. 

If after you issue the OPEN macro, the 
Open flag is still 0, there is probably a 
coding error; most likely, the DD (data 
definition) card for the line group con- 
tains the wrong line group name. 
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Figure 12. Initializing Your Program 



Even if the open flag is 1, however, one 
or more lines in the line group can be 
unready for transmission because the line 
adapter was not successfully conditioned. 
If this occurs because the TCU power is off 
or if the TCU is off-line, the operating 
system prints, on the console, error mes- 
sage IEC804A, and enters Wait state. This 
message identifies the condition and 
requests a response from the console 
operator. 

He replies CONT (Continue) if he wishes 
the Open function to be retried, POST if he 
does not. The usual procedure is to 
correct the abnormal TCU condition, then 
reply CONT. Or, he may ignore the condi- 
tion and reply POST, so that the user pro- 
gram can proceed with operations on unaf- 
fected lines. 

The console message is issued only if 
the line adapter to be conditioned was 
caused by a TCU power-off or off-line con- 
dition. If unsuccessful conditioning 
occurs for some other reason (e.g., TCU 
malfunction) , the fact that the line has 
not been opened becomes evident when the 
first READ or WRITE macro issued for that 
line results in a return code of X'14'. 
For this reason, the user program should 
check for this return code after the first 
READ or WRITE macro following opening of 
the line. 

BTAM provides the LOPEN (Line Open) 
macro instruction for use in opening (i.e., 
conditioning the line adapter for) a single 
line in a line group. LOPEN is intended 
for use following a return code of x'm*. 

Depending on your application, you may 
wish to open all line groups at once, or to 
open different groups at successive inter- 



vals during the day. Opening line groups 
at different times would be appropriate, 
for instance, when the remote stations con- 
nected to one group are located in a dif- 
ferent time zone from those connected to 
another group. 

After completion of data transmission 
over all lines in a line group, you may 
close the line group by means of a CLOSE 
macro instruction. If BTAM provided a buf- 
fer pool during opening of the line group 
(see the Buffer Management chapter), you 
must issue the CLOSE macro only after you 
have no further use for the contents of any 
of the buffers in that pool. This is 
necessary because when you close the line 
group, BTAM relinquishes the main storage 
area Occupied by the pool, and various 
pointers to buffers no longer exist. 



OPEN Macro Instruction 



OPEN completes the initialization of the 
data control block representing the line 
group data set, builds a buffer pool, if 
you specify in the DCB macro that this be 
done, and loads from the system library 
those routines and tables necessary for 
BTAM to construct the appropriate channel 
programs. As explained earlier, the Open 
routine also conditions each transmission 
control unit line adapter connected to a 
line in the group. 

See Figure 13 for the format of the OPEN 
macro instruction. 

A single OPEN macro can activate any 
number of line groups and any other data 
sets defined in your program, including 
those for other access methods. 
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Example : To open two line group data sets 
and three BSAM data sets (one on magnetic 
tape, two on direct access devices) , you 
could code a single OPEN macro as follows: 



J0PEN1 OPEN (LG1050, ,LG2740, , j 
| TAPELOG, (OUTPUT) , | 

I MSGFILE1 , ( INOUT, LEAVE) , | 

I MSGFILE2, (OUTPUT)) j 

L j 

LG1050 and LG2740 are the two line group 
data sets; the second comma following each 
of these operands indicates the absence of 
volume- positioning option parameters, which 
are not appropriate for communications line 
groups. The remaining operands are repre- 
sentative of data set addresses and volume- 
positioning options for the three BSAM data 
sets. (See the Supervisor and Data Manage- 
ment Macro Instructions publication for 
information on coding OPEN macros for non- 
line group data sets.) 

No return code is provided following an 
OPEN macro instruction; as explained earli- 
er, you should check the Open flag in the 
DCB to see if the line group was success- 
fully opened. 



LOPEN Macro Instruction 



LOPEN causes BTAM to issue commands that 
condition the transmission control unit 
line adapter for a specific line, when con- 
ditioning of the adapter was not successful 
during opening of the line group. It is 
appropriate to issue LOPEN after receiving 
a return code X'14* following issuance of a 
READ or WRITE macro for the line. LOPEN 
causes the appropriate command (Set 
Address, Set Mode, or Enable) to be sent to 
the line adapter. 

(LOPEN may also be used to reestablish 
data set synchronism for a line using an 
IBM 3977 Model 2 modem (data set), as fol- 
lows. When the modem loses synchronism, 
transmission errors (i.e., a NAK response 
from the remote station or a time-out 
error) will occur during Write operations. 
When errors of these kinds occur, it is 
appropriate to issue an LOPEN macro, which, 
by disabling the line and then enabling it 
or setting the mode, causes the modem to 
regain synchronism.) 

j Name j Operation! Operand j 

| [symbol] j LOPEN jdecbaddr j 

l x x J 



decbaddr 

Specifies the address of the data 



event control block associated with 
the line. 



Programming Note : You should not issue a 
LOPEN macro from within a timer exit, since 
LOPEN uses the STIMER macro. 



Return Codes : Upon return of control to 
your program, the low-order byte of regis- 
ter 15 contains a return code. Normal com- 
pletion is indicated by X'OO*. Abnormal 
completion is indicated by the following 
codes (hexadecimal) : 

04 The line was not successfully 
opened. 

08 The specified line is busy. 

0C The relative line number specified 
in the data event control block is 
larger than the number of lines in 
the line group. 

10 The DCB for the line group is not 
open. 

14 The reguest was rejected, because 

OLTEP was using the local 3270 device. 

Only the first and last of these 
abnormal return codes, 04, and 14 will 
be encountered in a debugged user program; 
the other three result from program errors. 
If a code of 04 is returned after you 
issue an LOPEN macro, you may wish to 
notify the console operator that he should 
check the condition of the affected 
transmission control unit. 

CL OSE Macro instruction 

CLOSE terminates the availability of a line 
group data set; frees the main storage 
space occupied by the buffer pool, if the 
pool was constructed by the Open routine; 
and frees, the main storage space obtained 
by the Open routine for control blocks. 
CLOSE also causes the fields in the data 
control blocks to be restored to the condi- 
tion they were in before the DCB was 
opened. Just as OPEN causes the TCU line 
adapters associated with the line group to 
be conditioned for use, CLOSE cancels the 
conditioning. For this reason, if you 
issue a CLOSE macro instruction while data 
transfer is still in progress over one or 
more lines in the line group, unpredictable 
loss of data can result. You should there- 
fore close the line group only after all 
message traffic has ceased. See Figure 13 
for the format of the CLOSE macro. 

A single CLOSE macro can deactivate any 
number of line groups and any other data 
sets defined in your program (including 
those for other access methods) , in the 
same way an OPEN macro can activate them. 
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r- t t 1 

I Name | Operation! Operand | 

j. +,- _ + „__— H 



y ____x___„_ x _ _ _ i 

symbol 

Specifies: 

• For standard or execute macro format, the name of the 
first instruction generated by the macro. For these for- 
mats the use of symbol is optional. 

• For list format, the name of the parameter list created 
by the macro. For this format, you must specify a name. 



(symbol] | JoPEN I |({dcb,,} ),fMF=L "I 

| /CLOSE ( | LMF= (E, list name ij 



deb 



Specifies the name of the line group data set you wish to 
open or close. 



MF=L (List format) 

Specifies that a parameter list is to be created, containing 
the names of the data control blocks to be opened or closed. 
The function is not performed until you issue an OPEN or 
CLOSE macro of the execute format specifying the name of the 
parameter list. 

MF=(E, list name) (Execute format) 

Specifies that the open or close function is to be executed 
for the data sets contained in the parameter list specified 
by listname. You must previously have created the list with 
an OPEN or CLOSE macro of the list format (MF=L). If you 
wish to override certain parameters in the list, specify 
replacement parameters in the macro having the execute for- 
mat, code the replacement parameters in the positions corre- 
sponding to the locations of the parameters to be overridden. 

(Standard format - MF operand omitted) 

Specifies that both (1) a parameter list is to be created, 
containing the names of the data control blocks to be opened 
or closed, and (2) the open or close function is to be 
executed for the data sets contained in the created parameter 
list. 



Example: 



OPENLIST OPEN (LG1050, , LG2740, , LG1130) ,MF=L 



OPEN (,,LG2260) ,MF=(E, OPENLIST) 

The first macro creates a list; the second executes the Open function 
for data sets LG1050, LG2260, and LG1130. 

Once you have defined a parameter list by either an OPEN or a CLOSE 
macro of the list or standard format, you may subsequently specify 
that list by both OPEN and CLOSE macros of the execute format. 

L . , . 

Figure 13. Formats of OPEN and CLOSE Macro Instructions 
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LINE CONTROL AND MESSAGE TRANSMISSION 



LINE CONTROL 

Communication between the central computer 
and remote stations requires a discipline 
called line control, as mentioned earlier 
in this publication. Given nere is a sum- 
mary of the control scheme used for various 
line configurations and types of remote 
stations. 

Line control does not apply to the 
local 3270 display system, which uses 
attention interruptions to regulate 
communications between the central computer 
and local display stations. For more 
information, see "Attention Interruptions 
and Read Initial Operations" in the section 
"IBM 3270 Display System - Programming 
Considerations." 

Contention System 



In the most elementary form of line control 
each of the two stations at the ends of a 
point-to-point communications line gains 
use of the line by sending to the other 
station a special control character signi- 
fying the station's intention to begin 
transmission. The first station to initi- 
ate contact in this manner "seizes" the 
line and prevents its use by the other sta- 
tion until the first station has concluded 
its message transmission. If both stations 
should simultaneously try to initiate 
transmission, they are said to be contend- 
ing for use of the line, hence the name 
contention system. In this kind of system 
some method is required for resolving a 
contention situation. 

The action of requesting use of the line 
is sometimes called bidding for the line. 

Centrally-Controlled System 



In this kind of system, the central comput- 
er acts as a control station. That is, it 
initiates all contacts between all stations 
on a multistation (multipoint) line. It 
does this by periodically sending on the 
line a series of station identifiers, 
called polling characters or polling 
sequences. Each station on the line has a 
different polling sequence. Thus, although 
all stations receive all polling sequences, 
each station responds only to its own. 
This response indicates to the control sta- 



tion* (the central computer) whether or not 
that remote station is ready at that moment 
to send a message. It sends a positive 
response if it is ready, a negative 
response if it is not. For some types of 
stations the polling sequence identifies a 
specific component of the station, as well 
as the station itself. In this case, the 
response indicates whether or not that par- 
ticular component is ready to send a 
message . 

Similarly, when the control station 
wishes to send a message to a remote sta- 
tion, it transmits an identifier sequence 
on the line. This is called addressing, or 
selection. Again, all stations receive the 
addressing characters, but only one 
responds. The addressed station returns to 
the computer a positive response if the 
station (and perhaps a specific component) 
is ready to receive a message. 

In a system of this kind, the stations 
can be in one of two modes: control mode 
and text mode. The stations are all in 
control mode before a transmission begins, 
and in this mode they monitor the line for 
polling and addressing sequences. When a 
polled or addressed station responds posi- 
tively, message transmission between the 
central computer and the remote station can 
begin. At this point, it is necessary to 
place all stations in text mode, so that 
any characters received by any station 
except the polled or addressed station are 
ignored. (If the other stations remained 
in control mode, any sequence of message 
characters that happened to constitute a 
polling or addressing sequence for one of 
the stations would activate that station.) 
Accordingly, each message begins with a 
special control character whose purpose is 
to cause the stations to enter text mode. 
Two characters used for this purpose are 
EOA (end of address) and STX (start of 
text) . The type of station on the line 
determines which character is used. 

At the end of a transmission, all sta- 
tions on the line must be returned to con- 
trol mode so that they can again respond to 
polling and addressing sequences. Another 
character or character sequence, called 
end-of-transmission (EOT),, performs this 
function. 

The function of returning the stations 
to control mode is often called resetting 
the line. 
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Switched Systems 



In a switched system, contact must be es- 
tablished by one or the other of two sta- 
tions: the central computer or the remote 
station. In some switched configurations 
either the computer or a remote station can 
call the other station; in others, only one 
or the other of these can make the call. 
User requirements determine which case 
applies. 

When the computer initiates contact with 
the remote station, it performs the calling 
function, when it answers a call from a 
remote station, it performs the answering 
function. 

Although a remote station can call the 
central computer at any time, the computer, 
to fulfill its function as control station, 
must be able to accept or reject a call. 
If it wishes to accept calls, it "enables 
the line", that is, conditions the trans- 
mission control unit to respond to calls 
over the given switched line termination. 
The user program determines which lines are 
to be enabled at any given moment. Con- 
versely, to return the TCU to the state in 
which it will not respond to (i.e., answer) 
calls is called disabling the line. 

If a remote station calls in on a line 
that is not currently enabled, or that is 
enabled out is occupied with another remote 
station, the calling station receives a 
busy signal, and contact is not estab- 
lished. The station must try again later. 

Once the line connection is established, 
one of tne preceding line control schemes 
— contention or centrally controlled — 
takes effect just as on a nonswitched line. 
The scheme used is the same as that used 
for a nonswitched line for tne particular 
type of stations involved. 



ERROR DETECTION AND MESSAGE BLOCKING 



Line control may also involve detection of 
transmission errors. For the types of 
remote stations for which this is possible, 
a character called end-of -transmission- 
block (ETB) (also called EOB, end-of-block) 
is sent following a sequence of text char- 
acters; this sequence is then called a mes- 
sage block . Whenever the sending station 
senses an ETB in the data it is sending, it 
follows that ETB with a check accumulation 
(VRC, LRC, or cyclic) and awaits a response 
from the receiving station. The receiving 
station compares the check character with 
the check character it has accumulated. If 



they match, indicating that it received the 
text witnout error, it sends a positive 
response (or acknowledgment) to the sending 
station. If they do not match, indicating 
a transmission error has occurred, it sends 
a negative response (acknowledgment) to the 
sending station. A positive response indi- 
cates that the sending station may continue 
with the Tiext message block; a negative 
response tells it to resend the erroneous 
block. 



CHANNEL PROGRAMS 



The various line control functions are 
achieved by the central computer through a 
combination of equipment and programming. 
Generally, each discrete function, such as 
enabling or disabling the line and reading 
and writing message text and responses is 
effected by separate channel commands that, 
when combined in appropriate sequences in a 
channel program, perform the overall line 
control actions needed to establish con- 
tact, transmit messages and check for 
errors. Channel programs are generated by 
BTAM as directed by the READ and WRITE 
macro instructions issued in the user 
program. 



MESSAGE TRANSMISSION 



All message transmission is effected by 
Read and Write operations of various 
kinds, which in turn are produced by 
coding eguivalently named macros in the 
user program. (For information about 
Read and Write operations for the local 
3270 display system, see the section "IBM 
3270 Display System - Programming 
Considerations.") 

A Read or Write Initial operation estab- 
lishes contact with the remote station and 
receives or sends the first message block. 
In establishing Contact, the operation per- 
forms whatever functions are appropriate. 
That is, for a nonswitched line in a con- 
tention system, Read Initial first sends 
the character that signifies to the receiv- 
ing station that the line is being seized 
by the sending station. In a centrally 
controlled system, the first function is to 
send a character or sequence that places 
all stations in control mode, as explained 
earlier. For a switched line. Read Initial 
either enables the line, if the operation 
is to continue when a remote station calls 
in, or it dials the remote station. 

Following execution of whichever of the 
foregoing functions is appropriate, polling 
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may take place, if required by the type of REA j) or WRITE Continue macro instructions 
station involved. Then the first block of as necessary to receive or send the remain- 
the message is read or written. i ng blocks of the message. 

Once a Read or Write Initial operation 
has concluded, you generally issue as many 



OS BTAM SRL 54.1 



If a Read operation receives an 
erroneous message block, you may undertake 
Read Repeat operation; the negative 
response sent by Read Repeat signifies to 
the remote terminal operator or to the 
remote computer program that he, or it, 
should resend the block in error. 



Sometimes it is desirable to reverse the 
direction of message transmission during 
one transaction, or to exchange the roles 
of the receiving and sending stations. 
Read and Write Conversational operations 
permit this. 

In binary synchronous communications it 
is sometimes desirable to send data in 
transparent mode. This means that any 
transmission code bit pattern can be sent 
as data, whereas in normal transmission 
certain patterns are recognized and 
responded to as line control characters. 
Read and Write transparent operations are 
available for this purpose. 

These various operations can be combined 
in several ways. Inspection of the Read 
and Write operations for a specific type of 
remote station and line configuration will 
illustrate some of these ways. 

Although in coding a user program, it is 
not usually necessary to understand all the 
details of the various commands that make 
up a channel program, each command is 
explained fully in the SRL publications 
pertaining to transmission control units. 
These publications are listed at the front 
of this manual. 



An operation may end successfully, but 
with some exceptional condition. For 
example, a sequence of Read operations will 
end when a remote station sends an EOT 
after having sent a number of blocks of 
text. Since the user program probably does 
not know when to expect the last block of 
text, if message lengths vary,, it should 
check after every Read operation for 
receipt of an EOT, which is considered an 
exceptional condition. 

Some operations will end unsuccessfully, 
with an error condition of some kind, such 
as a parity error (data checks) in text or 
an invalid response. Again, the user pro- 
gram must analyze the results of each Read 
or Write operation to see if an error con- 
dition has occurred. 

BTAM provides error recovery procedures 
(ERP) for automatically attempting to reco- 
ver from errors. These are optional for 
start-stop lines, mandatory for BSC lines. 
It is only after BTAM ERP has attempted re- 
covery and failed that the error condition 
is indicated to the user program. If ERP 
is successful in clearing the condition, 
BTAM posts the operation complete-without- 
error, and the user program is unaware that 
the error has occurred. 

The chapter, Error Recovery Procedures 
and Error Recording, discusses the BTAM ERP 
facilities and suggested user analysis 
procedures. 



Use of Line Control Characters 



User Program Analysis 



Upon completion of each Read or Write 
operation, the user program must analyze 
the results of the operation to determine 
which Read or Write operation to perform 
next. Where the operation was successful 
and either message text or some expected 
response was received, the decision about 
the next operation depends largely on the 
kind of application. Sometimes, it may 
depend on the content of the received text 
For example, in an application that 
involves transmission of fairly long mes- 
sages, it is common practice to break the 
message into sequences of message blocks . 
It is then appropriate to send or receive 
the first block using a WRITE or READ Ini- 
tial macro instruction, or one of the 
variants, such as WRITE Initial Trans- 
parent, for BSC, and then send or receive 
the rest of the blocks with WRITE or READ 
Continue macros, or variants. 



To achieve successful communication with 
any given type of remote station requires 
that the data stream between the central 
computer and the remote station contain the 
appropriate line control (also called data 
link control) characters and character 
sequences. A BTAM programmer must be con- 
cerned with the proper use of these charac- 
ters. In message data received from a 
remote station, you may need to scan the 
input areas to determine the locations of 
control characters, and perhaps to remove 
them. In message data to be sent to a 
remote station, however, you must assure 
yourself that these characters are sent at 
the appropriate point in the transmission. 
Some control characters are sent automati- 
cally by BTAM, in a separate command within 
a channel program. Others you must place 
in the message output area. For example, 
when using a transparent-type Write opera- 
tion to send data in transparent mode 
(i.e., to prevent the control units at the 
central computer and remote station from 
reacting to bit patterns that correspond to 
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line control characters), you must place 
the DLE STX character sequence in the out- 
put area at the point where transparent 
transmission is to begin. You do not, 
however, place the ending sequence, DLE ETX 
(or DLE ETB) , in the output area because, 
as inspection of the channel program shows, 
the command following the Write Text com- 
mand sends these characters. 



minal list you must define for Read and 
Write operations and shows what operands to 
code in the DFTRMLST operand field to 
obtain that list. See the explanation of 
the DFTRMLST macro for the meanings of the 
operands, and see Appendix A for format 
illustrations and examples. 



It is most important to be familiar with 
the usage of line control characters for 
the type of remote station for which you 
are coding Read and Write operations. The 
line control characters and their proper 
usage are defined in the Systems Reference 
Library publications pertaining to the 
various types of stations, and, in the case 
of binary synchronous communications, in 
the General Information publication for 
BSC. (These publications are listed in the 
Preface of this publication. ) Line control 
character usage may vary depending on par- 
ticular features or combination of features 
with which the stations are equipped. 

The next two chapters of this publica- 
tion contain descriptions of the READ and 
WRITE macro options available for each of 
the types of remote stations with which the 
central computer can communicate under BTAM 
control. In Start- Stop Read and Write 
Operations, these descriptions are arranged 
by type of station. In BSC Read and Write 
Operations, they are arranged by type of 
line configuration. This is done because 
the channel program for each type of opera- 
tion is the same for any type of station 
(for a given line configuration). 

The Reset Function ; For many of the Read 
and Write operations listed there is an 
optional reset function. This simply means 
that if the Read or Write operation has 
progressed satisfactorily up to that point 
(i.e., message text was received or sent 
without error) , one or two additional com- 
mands are executed that reset the station 
to control mode, and, for switched line 
operations, that break the line connection. 
This is the only difference between a reset 
and a non-reset operation, and for this 
reason is not stated explicitly in each 
description. The reset function is not 
performed if a permanent error occurred 
during the operation. 



Terminal Lists 



The description of the DFTRMLST macro in- 
struction earlier in this publication 
explains all of the operands of that macro. 
In the next two chapters, each section cov- 
ering a type of remote station or a line 
configuration indicates which type of ter- 



Data Event Control Block 



The parameters BTAM needs to perform a Read 
or Write operation are contained in a data 
event control block (DECB). Some of these 
parameters are: 

• The type of Read or Write operation 
(e.g., Initial, continue. 
Conversational) ; 

• The address of the data control block 
(DCB) for the line group encompassing 
the line over which the operation is to 
take place; 

• The relative line number of the line 
involved; 

• The address of the terminal list entry 
containing the information necessary to 
establish contact with the remote sta- 
tion; and 

• The addresses of the input or output 
areas to contain the message text. 

The DECB also contains fields in which 
the results of the Read or Write operation 
are indicated. Among these fields are: 

• An event control block (ECB) , in which 
a standard completion code is placed 
upon conclusion of the Read or Write 
operation; 

• A response field (DECRESPN) , into which 
responses from the remote station to 
polling and addressing are received; 
and 

• Fields containing specific indicators 
of the results of the operations : 
DECSENSO (sense information) ; DECFLAGS 
(condition flags) ; DECERRST (error sta- 
tus) and DECCSWST (channel status word 
status byte ) . 

The format of the DECB and the contents 
of its fields are given in Appendix B. 

One DECB is required for each communica- 
tions line; more than one can be provided, 
if desired. 

DECBs are created by READ and WRITE 
macro instructions as follows. A macro of 
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the list form (specified by the keyword 
operand MF=L) reserves space for a DECB and 
fills in certain of its fields with the 
parameters provided by the macro. This is 
done at assembly time, and is the sole 
function of the list form macro. That is, 
the macro does not perform a Read or Write 
operation. If you define a DECB in this 
way, you must code the macro among the pro- 
gram constants (or create your own linkage 
around it) , since a macro of the list form 
does not generate executable code. 

In order to perform a Read or Write 
operation using a DECB created by the list 
form of the macro, you issue a READ or 
WRITE macro of the execute form, specified 
by the MF=E keyword operand. This form of 
macro does not establish a DECB; it 
executes the Read or Write operation using 
an existing list. In this macro you may 
specify which, if any, of the parameters in 
the original DECB you wish to change. For 
example, if you wish to issue a series of 
WRITE macro instructions, all of which 
require the same DECB parameters except for 
the entry parameter, it would be appropri- 
ate to issue one WRITE (or READ) macro of 
the list form to establish the DECB. Then 
you would code the other WRITE macros in 
the execute form, and in each one specify 
only the entry operand, of those operands 
that are optional. 

An alternate method is to code the stan- 
dard form of the READ or WRITE macro in- 
struction, by omitting the MF keyword 
operand. A macro of this type generates 
both a DECB and the executable code 
required to perform the Read or Write 
operation. 

Just as you issue a macro of the execute 
form referring to a DECB defined by a macro 
of the list form, you may issue an execute- 
form macro that refers to a DECB generated 
by a previous macro of the standard form. 

An important point to remember in using 
the same DECB for a sequence of Read or 
Write operations is that the contents of 
many of the fields will change with each 
issuance of a macro or execution of a Read 
or write operation. This means that at the 
conclusion of each Read or Write operation 
you should do whatever checking of DECB 
fields is necessary before you issue the 



next macro that will refer to the same 
DECB. 

Not all of the READ and WRITE macro 
operands are optional. Regardless of the 
macro form, you must provide the address of 
the DECB and the operation type. In the 
standard form you must always code the DCB 
address and the relative line number. 



READ and WRITE Macro Instructions 



READ and WRITE macro instructions produce 
the Read and Write operations that achieve 
message transmission. You issue one of 
these macro instructions each time you wish 
to receive a message from a remote station, 
send a message to a remote station, or per- 
form any of several other functions related 
to message transmission, such as sending 
and receiving responses, disabling or dis- 
connecting a switched line, etc. 

In the READ or WRITE macro you specify: 

• The line group and specific line within 
that group over which the operation is 
to occur. 

• The address of a terminal list, or an 
entry in that list, that contains the 
information BTAM needs to establish 
contact with a station. Examples of 
this kind of information are telephone 
numbers, polling and addressing 
sequences, and identification 
sequences. 

• The type of Read or Write operation to 
be performed (Read Initial, Write Con- 
tinue, etc. ) 

• The address of the data event control 
block (DECB) that the READ or WRITE 
macro is to define, or the address of 
an existing DECB that the operation 
will use. 

• The addresses of input and output areas 
into which or out of which message text 
is to be received or sent. 

Each of these parameters is discussed in 
the explanation of the operands. 
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Table 5. READ and WRITE Options for Start-Stop (Part 1 of 2 ) 



OPTION 


TYPE 
CODE 


1030 


1050 
(nohsw) 


1050 
(switched) 


1060 


2260 


83B3 
115A 


TWX 
33/35 


WT 
Teleg. 


READ Initial 


Tl 


X 

Note 


X 
Note 


X 


X 

Note 


X 


X 


X 


X 


READ Initial with Reset 


TIR 


X 
Note 


X 
Note 


X 


X 
Note 


X 




X 




READ Continue 


TT 


X 
Note 


X 


X 


X 
Note 


X 






X 


READ Continue with Reset 


TTR 


X 
Note 


X 


X 


x 

Note 


X 








READ Continue with Leading 
Acknowledgment 


TTA 


















READ Continue with ID Exchange 


TE 
















X 


READ Conversational 


TV 






X 






X 






READ Conversational with Reset 


TVR 






X 






X 






READ Repeat 


TP 


X 
Note 


X 


X 


X 
Note 


X 








READ Repeat with Reset 


TPR 


X 
Note 


X 


X 


X 
Note 


X 








READ Buffer 


TB 










X 








READ Buffer with Reset 


TBR 










X 








READ Skip 


TS 


X 


X 


X 


X 


X 


X 


X 




WRITE Initial 


Tl 


X 


X 


X 


X 


X 


X 


X 


X 


WRITE Initial with Reset 


TIR 


X 


X 


X 


X 


X 


X 


X 




WRITE Initial Optical 


TIO 


















WRITE Invitational Optical 


TCO 


















WRITE Continue 


TT 


X 


X 


X 




X 






X 


WRITE Continue with Reset 


TTR 


X 


X 


X 




X 








WRITE Continue Conversational 


TTV 




X* 


X 












WRITE Conversational 


TV 






X 






X 






WRITE Conversational with Reset 


TVR 






X 






X 






WRITE Conversational Optical 


TVO 


















WRITE at Line Address 


TL 






X 




X 








WRITE at Line Address with Reset 


TLR 










X 








WRITE Erase 


TS 










X 








WRITE Erase and Reset 


TSR 










X 








WRITE Break 


TB 












X 






WRITE Positive Acknowledgment 


TA 


X 


X 


X 


X 


X 








WRITE Negative Acknowledgment 


TN 


X 


X 


X 


X 


X 




X 




WRITE Disconnect 


TN 



















Note: Options for which Auto Poll channel programs are generated if the IODEVICE system generation macro instruction for the time 
specified FEATURE=AUTOPOLL. 

•Write TTV cannot be used if Auto Poll is specified (i.e., FEATURE=AUTOPOLL in IODEVICE macro for the line). 
Table 5. READ and Write Options for Start-Stop (Part 1 of 2) 
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OPTION 


TYPE 
CODE 


2740 


2740C* 


2740D* 


2740 
DC* 


2740 
DT* 


2740 
DTC* 


2740 
S* 


2740 
SC* 


2740 
CO* 


2740 
DCO* 


2741 
NS* 


2741 
SW* 


READ Initial 


Tl 


X 


X 


X 


X 


X 


X 


X 
Note 


X 

Note 


X 


X 


X 


X 


READ Initial with Reset 


TIR 




X 


X 


X 


X 


X 




X 
Note 


X 


X 






READ Continue 


TT 




X 




X 




X 




X 


X 


X 




X 


READ Continue with Reset 


TTR 




X 




X 




X 




X 


X 


X 






READ Continue with 

Leading Acknowledgment 


TTA 


















X 


X 






READ Continue with ID Exchange 


TE 


























READ Conversational 


TV 






X 


X 


X 


X 








X 




X 


READ Conversational with Reset 


TVR 






X 


X 


X 


X 








X 






READ Repeat 


TP 




X 




X 




X 




X 


X 


X 






READ Repeat with Reset 


TPR 




X 




X 




X 




X 


X 


X 






READ Buffer 


TB 


























READ Skip 


TS 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


WRITE Initial 


Tl 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 






WRITE Initial with Reset 


TIR 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 






WRITE Initial Optical 


TIO 


















X 


X 






WRITE Invitational Optical 


TCO 


















X 


X 






WRITE Continue 


TT 




X 




X 




X 




X 


X 


X 


X 


X 


WRITE Continue with Reset 


TTR 




X 




X 




X 




X 


X 


X 






WRITE Continue Conversational 


TTV 




X 




X 














X 


X 


WRITE Conversational 


TV 




X 


X 


X 


X 


X 






X 


X 


X 


X 


WRITE Conversational with Reset 


TVR 




X 


X 


X 


X 


X 






X 


X 






WRITE Conversational Optical 


TVO 


















X 


X 






WRITE at Line Address 


TL 


























WRITE at Line Address with Reset 


TLR 


























WRITE Erase 


TS 


























WRITE Erase with Reset 


TSR 


























WRITE Break 


TB 


























WRITE Positive Acknowledgment 


TA 




X 




X 




X 




X 


X 


X 






WRITE Negative Acknowledgment 


TN 




X 


X 


X 


X 


X 




X 


X 


X 






WRITE Disconnect 


TN 
























X 



*C Checking feature 

D Dial-up feature 

T Transmit Control feature 

S Station Control feature 

O Optical Image Unit feature 

NS Nonswitched 

SW Switched 



Note: Options for which Auto Poll channel programs are generated in the IODEVICE system generation macro instruction 
for the line specified FEATURE = AUTOPOLL 

Table 5. BEAD and WRITE Options for Start-Stop 
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Table 6. READ and WRITE Options for BSC 



OPTION 


TYPE CODE 


Nonswitched 
Point-to-Point 


Multipoint 


Switched 
Point-to-Point 


READ Initial 


T! 


X 


X 


X 


READ Connect 


TC 






X 


READ Connect with Tone 


TCW 






X 


READ Continue 


TT 


X 


X 


X 


READ Continue with Leading Graphics '/ 4 '° 


TTL 


X 


X 


X 


READ Repeat 


TP 


X 


X 


X 


READ Repeat with Leading Graphics ' ' 


TPL 


X 


X 


X 


READ Initial Inquiry 


TIQ 


X 






READ Inquiry 


TQ 


X 


X 


X 


READ Interrupt 7 


TRV 


X 


X 


X 


WRITE Initial 2 


Tl 


X 


X 


X 


WRITE Initial and Reset 2 


TIR 


X 


X 




WRITE Continue 2 


TT 


X 


X 


X 


WRITE Continue and Reset 2 


TTR 


X 


X 




WRITE Reset 


TR 


X 


X 


X 


WRITE Inquiry 


TQ 


X 


X 


X . 


WRITE Disconnect 


TD 






X 


WRITE Wait Before Transmit ' 


TW 


X 


X 


X 


WRITE Initial Conversational 2 '-> 


TIV 


X 


X 


X 


WRITE Continue Conversational ^'^ 


TTV 


X 


X 


X 


WRITE Initial Transparent 3 ' 9 


TIX 


X 


X 


X 


WRITE Initial Transparent and Reset 3 ' 


TIXR 


X 


X 




WRITE Initial Transparent Block 9 


TIE 


X 


X 


X 


WRITE Continue Transparent "'/* 


TTX 


X 


X 


X 


WRITE Continue Transparent and Reset J ' 


TTXR 


X 


X 




WRITE Continue Transparent Block " 


TTE 


X 


X 


X 


WRITE Initial Conversational Transparent J '- 6 '" 


TIVX 


X 


X 


X 


WRITE Continue Converstational 
Transparent 3 ' 6 ' 9 


TTVX 


X 


X 


X 


WRITE Break 


TB 






X 


WRITE Connect 


TC 






X 



This macro cannot be used for a 2780 with which the cental computer communicates using 6-bit Transcode. 

2 This macro cannot be used for a 2715 because text transmission to this type of station is always in transparent mode. 

3 This macro cannot be used for a 2972 because text transmission to this type of station is always in nontransparent mode. 

4 The 1800, 2715, and 2770 ignore leading graphics characters sent to them. That is, these characters are neither received into core 
storage (2715) or terminal buffer, nor passed to any output device attached to the station. 

5 The 1800, 2770 and 2972 .7 do not transmit text as a response to text received from the central computer, the return 

6 The 1800, 2715 and 2770 J the usualalternating acknowledgment (ACK-0 or ACK-1). 

7 When this macro is used for the remote 3270, the response is always EOT. 

? This macro is not applicable for the remote 3270, which cannot receive leading graphics. 

° This macro is not applicable for the remote 3270, because nontransparent mode is always used. 

Table 6. READ and WRITE Options for BSC 
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OPTION 


TYPE CODE 


READ Initial 


Tl 


READ Modified 


TM 


READ Modified from Position 


TMP 


READ Buffer 


TB 


READ Buffer from Position 


TBP 


WRITE Initial 


Tl 


WRITE Erase 


TS 


WRITE Unprotected Erase 


TUS 



Table 6A. READ and WRITE Options for Local 
3270 Display System 
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T • "— T 

Name | Operation J Operands 




decbaddr , optype , dcbaddr, 

([inoutarea] ^ 

( (inarea] , [outarea]) ,) 

([inout length] J 

( tinlength] , [out length] ) ,J 

,MF=Ej 



decbaddr 

Specifies the address of the DECB asso- 
ciated with the line. You can use reg- 
ister notation only if the macro is of 
the execute form (MF=E). 

optype 

Specifies one of the operation-type 
codes listed in Tables 5, 6, and 6A- 
The channel program generated for 
each type of Read and Write differs 
depending on the particular terminal 
and network configuration. The 
available types for a given type of 
remote station or line configuration 
are given in the next two chapters. 
The available types for the local 
3270 display system are given in the 
section "Local Read and Write 
Operations." In all cases, if the 
single letter T is coded, no type 
code is set in the DECB. The T can 
be used: 

1. with a list form, to create a DECB 
with no type code. The type code 
would be furnished by a subsequent 
READ or WRITE macro of execute 
form. 

2. with an execute form, when the 
type code already in the DECB is 
to be used. 

dcbaddr 

Specifies the address of the DCB for 
the line group. 

inoutarea 

Specifies the address of the first 
byte of the input area (Read opera- 
tions) or the first byte of the output 
area (Write operations). In a READ 
macro, you may code this operand as 
• S* if you are using dynamic buffering 
and wish BTAM to provide the needed 
buffers. This operand may be omitted 
for READ types TIQ and TQ and WRITE 
types TR, TW, TN, TA, TB, TD, and TW. 

For WRITE type TQ, if inoutarea 
is omitted or inoutlength is egual 
to or less than 2, the response is 



read into the DECRESPN field of the 
DECB. 



inarea and outarea 

Are for use in READ, macros of the TCW, 
TTL and TPL types and WRITE macros of 
the TIV, TIVX, TTV, and TTVX types. 

For READ TTL and TPL, outarea con- 
tains the leading-graphics characters 
to be sent to the remote station, and 
inarea receives the text from the sta- 
tion. For Read TCW, outarea specifies 
the address of the tone characters to 
be sent to the remote station, and 
inarea receives the text from the sta- 
tion. For WRITE TIV, TIVX, TTV, and 
TTVX, outarea contains the text to be 
sent to the remote stations, and 
inarea receives the text transmitted 
from the remote station. 

For either READ or WRITE macros, 
you may code inarea (but not outarea) 
as *S f if you are using dynamic buf- 
fering and wish BTAM to provide the 
needed buffers. 

For more information about using 
the inarea and outarea operands for 
the remote 3270 display system, see 
"Read Operations" and "Write 
Operations" under the heading "Line 
Control and Message Transmission" 
in the section "IBM 3270 Display 
System - Programming Considerations." 



inoutlength 

Specifies the number of bytes in the 
input or output area defined by the 
inoutarea operand. In a WRITE macro, 
you may code this operand as *S*, to 
cause BTAM to obtain the buffer length 
from the DCB. 

Note ; Specify 'S 1 only if the last buf- 
fer to be sent is completely filled, 
i.e., the last byte contains the ending 
character. The inoutlength operand need 
not be coded for READ types TIQ and TQ and 
WRITE types TR, TN, TA, TB, TD, and TW. 
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For WRITE type TQ, if inoutlength 
is omitted or is equal to or less than 
2, the response is read into the DECRESPN 
field of the DECB. 



2. For a non switched line (WRAPLST, 

AUTOWLST, or SSAWLST) , it may spec- 
ify either the address of any entry 
within the terminal list or 'S*. 



inlength and outlength 

are for use in the same types of 
macros indicated under "inarea and 
outarea", and specify the length of 
these areas. In a WRITE macro, you 
may code outlength as * S', to cause 
BTAM to obtain the buffer length from 
the DCB. The same caution indicated 
for inoutlength applies to outlength. 



Programming Notes 



1. The value specified for inoutlength, 
inlength, or outlength must include 
(a) all control characters that are to 
be sent or received if they will be 
sent from or received into the area 
(i.e., the length should not include 
any control characters sent automati- 
cally by BTAM or received into other 
than the input area, and (b) the four- 
byte link field, if dynamic buffering 
is used. 

2. Any macro of the execute form that 
specifies inarea and outarea rather 
than inoutarea must refer to a DECB 
that has been defined with a list or 
standard-form macro that also speci- 
fied inarea and outarea, because the 
DECB required for leading- graphics and 
conversational operations is longer 
than that for operations not requiring 
both input and output areas. 

3. If on-line testing is made available 
for a binary synchronous line (by cod- 
ing T among the EROPT options in the 
DCB macro for the line group) , all 
Read Initial macros issued for the 
line must specify a length of no less 
than 300 bytes. On-line test RFT mes- 
sages may be received into this area 
at any time. If *T* is coded as the 
optype operand in a WRITE macro of the 
list form (MF=L) , and the '(inarea, 
outarea) • and * (inlength, outlength) ' 
operands are not coded, the resultant 
DECB does not allow space for the 
DECWLN6 and DECWAREA fields. 



entry 



specifies the address of the terminal 
list or an entry therein, as follows: 

1. For a nonswitched line (OPENLST, 
AUTOLST, or SSALST) , it specifies 
the address of an entry within the 
terminal list. 



Note : If 'S* is specified, the 
system will provide the address of 
an entry in the polling list as 
follows : 

a. If the previous polling opera- 
tion terminated with a negative 
response as a result of a 
RESETPL macro instruction, the 
address of the next entry will 
be provided. 

b. Otherwise, the address of the 
entry that was last polled will 
be provided. 

3. For a switched line (DIALST, SWLST, 
BSCLST, IDLST, or WTTALST) , it must 
specify the address of the begin- 
ning of the terminal list; it can- 
not be coded as 'S*. 

For READ types TMP and TBP for the 
local 3270 display system, entry specifies 
the address of a four-byte area that gives 
the position from which the read operation 
is to begin. This operand may be omitted 
for all other READ and WRITE types for 
the local 3270 display system, since the 
operand is ignored. 

rln 

specifies, in decimal the relative line 
number within the line group. (Range 
1-255 inclusive) . This value is placed 
in the DECRLN field of the DECB, in 
binary form. 

For BEAD type TI for the local 3270 
display system, rln specifies the first 
display station that is to be checked 
for an attention interruption. For all 
other BEAD and WBITE types for the local 
3270 display system, this operand specifies 
the device from which or to which a message 
is to be read or written. 



MF=L 



MF=E 



specifies that this macro instruction 
causes only the creation of a data 
event control block whose name is spec- 
ified by the decbaddr operand. Specify 
this when you wish to create a data 
event control block that will be 
referred to subsequently by one or more 
READ or WRITE macro instructions (each 
of which will specify the MF=E operand 
and whose decbaddr operand will specify 
the address of the data event control 
block created by this macro) . 
5 

Specifies that this macro instruction 
causes execution of the Read or Write 
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function, using a data event control 
block created by a READ or WRITE macro 
of the list or standard form. 



Return C odes ; After a READ or WRITE macro 
instruction, BTAM sets register 15 to zero 
if no error has been detected. If an 
abnormal condition is detected, the opera- 
tion is not started and control is returned 
to your program at the instruction follow- 
ing the READ or WRITE macro instruction. A 
return code in register 15 indicates the 
error. Bits 24 through 31 will contain one 
of the following error codes in hexadecimal 
notation: 



04 Busy: The specified line is busy with 
a previously requested Read or Write 
operation. 

08 Invalid RLN. The relative line number 
specified in the operand field of the 
READ or WRITE macro instruction is zero 
or is larger than the number of lines 
in the line group. 

0C (1) Invalid "optype" code: The READ or 
WRITE macro instruction specified an 
"optype" that is invalid for the kind 
of remote station for which you issued 
the macro. 

(2) An initial-type WRITE macro (e.g., 
WRITE TI, TIX, TIV) erroneously speci- 
fied an answering list instead of a 
calling list (that is, no dial digits 
are present in the list) . 



10 All skip bits on (programmed polling): 
The skip bit is on in all of the 
entries in the polling or addressing 
list. 

Usage Count too large (Auto Poll): The 
Usage Count is larger than its maximum 
value of 15. 



14 Line Error during Open: SAD or Enable 
command (issued by Open) resulted in a 
permanent I/O error. The error status 
in the DECB may be inspected to deter- 
mine the cause of the error. 



18 Buffers Not Available: The buffer pool 
does not contain enough buffers to 
satisfy the Read operation (area coded 
•s'). 

1C No Buffer Pool: No buffer pool was 

defined in the DCB macro instruction or 



there was no indication that BTAM was 
to provide the pool associated with the 
line group prior to Open. 

20 No Buffer Routine: You did not indi- 
cate you wanted the ouffer routine 
prior to OPEN, so it was not loaded 
with the system. The return code 
occurs on a Read operation. 

24 Invalid Order: The second byte of 

the area specified by the entry operand 
of a BEAD TMP or TBP macro instruction 
(for a local 3270 display system) 
is not an SBA order. 

28 Invalid Control Block: An invalid 
control block was encountered during 
a read or write operation for the 
local 3270 display system. 

2C Device Not Available: A request for 

a read or write operation was rejected, 
because OLTEP is using the local 3270 
device. 

Note : All nonzero return codes indicate 
that no I/O operation was initiated; there- 
fore, the program must not issue a WAIT or 
TWAIT macro instruction for a READ or WRITE 
macro instruction that resulted in a non- 
zero return code (the task would enter per- 
manent wait state) . 

Programming Note : Execution of a READ or 
WRITE macro instruction causes control to 
be passed to a BTAM routine which con- 
structs channel programs. If no invalid 
conditions are detected, a channel program 
will be generated for the requested I/O 
operation. Once the channel program has 
been started, control will be returned to 
your program with a return code of zero. 
The I/O operation proceeds asynchronously 
with respect to program execution. When 
you wish to determine whether the I/O 
operation has completed, issue a WAIT or 
TWAIT macro instruction, or check the 
DECSDECB field (the event control block). 

If you intend to make use of the 'S' 
option for the entry operand in READ Ini- 
tial (TI) macro instructions, ensure that 
the polling list address is placed in the 
data event control block before the first 
execution of the READ Initial (TI) macro 
instruction. This may be done by defining 
the polling list address in a READ macro 
instruction of the list form and then using 
the ' S' in a READ Initial of the execute 
form. However, if a WRITE Initial is 
issued (using the same DECB) before the 
first READ Initial, steps must be taken to 
replace the polling list address in the 
DECB. After the first READ Initial, BTAM 
maintains the polling restart address in 
the DECB for the line. Thus, by using the 
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• S* option, the polling list address is 
preserved across write operations (even 
though tney utilize the same DECB field for 
addressing list pointers) . 

When a READ or WRITE macro instruction 
specifies "reset at completion" for a 
switched line, BTAM disconnects the line 
only if no error condition occurs during 
the execution of the basic channel program. 
Thus, the program may attempt retransmis- 
sion without re-establishing the line con- 
nection. If the program elects not to 
attempt retransmission, the WRITE (TN) 
macro instruction may be executed to per- 
form the disconnect function. 

When a READ or WRITS macro instruction 
specifies "reset at completion" for a non- 
switched line, the EOT character (or 
sequence of characters) will be transmitted 
only if no error condition occurs during 
execution of the basic channel program. 

When a polling function is performed in 
a Read Initial operation, the terminal list 
address field in the DECB (DECENTRY) con- 
tains the address of the entry in the poll- 
ing list that was last polled. Thus, the 
program may determine the source of the 
message (if one was received) by inspecting 
the contents of the polling list entry at 
that address. Note that the terminal list 
address field in the DECB is not modified 
for addressing operations. 



With Auto Poll 
provided in the fi 
The index byte con 
the polling entry 
which the message 
contains one for t 
polling list, two 
etc. ) . The progra 
byte from DECPOLPT 
originating termin 
operation. 



an index byte is 
rst byte of DECPOLPT. 
tains the number of 
for the terminal from 
was read; that is, it 
he first entry in the 
for the second entry, 
m may obtain the index 

to identify the 
al following any Read 



When a READ macro instruction is used 
for the local 3270 display system, the 
relative line number of the device from 
which the message is read is placed into 
the DECPCLPT field of the DECB. 

User program error routines that operate 
synchronously with respect to the comple- 
tion of the I/O operation may retry a macro 
instruction with the knowledge that the 
proper parameters will be in the DECB. The 
error routine may use a READ or WRITE macro 
instruction of the execute form with only 
the decbaddr and the optype operands 
specified. 



RESETPL (Reset Polling List or Reset Line) 
Macro Instruction 



RESETPL may be issued whenever you wish to 
cancel a Read operation that is currently 
in progress but has not yet received a 
positive response to polling from a remote 
station (nonswitched multipoint line) , or 
has not yet received an ENQ character indi- 
cating the remote station's intention to 
transmit (nonswitched point-to-point line), 
or has not yet received a call from a 
remote station (switched line) . If at the 
time the RESETPL is issued a positive 
response or a call has been received or 
message transmission has taken place, the 
reset function has no effect; the Read 
operation proceeds as usual. 

RESETPL functions with a nonswitched 
multipoint line in the following manner. 
If a programmed polling operation is cur- 
rently in progress, and if it elicits a 
negative response, polling is terminated, 
the polling list pointer (DECPOLPT) is 
incremented, and the operation is posted 
complete. If an Auto Poll polling opera- 
tion is currently in progress, and if it 
elicits negative responses to all entries 
in the list, the operation is posted com- 
plete and the index byte identifying the 
last active entry is stored in the first 
oyte of DECPOLPT. In both cases (pro- 
grammed and Auto Poll), the negative 
response bit is set in DECFLAGS. If the 
polling operation elicits a positive 
response or a time-out, the polling list 
pointer is not incremented, and the opera- 
tion proceeds to its normal conclusion 
(normal conclusion for a time-out is to 
post it complete-with-error) . 



For a nonswitched point-to-point line, 
if a Prepare operation is currently in pro- 
gress, and the Prepare has not been com- 
pleted, a Halt I/O command is issued for 
that line. If an operation other than the 
Prepare is currently in progress (e.g., 
message reception, message transmission, 
addressing) , it will proceed to its normal 
completion. 

The RESETPL macro instruction functions 
with a switched line in the following man- 
ner. If an Enable command has been issued 
to a line (to allow a terminal to dial the 
computer) , and a call has not been received 
(the Enable has not been completed) , BTAM 
stops line activity oy means of a Halt I/O 
command. If the Enable has already been 
completed and a polling operation (start- 
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stop only) is currently in progress, the 
function described above for programmed 
polling or multipoint lines will be per- 
formed. If the Enable has already been 
completed (and for start-stop only, no 
polling operation is in progress) , the Read 
operation proceeds unaffected. 

Note; A special form of the RESETPL macro 
instruction is used for the local 3270 
display system. See "Attention 
Interruptions and Bead Initial Operations" 
in the section "IBM 3270 Display System - 

Programming Considerations." If only 
the decbaddr operand is specified, the 
instructions that are generated include 
support for the local 3270 display system. 

r t t t 

| Name | Operation | Operand | 

h + ___ + < 

| [symbol] | RESETPL | decbaddr [", POLLING - ] | 
I | J L,ansringJ J 

L X J. J 

decbaddr 

Specifies the address of the data event 
control block for the line for which 
the reset operation is to be performed. 

POLLING 

Specifies that only the instructions 
required to terminate polling on a non- 
switcned line will be generated by this 
macro instruction. 

ANSRING 

Specifies that only the instructions 
required to terminate an answering 
operation on a switched line will be 
generated by this macro instruction. 

If no second operand is specified, 
instructions are generated to determine 
at execution time shich function is to 
be performed. For World Trade telegraph 
terminal lines, omit POLLING and ANSRING. 

Programmin g Note; No further READ or 
WRITE macro should be issued for a line 
for which a RESETPL macro has been issued 
until the operation in progress has been 
posted complete. That is, provided the 
RESETPL macro instruction gave a return 
code of X'OO 1 or X«0<P, a WAIT macro 
instruction should be coded between the 
RESETPL macro and the next READ or WRITE 
macro. 



Return Codes ; After execution of a RESETPL 
macro instruction, bits 24 through 31 of 
register 15 contain a return code indicat- 
ing the status of the operation. Bits 
through £3 will contain zeros. The code 
will be one of the following, in hexadeci- 
mal notation: 

00 Normal Return: This code will be 
set if an Enable or Prepare command 
was outstanding and a Halt I/O 
instruction was successfully executed. 

04 Complete: this code is set if the 

Enable command was already completed or 
the Post flag in the UCB is not on. 

08 Illegal Request: this code is set if 
the unit control block (UCB), an inter- 
nal OS/360 control block, specifies a 
non- teleprocessing device. 

0C Unsuccessful: this code will be set if 
an invalid unit control block address 
has been passed to the IOHALT system 
macro instruction, or if the Halt I/O 
instruction has terminated in error 
(e.g., Channel Data Check, or a Not 
Operational condition code) . This code 
will also be set if the DCB has not 
been opened. 

10 Not Issued: This code is set if no 
Enable command had been issued. 

Hpte.: These return codes have different 
meanings for the form of the RESETPL macro 
instruction used for the local 3270 display 
system. See "Attention Handling and Read 
Initial Operations" in the section "IBM 
3270 Display System - Programming 
Considerations. " 



WAIT Macro Instruction 



The' WAIT macro instruction relinquishes 
control of the CPU when the user program 
has no further processing to do and must 
wait for the completion of one or more 
Read/Write operations. See the OS 
Supervisor and Data Management Macro 
Instructions publication for complete 
information on this macro. 
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r t t- 1 

| Name | Operation J Operand | 

^ + +__ ^ 

| [symbol] j WAIT j [count] , | 

| j | ("EC^ecb address ]\ 
| | | (ECBLIST=ecb list addrjj 
l x x ;J 

count 

Specifies the number of events among 
the events referred to by the ECB or 
ECBLIST operand that must be posted 
complete before the WAIT macro is sat- 
isfied. If the count operand is 
omitted, 1 is assumed. 

ECB 

Specifies the address of an event con- 
trol block (ECB) representing a single 
event to be posted complete before pro- 
cessing by the user program can 
continue. 

ECBLIST 

Specifies the address of a variable- 
length list containing fullword entries 
with each fullword entry containing the 
address of an event control block (ECB) 
in the low-order three bytes. Each 
event control block pointed to repre- 
sents an event awaiting completion. In 
this list of ECB addresses, the high- 
order bit (0-bit) of each fullword 
entry except the last in the list must 
be zero. In the last entry in the 
list, you must set the 0-bit in the 
high-order byte of the entry to 1. 



TWAIT Macro Instruction 



The TWAIT macro instruction relinquishes 
control of the CPU when the user program 
must wait for the completion of one of a 
number of events before further processing 
can be done. 

j Name | Operation j Operands | 

L- x -i 4 

| [symbol] | TWAIT | (returnreg) , | 

| j | ECBLIST=ecb list addr j 
l x J . J 

returnreg 

Contains the address of the ECB repre- 
senting the event posted complete. 

ECBLIST 

Specifies the address of the user- 
created list of ECB addresses repre- 
senting events awaiting completion. 
Each entry in the list is a fullword 
containing an address in the low-order 
three bytes. Because the list is of 
variable length, the high-order bit 



(0-bit) of each fullword entry (except 
the last) must be set to zero except 
that of the last entry. The high-order 
bit of the last fullword entry must be 
set to one to identify the entry as the 
last in the list. 

If TWAIT is issued for any event other 
than a Read or Write operation, your pro- 
gram should clear the ECB. The TWAIT macro 
instruction is similar to the WAIT macro 
instruction except that: 

• TWAIT requires the completion of one 
event, only, before returning control 
to the problem. 

• The ECB keyword, is not used in TWAIT. 

• The address of the ECB which was posted 
complete is returned to you in the reg- 
ister specified (as the first operand 
of TWAIT). 

• The displacement of the ECB address 
from the beginning of the ECB list (as 
specified in the ECBLIST operand) is 
returned in register 15. 

The last point above simplifies branch- 
ing to a routine associated with a particu- 
lar ECB. Set up a where-to-go list of 
four-byte entries, each entry containing 
the address of a routine to be associated 
with the ECB whose address is in the corre- 
sponding entry of the ECB list. Then you 
may code, following the TWAIT macro, 

L 15,WTGLIST(15) 
BALR 14, 15 

or the equivalent, to branch and link to 
the appropriate routine. 



Read Skip Operations 



One of the types of Read operations that 
may be performed for terminals on a start- 
stop communications line is Read Skip. In 
this operation, effected by the READ Skip 
(TS) macro instruction, any data being 
received from a terminal is discarded, 
instead of being placed in main storage. 
This action "clears the line" of any 
unwanted data, so that normal Read and 
Write operations can be resumed. A Read 
Skip operation is intended for use in user- 
written recovery routines when a lost-data 
error has occurred. (It may be used for 
any start-stop terminal. ) 

Because it is not used in normal message 
transmission operations, Read Skip is not 
discussed in the Start-Stop Read and Write 
Operations chapter. 
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In a READ skip macro you need not speci- 
ry the address of an input area, since the 
data it receives does not enter main 
storage; however, you must specify for the 
length a value exceeding the maximum amount 
of text data to be received by the Read 
Skip operation. 
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IBM 1030 DATA COLLECTION SYSTEM 



READ Continue (TT) 

READ Continue and Reset (TTR) 



DEFINING TERMINAL LISTS 



Read Operations 



A Read Initial operation requires an open 
or wraparound polling list. The list may 
have one or more terminal entries, each 
containing a single polling character that 
identifies the terminal. To define a poll- 
ing list, code the operand field of a 
DFTRMLST macro like this: 



\OPENLSTf 



| JWRAPLST}, (xx,...) 



READ Continue writes a positive response, 
successively polls terminals in the polling 
list, beginning with the terminal to which 
it sent the response, and upon receiving a 
positive response to polling reads a mes- 
sage block. This macro is for use follow- 
ing a successful READ Initial (TI) or 
another READ Continue to receive another 
message block. 

® EOT EOT EOT 

Polling Character 

Response 

Text 
(Y) EOT EOT EOT (TTR only) 



READ Repeat (TP) 

READ Repeat and Reset CTPR) 



1. 


Write 


2. 


Write 


3. 


Read 


4. 


Read 


5. 


Write 



Write Operations 



A Write Initial operation requires an ad- 
dressing list having a single entry, con- 
taining a single addressing character that 
identifies the terminal that is to receive 
the output message. To define an address- 
ing list, code the operand field of a 
DFTRMLST macro like this: 



|OPENLST,xx 

l . 



I 
J 



READ Repeat writes a negative response, 
successively polls the terminals in the 
polling list, beginning with the terminal 
to which it sent the negative response, and 
upon receiving a positive response to poll- 
ing, reads a message block. This macro is 
for use following an unsuccessful READ Ini- 
tial (TI), READ Continue (TT) or READ 
Repeat (TP) , to read the same message block 
received by the previous operation. 

1. Write (n) EOT EOT EOT 

2. Write Polling Character 

3. Read Response 

4. Read Text 

5. Write (y) EOT EOT EOT (TPR Only) 



READ MACRO INSTRUCTIONS 



WRITE MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TIR) 



Programming Notes: 



READ Initial successively polls the ter- 
minals in the polling list, and upon 
receiving a positive response to polling, 
reads a message block. 



1. 


Write 


EOT EOT EOT 


2. 


Write 


Polling Character 


3. 


Read 


Response 


4. 


Read 


Text 


5. 


Write 


© EOT EOT EOT (TIR only) 



If an EOA is the first character of a 
message block (as it will be if the 
block has not been modified since it 
was received from a 1030 terminal), it 
will print at the terminal as #. You 
should therefore overlay with an idle 
character the first character of each 
block received from a 1030. 

Each outgoing message block must end 
with ETB. 
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Insert three idle (EBCDIC) or Write 
Marks (transmission code) characters 
between adjacent message text charac- 
ters. (This is required of all mes- 
sages sent to a 1033 printer.) 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



WRITE Positive Acknowledgment (TA) 



WRITE Positive Acknowledgment writes a 
positive acknowledgment and an EOT sequence 
to indicate to the terminal that the com- 
puter received message text without error 
and to stop line activity. This macro is 
for use after a Read operation, when you 
wish to stop receiving from the terminal 
before the terminal has sent an EOT. 



WRITE Initial addresses a terminal, writes 
an EOA to place the terminal in receive 
state, writes message text, and reads a 
response from the terminal. 

EOT EOT EOT (s) 

Addressing Character 
■•I ti 

Response 

EOA 

Text 

Response 

EOT EOT EOT (TIR only) 



WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



1 . Write 



[Y) EOT EOT EOT 



1. 


Write 


2. 


Write 


3. 


Write 


4. 


Read 


5. 


Write 


6. 


Write 


7. 


Read 


8. 


Write 



WRITE Negative Acknowledgment (TN) 



WRITE Negative Acknowledgment writes an EOT 
sequence to indicate to the terminal that 
the computer received text with an error 
and to stop line activity. The terminal 
interprets the EOT sequence as a negative 
response. This macro is for use after a 
Read operation, when you wish to stop 
receiving from the terminal before the ter- 
minal has sent an EOT. 



WRITE Continue writes a message block and 
reads a response from the terminal. This 
macro is for use following a WRITE Initial 
(TI) or another WRITE Continue. 



1. Write EOT EOT EOT 



1. Write Text 

2. Read Response 

3. Write EOT EOT EOT (TTR only) 
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IBM 1050 DATA 'COMMUNICATIONS SYSTEM — 
NONSWITCHED LINES 



READ Continue (TT) 

READ Continue and Reset (TTR) 



DEFINING TERMINAL LISTS 



Read Operations 



A Read Initial operation requires an open 
or wraparound polling list. The list may 
have one or more terminal entries, each 
containing a two-character polling 
sequence. The first character identifies 
the terminal; the second identifies the 
specific component from which an input mes- 
sage is solicited. (If the second charac- 
ter is the common polling character , ' , 
input messages are read from any ready com- 
ponent. To define a polling list, code the 
operand field of a DFTRMLST macro like 
this : 



(OPENLST^ 
WRAPLST j, (xxyy , . . . ) 



READ Continue writes a positive response 
and reads a message block. This macro is 
for use following a successful READ Initial 
(TI), READ Repeat (TP) , or another READ 
Continue to receive another message block 
from the same terminal and component that 
sent the previous block. 



1 . Write 

2 . Read 

3 . Write 



©. 



Text 

EOA EOT EOT EOT (TIR only) 



Write Operations 



READ Repeat (TP) 

READ Repeat and Reset (TPR) 



READ Repeat writes a negative response and 
reads a message block. This macro is for 
use following an unsuccessful READ Initial 
(TI), READ Continue (TT), or another READ 
Repeat, to receive the same message block 
read by the previous operation. 



1. Write 

2. Read 

3 . Write 



N 
Te"xt 
EOA EOT EOT EOT (TPR only) 



WRITE MACRO INSTRUCTIONS 



A Write Initial operation requires an ad- 
dressing list having one or more terminal 
entries, each containing a two-character 
addressinq sequence. The first character 

identifies the terminal; the second identi- Programming Notes ; 
fies the specific component that is to 
receive the output message. (If the second 
character is the common addressing charac- 
ter, 9, the output message is sent to all 
ready components.) To define an addressing 
list, code the operand field of a DFTRMLST 
macro like this: 



|OPENLST, (xxyy, ...) 

L 



The first block of a message received 
from a 1050 on a Read Initial opera- 
tion will begin with an EOA character. 
If the same message block is then sent 
to a 1050, it will be printed as #. 
This may be avoided by overlaying the 
EOA with an Idle character before 
sending the message block. 



2. Each outgoing message block must end 
with EOB. 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TIR) 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



READ Initial successively polls the ter- 
minals in the polling list, and upon 
receiving a positive response to polling, 
reads a message block. 



WRITE Initial addresses a terminal, and if 
the response to addressing is positive, 
writes an EOA followed by message text and 
reads the response to text. If the termi- 
nal sends a negative response to address- 
ing, the operation is posted complete. 



1. 


Write 


EOT EOT EOT 








2. 


Write 


Polling Sequence 


1. 


Write 


EOT EOT EOT 


3. 


Read 


Response 


2. 


Write 


Addressing Sequence 


4. 


Read 


Text 


3. 


Read 


Response 


5. 


Write 


EOA EOT EOT EOT (TIR only) 


4. 


Write 


EOA 
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5. Write Text 

6. Read Response 

7. Write EOT EOT EOT (TIR only) 



WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



WRITE Continue (TT) followed by a READ 
Initial (TI) , but saves coding effort by 
allowing you to verify successful 
initiation and conclusion of the opera- 
tion (i.e., by checking return and com- 
pletion codes) just once, instead of 
after each of the two separate macro 
instructions . 



WRITE Continue writes a message block and 
reads a response from the terminal. This 
macro is for use following a WRITE Initial 
(TI ) or another WRITE Continue. 



2. You must specify a polling list entry in 
the WRITE TTV macro instruction. 



1 . Write Text 

2. Read Response 

3. Write EOT EOT EOT (TTR only) 



WRITE Continue Conversational (TTV) 



WRITE Continue Conversational writes a mes- 
sage block and reads a response from the 
terminal, then resets the terminals on the 
line to control mode, successively polls 
the terminals in the polling list, and upon 
receiving a positive response to polling, 
reads a message block. 



1. 


Write 


Text 


2. 


Read 


Response 


3. 


Write 


EOT EOT EOT 


4. 


Write 


Polling Sequence 


5. 


Read 


Response 


6. 


Read 


Text 



Programming Notes: 



1. WRITE TTV performs exactly the same 
functions as would be performed by a 



WRITE Positive Acknowledgment (TA) 



WRITE Positive Acknowledgment writes a 
positive acknowledgment and an EOT sequence 
to indicate to the terminal that the com- 
puter received message text without error 
and to stop line activity. This macro is 
for use after a Read operation, when you 
wish to stop receiving from the terminal 
before the terminal has sent an EOT. 



1 . Write 



EOA EOT EOT EOT 



WRITE Negative Acknowledgment (TN) 



WRITE Negative Acknowledgment writes an EOr 
sequence to indicate to the terminal that 
the computer received text with an error 
and to stop line activity. The terminal 
interprets the EOT sequence as a negative 
response. This macro is for use after a 
Read operation, when you wish to stop 
receiving from the terminal before the ter- 
minal has sent an EOT. 

1. Write EOT EOT EOT 
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r 1 

| DIALST, dialcount,dialchars, (xxyy f . . . ) | 

l J 



DEFINING TERMINAL LISTS 



To define an answering-addressing list, 
code the operand field of a DFTRMLST macro 
like this: 



Read Operations 



A Read Initial operation that answers a 
call from a terminal requires an answering- 
polling list; a Read Initial operation that 
calls a terminal requires a calling-polling 
list. Either type of list may have one or 
more terminal entries (all representing the 
same terminal) , each containing a two- 
character polling sequence. The first 
character identifies the terminal, and must 
be the same character for all entries in 
the list; the second character identifies 
the specific component from which an input 
message is solicited. (If the second char- 
acter is the common polling character, 0, 
input messages are read from any ready 
component. ) 

To define an answer ing-polling list, code 
the operand field of a DFTRMLST macro like 
this: 



DIALST, 0, (xxyy, . . . ) 



To define a calling-polling list, code the 
DFTRMLST operand field like this: 



| DIALST, 0, (xxyy, . ..) 

L 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TIR) 

(Using Answerinq-Pollinq List) 



READ Initial answers a call from a termi- 
nal, polls it, reads the response, and if 
the response is positive, reads a message 
block. If the response is negative, the 
operation is posted complete. 



Pad characters 

EOT EOT EOT 

Polling sequence 

Response 

Text 

EOA EOT (TIR only) 



1. 


Disable 




UllCLkJJ. C 


3. 


Write 


4. 


Write 


5. 


Write 


6. 


Read 


7. 


Read 


8. 


Write 


9. 


Disable 



r n 

| DIALST, dialcount,dialchars, (xxyy, . . .) | 

L J 



READ Initial (TI) 

READ Initial and Reset (TIR) 

(Using Calling-Polling List) 



Write Operations 



A Write Initial operation that calls a ter- 
minal requires a calling-addressing list; a 
Write Initial operation that answers a call 
from a terminal requires an answering- 
addressing list. Either type of list may 
have one or more terminal entries (all 
representing the same terminal) , each con- 
taining a two-character addressing 
sequence. The first character identifies 
the terminal, and must be the same for all 
entries in the list; the second character 
identifies the specific component that is 
to receive the output message. (If the 
second character is the common addressing 
character, 9, the output message is sent to 
all ready components . ) 

To define a calling-addressing list, code 
the operand field of a DFTRMLST macro like 
this : 



READ Initial dials the terminal, polls it, 
and if the response is positive, reads a 
message block. If the response is nega- 
tive, the operation is posted complete. 



1. 


Disable 




2. 


Dial 


Dial Digits 


3. 


Write 


Pad characters 


4. 


Write 


EOT EOT EOT 


5. 


Write 


Polling sequence 


6. 


Read 


Response 


7. 


Read 


Text 


8. 


Write 


EOA EOT (TIR only) 


9. 


Disable 


(TIR only) 



READ Continue (TT) 

READ Continue and Reset (TTR) 



READ Continue writes a positive response 
and reads a message block. This macro is 
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for use following a successful READ Initial 
(TI), READ Repeat (TP) , or another READ 
Continue to receive another message block 
from the same terminal and component that 
sent the previous block. 

1. Write (y) 

2. Read Text 

3. Write EOA EOT <TTR only) 

4. Disable (TTR only) 



1. 


Write 


EOT EOT EOT 


2. 


Write 


Polling Sequence 


3. 


Read 


Response 


U. 


Read 


Text 


5. 


Write 


EOA EOT (TVR only) 


6. 


Disable 


(TVR only) 



WRITE MACRO INSTRUCTIONS 



READ Repeat (TP) 

READ Repeat and Reset (TPR) 



READ Repeat writes a negative response and 
reads a message block. This macro is for 
use following an unsuccessful READ Initial 
(TI), READ Continue (TT) , or another READ 
Repeat, to receive the same message block 
read by the previous operation. 

1. Write ® 

2. Read Text 

3. Write EOA EOT EOT EOT (TPR only) 

4. Disable (TPR only) 

Programming Note : In order to be able to 
issue READ Repeat for the paper tape reader 
or card reader, the reader must be equipped 
with the Line Correction feature. For 
either of these components you may issue it 
only twice in succession. Furthermore, you 
should use this macro for the paper tape 
reader only if the message block being read 
is less than 312 characters. (Otherwise, 
the time required to back up the tape for 
retransmission exceeds the time-out inter- 
val of the terminal.) 



Programming Notes : 

1. The first block of a message received 
from a 1050 on a Read Initial or Read 
Conversational operation will begin 
with an EOA character. If the same 
message block is then sent to a 1050, 
it will print as #. This may be 
avoided by overlaying the EOA with an 
Idle character before sending the 
block. 

2. Each outgoing message block must end 
with EOB. 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 

(Using Calling-Addressing List) 



WRITE Initial dials a terminal, addresses 
it, and if the response to addressing is 
positive, • writes an EOA followed by message 
text and reads the response to text. If 
the response to addressing is negative, the 
operation is posted complete. 



READ Conversational (TV) 

READ Conversational and Reset (TVR) 



READ Conversational polls the terminal, and 
if the response to polling is positive, 
reads a message block. If the response is 
negative, the operation is posted complete. 
This macro is for polling and reading a 
message block from a terminal with which a 
previous READ or WRITE macro has already 
established the line connection. Its main 
purpose is to allow you to change from 
sending message blocks to receiving them, 
without having to reestablish the line con- 
nection. READ Conversational can follow a 
READ Initial (TI) , READ Continue(TT) , or 
READ Repeat (TP) , or a WRITE Initial (TI) , 
WRITE Continue (TT) , or WRITE Conversation- 
al (TV). 

The terminal list used by the READ Con- 
versation must be an open polling list 
(calling or answering) , of the DIALST 
format. 



1. 


Disable 




2. 


Dial 


Dial digits 


3. 


Write 


Pad characters 


4. 


Write 


EOT EOT EOT 


5. 


Write 


Addressing sequence 


6. 


Read 


Response 


7. 


Write 


EOA 


8. 


Write 


Text 


9. 


Read 


Response 


10. 


Write 


EOT (TIR only) 


11. 


Disable 


(TIR only) 


WRITE Initia! 


1 (TI) 



WRITE Initial and Reset (TIR) 
(Using Answering- Addressing List) 



WRITE Initial answers a call from a termi- 
nal, addresses it, and if the response is 
positive, writes an EOA followed by message 
text and reads the response to text. If 
the response to addressing is negative, the 
operation is posted complete. 



1. 
2. 



Disable 
Enable 
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3. Write 


Pad characters 


4. Write 


EOT EOT EOT 


5. Write 

6. Read 

7. write 


Addressing sequence 
Response 

EOA 


8. Write 


Text 


9 . Read 

10. Write 

11. Disable 


Response 

EOT (TIR only) 

(TIR only) 


WRITE Continue (TT) 


WRITE Continue and Reset (TTR) 



1. 


Write 


Text 


2. 


Read 


Response 


3. 


Write 


EOT EOT EOT 


4. 


Write 


Polling Sequence 


5. 


Read 


Response 


6. 


Read 


Text 



Programming Notes; 



WRITE Continue writes a message block and 
reads a response from the terminal. This 
macro is for use following a WRITE Initial 
(TI) or another WRITE Continue. 



1. Write 

2 . Read 

3. Write 

4. Disable 



Text 

Response 
EOT (TTR only) 
(TTR only) 



WRITE TTV performs exactly the same 
functions as would be performed by a 
WRITE Continue (TT) followed by a READ 
Conversational (TV) , but saves coding 
effort by allowing you to verify succes- 
sful initiation and conclusion of the 
operation (i.e., by checking return and 
completion codes) just once, instead of 
after each of the two separate macro 
instructions. 



WRITE Conversational (TV) 

WRITE Conversational and Reset (TVR) 



2. You must specify a polling list entry in 
the WRITE TTV macro instruction. 



WRITE Conversational writes a positive 
response to text (the EOA character is the 
positive response), addresses the terminal, 
and if the response to addressing is posi- 
tive, writes an EOA followed by message 
text and reads the response to text. If 
the response to addressing is negative, the 
operation is posted complete. 

The terminal list used by the WRITE Con- 
versational must be an addressing list 
(calling or answering) of the DIALST 
format. 



1. 


Write 


EOA EOT EOT EOT 


2. 


Write 


Addressing sequence 


3. 


Read 


Response 


4. 


Write 


EOA 


5. 


Write 


Text 


6. 


Read 


Response 


7. 


Write 


EOT (TVR only) 


8. 


Disable 


(TVR only) 



WRITE Continue Conversational (TTV) 



WRITE Continue Conversational writes a mes- 
sage block and reads a response from the 
terminal, resets it to control mode, polls 
it, and upon receiving a positive response 
to polling, reads a message block. 



WRITE Positive Acknowledgment and 
Disconnect (TA) 



WRITE Positive Acknowledgment and Discon- 
nect writes a positive response to text (an 
EOA) and breaks the line connection. This 
macro is for use following a successful 
READ operation when you wish to break the 
line connection instead of receiving the 
remaining blocks of a message. 



1. 

2. 



Write 
Disable 



EOA EOT 



WRITE Negative Acknowledgment and 
Disconnect (TN) 



WRITE Negative Acknowledgment and Discon- 
nect writes a negative acknowledgment (the 
EOT character serves this purpose) and 
breaks the line connection. This macro is 
for use following an unsuccessful Read 
operation when you wish to break the line 
connection instead of receiving the remain- 
ing blocks of a message. The macro may 
also be used after a write operation when 
you wish to break the line connection. 



1. 
2. 



Write EOT 
Disable 
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IBM 1060 DATA COMMUNICATION SYSTEM 



READ Continue (TT) . 

READ Continue and Reset (TTR) 



DEFINING TERMINAL LISTS 



Read Operation s 



A Read Initial operation requires an open 
or wraparound polling list. The list may 
have one or more terminal entries, each 
containing a two- character polling 
sequence. The first character identifies 
the control unit, the second identifies the 
teller terminal that is to be polled. 

To define a polling list, code the 
operand field of a DFTRMLST macro like 
this: 

r _ . 1 

I \OPENLST I 



READ Continue writes a positive response, 
successively polls terminals in the polling 
list, beginning with the terminal to which 
it sent the response, and upon receiving a 
positive response to polling, reads a mes- 
sage block. This macro is for use follow- 
ing a successful READ Initial (TI) or 
another READ Continue to receive another 
message block. 



1. Write 

2. Write 

3. Read 

4 . Read 

5. Write 



(7)EOT EOT EOT 

Polling Sequence 

Response 

Text 

(Y)EOT EOT EOT (TTR only) 



| JWRAPLSTJ , (xxyy , . . . ) 



J 



READ Repeat (TP) 

READ Repeat and Reset (TPR) 



Write Operations 



A Write Initial operation requires an ad- 
dressing list having one terminal entry 
that contains a two-character addressing 
sequence. The first character identifies 
the control unit, the second identifies the 
teller terminal to which the message is to 
be sent. 

To define an addressing list, code the 
DFTRMLST operand field like this: 



READ Repeat writes a negative response, 
successively polls the terminals in the 
polling list, beginning with the terminal 
to which it sent the negative response, and 
upon receiving a positive response to poll- 
ing reads a message block. This macro is 
for use following an unsuccessful READ Ini- 
tial (TI), READ Continue (TT) or READ 
Repeat (TP) , to read the same message block 
received by the previous operation. 



1 . Write 

2. Write 

3 . Read 

4 . Read 

5 . Write 



| OPE NLST, xxyy 

l 



(N) EOT EOT EOT 

Polling Sequence 

Response 

Text 

(Y)EOT EOT EOT (TPR only) 






The list must be defined as an open 
list. 



WRITE MACRO INSTRUCTIONS 



Programming Note : Each outgoing message 
block must end with ETB. 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TIR) 



READ Initial successively polls the ter- 
minals in the polling list, and upon 
receiving a positive response to polling, 
reads a message block. 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



WRITE Initial addresses a terminal, and if 
the response to address is positive, writes 
an EOA followed by message text and reads 
the response to text. If the terminal 
sends a negative response to addressing, 
the operation is posted complete. 



1. 


Write 


EOT EOT EOT 


1. 


Write 


EOT EOT EOT 


2. 


Write 


Polling Sequence 


2. 


Write 


Addressing sequence 


3. 


Read 


Response 


3. 


Read 


Response 


4. 


Read 


Text 


4. 


Write 


EOA 


5. 


Write 


(y)E0T EOT EOT (TIR only) 


5. 


Write 


Text 
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6. Read Response 

7. Write EOT EOT EOT (TIR only) 



WRITE Positive Acknowledgment (TA) 



WRITE Positive Acknowledgment writes a 
positive acknowledgment and an EOT sequence 
to indicate to the terminal that the com- 
puter received message text without error 
and to stop line activity. This macro is 
for use after a Read operation, when you 
wish to stop receiving from the terminal 
before the terminal has sent an EOT. 



WRITE Negative Acknowledgment (TN) 



WRITE Negative Acknowledgment writes an EOT 
sequence to indicate to the terminal that 
the computer received text with an error 
and to stop line activity. The terminal 
interprets the EOT sequence as a negative 
response. This macro is for use after a 
Read operation, when you wish to stop 
receiving from the terminal before the ter- 
minal has sent an EOT. 



Write 



EOT EOT EOT 



1. Write ® EOT EOT EOT 
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IBM 2260-2848 DISPLAY COMPLEX (REMOTE) 
IBM 2265-2845 DISPLAY COMPLEX (REMOTE) 



READ MACRO INSTRUCTIONS 



The information in this section applies 
equally to the IBM 2260-2848 display com- 
plex and the IBM 2265-2845 display complex, 
except that references to multiple display 
stations and the general polling function 
do not apply to the 2265-2845 display com- 
plex (only one 2265 display station can be 
attached to a 2845 display control). 



The format of a message received through 
a READ macro instruction is : 



r T T T T 1 

|STX|device address] [text] | [CAN] |ETX| 
l x _x x x J 



STX 



specifies the start of text 
characters. 



device address 

identifies the sending unit (display 
station or printer) . 



DEFINING TERMINAL LISTS 



Read Operations 



A Read Initial operation requires an open 
or wraparound polling list. The list may 
have one or more terminal entries, each 
containing a two-character polling 
sequence. The first character identifies 
the 2848 or 2845 Display Control, the 
second identifies the 2260 or 2265 Display 
Station from which an input message is 
solicited. (If, for a 2260/2848, the 
second character is coded as X'FF', a gen- 
eral poll is performed. ) 



To define a polling list, code the 
operand field of a DFTRMLST macro like 
this: 



j (OPENLSTI , (xxyy , . . . ) 

I Iwraplst/ 

l : 



text 



CAN 



ETX 



is the message text. 

is the cancel character, sent only if 
the display control detects an inter- 
nal operation error when transmitting 
the message. 

is the end-of-text character. 



READ Initial (TI) 

READ Initial and Reset (TIR) 



READ Initial successively polls the display 
stations and printers in the polling list, 
and upon receiving a positive response to 
polling, reads a message block or a printer 
status message. 



1. 


Write 


STX and 15 EOT's 


2. 


Write 


Polling Sequence 


3. 


Write 


READ MI code 


4. 


Read 


Response 


5. 


Read 


Text 


6. 


Write 


STX EOT EOT EOT 



(TIR only) 



Write Operations 



Functions of the Read Initial Operation 



A Write Initial operation requires an ad- 
dressing list. The list may have one or 
more terminal entries, each containing a 
two-character addressing sequence. The 
first character identifies the 2848 or 2845 
Display Control, the second identifies the 
2260 or 2265 Display Station or 1053 print- 
er that is to receive the output message. 

To define an addressing list, code the 
DFTRMLST operand field like this: 



| OPENLST, (xxyy, . . . ) 

L . 



The Read Initial operation can have one of 
three functions : 



Specific Polling of One or More Display 
Stations : A Read Initial operation 
executed for this purpose is similar to the 
Read Initial for other types of terminals 
that use the polling scheme. That is, the 
stations to be polled are individually 
represented in a terminal list and polling 
proceeds until the end of the list is 
reached (open list) or until a station 
returns ' a positive response and a message 
block (open or wraparound list) . 
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Requesting Printer Status ; The function of 
polling ordinarily refers to contacting a 
terminal or terminal component to determine 
whether it has any message to send to the 
computer. With reference to the 10 53 
printer attached to an IBM 28 48 Display 
Control, the term polling means contacting 
the printer to see if it is ready to 
receive a message from the computer. (The 
printer may not be ready because the termi- 
nal operator is using it locally or because 
its power is off or it is out of paper. ) 
In order to be ready, the printer mechanism 
must be ready and the printer buffer must 
not be in use. (The printer buffer is in 
use when it is being filled from the key- 
board buffer or the line, or if its con- 
tents are currently being printed.) If the 
printer, when polled, is ready, it returns 
to the computer a positive response, the 
format of which is STX (device address) 
ETX. 

If the printer is not ready, it returns 
a NAK; if the printer mechanism is ready 
but the printer buffer is in use, the 
printer returns an EOT. Either NAK or EOT 
is considered a negative response. Once 
the printer status is requested, whether 
the status is positive or negative the 
printer is in the "printer-request" condi- 
tion, which means that it is available only 
for a message sent by a Write operation. 



Programming Note ; It is advisable to turn 
on the end-of-list bit of the polling list 
entry for the printer when executing a Read 
Initial operation to request printer sta- 
tus; then if the printer returns a negative 
response the operation is posted complete 
and the negative response condition can be 
tested for in the DECB. If the end-of-list 
bit is not on, the negative response is 
treated just like a negative response from 
a display station; polling continues, with 
no response indication given in the DECB. 



READ Continue (TT) 



READ Continue and Reset (TTR) 

READ Continue writes a positive response 
and reads a message block. This macro is 
for use following a successful READ Initial 
(TI), READ Repeat (TP) , or another READ 
Continue to receive another message block 
from the same display station that sent the 
previous block. 

1. Write ACK 

2 . Read Text 

3. Write STX EOT (TTR only) 



READ Repeat (TPR) 

READ Repeat and Reset (TPR) 

(Display Only) 



If a general poll operation (see below) 
is being executed after the status is 
requested, the printer returns the positive 
response when its status changes from not- 
ready to ready. The response is given the 
first time the printer is polled following 
the change to the ready condition. 



Read Repeat writes a negative response and 
reads a message block. This macro is for 
use following an unsuccessful READ Initial 
(TI), READ Continue (TT) , or another READ 
Repeat, to receive the same message block 
read by the previous operation. 



General Polling of a 2848 Display Control ; 
In this form of operation, which is 
achieved by coding X'FF" as the second byte 
of a single polling list entry, all the 
display stations and printers connected to 
the display control identified by the first 
character of the entry are polled in wrap- 
around fashion, i.e., continuously, until 
one of the stations returns a positive 
response or until, the printer responds with 
a status indication. The printer is always 
polled first, then the display stations, in 
each polling "pass". (The printer status 
is returned when it is polled, either if a 
previous Read Initial operation requested 
the status indication or if a previous 
Write Initial operation for the printer was 
not possible because the printer was not 
free. ) 

When a display station sends a response, 
the Read operation receives the message 
block into the input area specified in the 
READ macro. When a printer returns a 
response, the Read operation receives the 
status indication in the input area. 



1. Write NAK 

2 . Read Text 

3. Write STX EOT (TPR only) 



READ Buffer (TB) 

READ Buffer and Reset (TBR) 



(Display only) 



READ Buffer is intended for special appli- 
cations and for use in diagnosing equipment 
troubles. It receives the entire contents 
of the buffer of the specified display 
station. * 

1. Write STX and 15 EOT's 

2. Write Polling sequence 

3. Write Read Buffer Code 

4 . Read Response 

5. Read Text 

6. Write STX EOT EOT EOT (TBR only) 

Programming Note ; At the completion of the 
Read Buffer operation you must issue a 
WRITE Erase to erase the screen or else 
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write a message that will overlay the pre- 
vious buffer. 



WRITE at Line Address (TL) 

WRITE at Line Address and Reset (TLR) 

(Display Only) 



WRITE MACRO INSTRUCTIONS 



The format of a message sent through a 
WRITE macro instruction is: 



WRITE at Line Address has the same function 
as a WRITE Initial, but permits specifying 
the display line on which the message is to 
be displayed. 



r t t 1 

| STX | text | ETX | 
L X X J 



The ETX character must be the last char- 
acter of a message. 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 

(Display or Printer) 



WRITE Initial addresses a display station 
or printer, and if the response to address- 
ing is positive, writes an STX and the mes- 
sage text, then reads the response from the 
addressed unit. If the response to ad- 
dressing is negative, the Operation is 
posted complete. 



1. Write 


STX and 15 EOT's 


2. Write 


Addressing sequence 


3. Write 


Write Code 


4. Read 


Response 


5. Write 


STX 


6. Write 


Text 


7 . Read 


Response 


8. Write 


STX EOT EOT EOT (TIR only) 


Proqramminq 


Notes : 



1. If you issue a WRITE Initial to send a 
message block to the printer and the 
printer returns a negative response 
(NAK'or EOT) to addressing, the opera- 
tion is posted complete; the message 
text is not sent. If the response is 
positive", the message is sent. If an 
error occurs during transmission of 
text, the printer buffer is cleared. 
You may retry the operation with a 
WRITE Continue macro. 



1. Write 


STX and 15 EOT's 


2. Write 


Addressing sequence 


3. Write 


Line Address Code 


4. Read 


Response 


5. Write 


STX 


6 . Write 


Text 


7. Read 


Response 


8 . Write 


STX EOT EOT EOT (TLR only) 


Programming 


Note: The first byte of the 



message text must contain a line address 
character. The message will be displayed 
starting at the beginning of that line. 
See Table 7 for valid display line 
addresses. 



Table 7. IBM 2260 and 2265 Display Line 
Addresses 



1 1 


Dis 


play 


Line Addresses 




1 \- 










_ J 


1 r 






~T ~* 

| EBCDIC 


.j 


| Display |2260 or 
j Line | Code 

L -i- X 


2265 
(hex) 


1- - - 






r t i 

| Code (hex) | Character | 

_! 1 1 


r T 
1 1 1 


50 




| F0 


j 


| 


i 2 | 


51 




| Fl 




1 1 


1 3 | 


52 




| F2 




2 1 


1 4 1 


53 




| F3 




3 1 


1 5 1 


54 




| F4 




4 1 


1 6 1 


55 




| F5 




5 | 


1 7 | 


56 




| F6 




6 | 


1 8 | 


57 




| F7 




7 | 


1 9 | 


58 




| F8 




8 | 


1 10 | 


59 




| F9 




9 j 


1 11 1 


5A 




1 7A 




: | 


1 12 | 


5B 




| 5E 




1 1 


1 13 | 


5C 




| 4C 




< | 


1 1^ 1 


5D 




| 7E 




= 1 


1 15 | 


5E 




| 6E 




> | 


L _ X 








X 


_J 



If you issue a WRITE Initial to send a 
message block to a display station, a 
positive response is normally received 
and the text is sent. If during 
transmission of text, an error occurs, 
you may retry the operation by issuing 
a WRITE Continue, but the message con- 
taining the error is not cleared. You 
may also resend the message with a 
WRITE Erase macro, or with a READ Buf- 
fer followed by a WRITE Erase, if sev- 
eral messages were displayed. 



WRITE Erase (TS) 

WRITE Erase and Reset (TSR) 

(Display Only) 



WRITE Erase has the same function as a 
WRITE Initial, but also causes the display 
station screen to be erased before the mes- 
sage is displayed. 
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1. Write STX and 15 EOT's 

2. Write Addressing sequence 

3. Write Erase code 

4 . Read Response 

5. Write STX 

6. Write Text 

7 . Read Response 

8. Write STX EOT EOT EOT (TSL only) 



WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



WRITE Positive Acknowledgment (TA) 
(Display Only) 



WRITE Positive Acknowledgment writes a 
positive acknowledgment and an EOT to indi- 
cate that the computer received the message 
text without error and to stop line activi- 
ty. This macro is for use following a Read 
operation when you wish to stop receiving 
from the display station. 



(Display or Printer) 



1. Write 



STX EOT 



WRITE Continue writes a message block and 
receives a response. This macro is for use 
following any Read or Write operation that 
did not include the Reset function. 



WRITE Negative Acknowledgment (TN) 
(Display Only) 



1. Write 

2. Write 

3. Read 
H. Write 



STX 

Text 

Response 

STX EOT EOT EOT 



WRITE Negative Acknowledgment writes an 
EOT, which constitutes a negative response 
indicating that the computer received the 
(TTR only) message text with an error and to stop line 
activity. This macro is for use following 
a Ream operation wnen you wish to stop 
receiving from the display station. 



Write 



EOT 
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IBM 2740 COMMUNICATIONS TERMINAL — GENERAL 
INFORMATION 



The IBM 2740 Communications Terminal 
(Model 1 or 2) is available with several 
features or combinations of features. Of 
these, BTAM supports the following: 

274 on Nonswitched Lines : 

Basic 2740 

2740 with Checking 

2740 with Station Control 

2740 with Checking and Station Control 

2740 with Checking and 276 Optical 

Image Unit 

2740 on Switched Lines : 

2740 Dial 

2740 Dial, with Checking 

2740 Dial, with Transmit Control 

2740 Dial, with Checking and Transmit 

Control 

2740 Dial, with Checking and 2760 

Optical Image Unit 

The channel programs differ for the 
various feature combinations and are there- 
fore explained separately on the following 
pages. (See a subsequent heading, IBM 276 
Optical Image Unit, for information about 
the 2760.) 

Programming Notes : 

1. Operator awareness: The 2740 without 
station control and transmit control 
does not react to a transmission control 
unit (TCU) timeout, nor does it tine 
out along with the TCU. Following a 

. TCU timeout, the 2740 is left in transmit 
text mode and is unresponsive to channel 
commands. The terminal operator must 
then depress the EOT key or power down 
and back up to place the 2740 in control 

• receive mode. 

2. Only 2740 terminals equipped with the 
Checking feature provide an automatic 
response to messages received from the 
computer. For 274 0s not having this 
feature, responses, if desired, must 
be entered manually from the 2740 key- 
board, and the program must be able to 
receive such responses . That is , each 
Write operation for which a response 
is required must be followed by a Read 
operation. It is up to the user to 
establish a convention for responses; 
for example, to consider the letter Y 
received from the terminal as a posi- 
tive response (the terminal received 
the message correctly) and the letter 
N received from the terminal as a 
negative response (the terminal 



received the message incorrectly and 
the program should resend the same 
message) . 

Each message sent to a 274 Model 2 
that is equipped with the Buffered 
Receive feature must end with an EOT 
character; the EOT must be supplied by 
the user program. 

Multiple-block messages must not be 
sent to a 2740 Model 2 that is 
equipped with the Buffered Receive and 
Checking features, because (a) the 
contents of the buffer are printed 
only when an EOT is received from the 
computer, and (b) all blocks are read 
into the same buffer. This means that 
if a multiple-block message is 
received,, only the block received just 
prior to the EOT will be printed; all 
previous blocks will have been succes- 
sively overlaid in the buffer. 



In sending message text to a 27 40 
Model 2 with the Buffered Receive fea- 
ture, be careful to avoid a buffer 
overflow condition that will occur if 
the central computer sends a message 
block exceeding the capacity of the 
terminal buffer. This can happen even 
when the length of the message block 
in main storage is less than the buf- 
fer size. For each change in case 
(upper to lower, or vice versa), the 
TCU inserts a shift character in the 
data stream going to the terminal. 
You should ensure not only that the 
length of the message block in main 
storage is shorter than the 274 buf- 
fer, but that it is shorter by an 
amount sufficient to allow for the 
inserted shift characters. 

The Model 2 responds to addressing 
with a two-character reply. If the 
response is positive, the first char- 
acter indicates whether an error 
occurred during the previous write 
operation while transferring data from 
the buffer to the printer; if an error 
occurred, its nature is indicated. 
The second character is the positive 
response* (y) . 

If the response is negative, the first 
character indicates the reason for 
that response; the second character is 
the negative response, (n) . 

The two-character response is received 
in the DECRESPN field of the DECB for 
the line. 

The operation is posted complete, with 
or without error, in the event control 
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block for the line, and the appropri- 
ate bits are set in the DECFLAGS field 
of the DECB. 



Neg ative response (second character is 



Following each Write operation you 
should examine the first byte of the 
DECRESPN field to determine whether an 
error occurred, and what kind it is. 

The characters (in hexadecimal nota- 
tion) and their meanings are as 
follows. 



Positive response (second character is 

w 



First 
Character 



X'04' 
X'02' 



First 
Character Meaning 



X'20' 



X'10' 
X'13' 



X'08' 



Meaning 



Terminal is in Bid mode 
Terminal is in Communic- 
ate mode 

Terminal is in Communic- 
ate mode with document 
device down 

Terminal is in Local mode 
Terminal is in Communic- 
ate mode but is out of 
paper 

Contents of buffer are 
being printed. 



X'Ol' (No error; buffer success- 
fully printed) 

X'23' Failure in electronic 
circuit 

X'25« I/O device failure 

X'29' VRC error in text received 
on line 

X*3i* Parity error in text 
received on line. 

When the first character 
is other than X'Ol', BTAM 
prints message IEA000I (I/O 
ERR) at the central comput- 
er console (and /or tele- 
processing or other con- 
sole, if the operating sys- 
tem includes multiple con- 
sole support) . See Appen- 
dix C for the format of 
this message. 



When the first charac- 
ter is X'10, X'13V, or 
X'20', BTAM posts the 
operation complete-with- 
error (completion code 
X'41' in DECSDECB) and 
prints message IEA000I 
(I/O ERR) at the central 
computer console (and/or 
teleprocessing or other 
console, if the operating 
system includes multiple 
console support) . See 
Appendix C for the format 
of this message. When the 
first character is X , 02', 
X ' 04 ' , or X ' 3 ' , BTAM posts 
the operation with normal 
completion. 
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IBM 2710 (BASIC) 



WRITE MACRO INSTRUCTIONS 



Read and Write operations for the basic 
2740 require no terminal lists. 



WRITE Initial (TI ) 

WRITE Initial and Reset (TIR) 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 



WRITE Initial writes an EOA to place the 
terminal in receive state, then writes mes- 
sage text. This is the only macro used to 
send text. 



READ Initial monitors the line for an EOA 
sent by the terminal and reads the message 
block that follows. This is the only macro 
used to receive text. 



1. 


Write 


EOA and 15 Idle Characters 


2. 


Write 


Text 


3. 


Write 


EOT (TIR only) 



1 . Write EOT 

2 . Prepare 

3 . Read Text 
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IBM 2740 WITH CHECKING FEATURE 



WRITE MACRO INSTRUCTIONS 



The macro instructions in this section 
apply to a 2740 used as an operator's con- 
sole (under the Multiple Console Support 
option of the operating system) as well as 
to a 2740 used as a regular terminal. 

Read and Write operations for the 2740 
with the checking feature require no termi- 
nal lists. 



READ MACRO INSTRUCTIONS 



Programming Notes 

1. Each outgoing message block must end 
with EOB. 

2. Once it is in receive mode, the termi- 
nal cannot begin sending message text 
until it receives EOT. Therefore, 
following one or more Write opera- 
tions, you must arrange to send EOT 

to put the terminal in stand-by mode. 
This may be done by specifying the reset 
option in the last Write operation (i.e., 
TIR, TTR, or TVR) , or by following the 
last Write operation by a Write TN macro. 



READ Initial (TI) 

READ Initial and Reset (TIR) 



READ Initial monitors the line for an EOA 
sent by the terminal and reads the message 
block that follows. 



Restriction ; 

If a Read Initial operation immediately 
follows a Write with Reset operation, 
the first byte of data may be lost. 



1. 


Write 


EOT EOT EOT 


2. 


Prepare 




3. 


Sense 




4. 


Re-id 


Text 


5. 


Write 


EOA EOT EOT EOT (TIR only) 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



READ Continue (TT) 

READ Continue and Reset (TTR) 



WRITE Initial writes an EOA to place the 
terminal in receive state and turn on the 
terminal motors, writes message text, and 
reads the response. 



READ Continue writes a positive response 
and reads a message block. This macro is 
for use following a successful READ Initial 
(TI), READ Repeat (TP) , or another READ 
Continue to receive another message block 
from the same terminal and component that 
sent the previous block. 

1. Write © 

2 . Read Text 

3. Write EOA EOT EOT EOT (TTR only) 



READ Repeat (TP) 

READ Repeat and Reset (TPR) 



READ Repeat writes a negative response and 
reads a message block. This macro is for 
use following an unsuccessful READ Initial 
(TI), READ Continue (TT), or another READ 
Repeat, to receive the same message block 
read by the previous operation. 

1. Write ® 

2 . Read Text 

3. Write EOA EOT EOT EOT (TPR only) 



1. Write EOA and 15 idle Characters 

2. Write Text 

3. Read Response 

4. Write EOT (TIR only) 



WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



WRITE Continue writes a message block and 
reads a response from the terminal. This 
macro is for use following a WRITE Initial 
(TI) or another WRITE Continue. 



1. Write 

2 . Read 

3 . Write 



Text 

Response 

EOT (TTR only) 



WRITE Conversational (TV) 

WRITE Conversational and Reset (TVR) 



WRITE Conversational writes an EOA to place 
the terminal in receive state, writes mes- 
sage text, and reads the response. This 



Start-Stop Read and Write Operations 83 



IBM 2740 - Checking 



macro is for use following a Read opera- 
tion, to change from receiving text to 
sending text. 



1. Write 

2 . Write 

3 . Read 

4 . Write 



EOA 

Text 

Response 

EOT (TVR only) 



WRITE Positive Acknowledgment (TA) 



WRITE Positive Acknowledgment writes a 
positive acknowledgment and an EOT sequence 

to indicate to the terminal that the com- 
puter received message text without error 
and to stop line activity. This macro is 
for use after a Read operation, when you 
wish to stop receiving from the terminal 
before the terminal has sent an EOT. 



WRITE Continue Conversational (TTV) 



WRITE Continue Conversational writes a mes- 
sage block and reads a response from the 
terminal, then resets it to control mode, 
monitors the line for an EOA from the ter- 
minal and reads the message block that 
follows . 



1 . Write 



EOA EOT EOT EOT 



WRITE Ne gative A c knowledgment (TN) 



1 . Write Text 

2. Read Response 

3. Write EOT EOT EOT 

4 . Prepare 

5 . Sense 

6. Read Text 

Programming Note ; WRITE TTV performs 
exactly the same functions as would be per- 
formed by a WRITE Continue (TT) followed by 
a READ Initial (TI) , but saves coding 
effort by allowing you to verify Successful 
initiation and conclusion of the operation 
(i.e., by checking return and completion 
codes) just once, instead of after each of 
the two separate macro instructions. 



WRITE Negative Acknowledgment writes an EOr 
sequence to indicate to the terminal that 
the computer received text with an error 
and to stop line activity. The terminal 
interprets the EOT sequence as a negative 
response. This macro is for use after a 
Read operation, when you wish to stop 
receiving from the terminal before the ter- 
minal has sent an EOT, or after one or more 
Write operations, when you wish to begin 
receiving from the terminal via Read opera- 
tions (the terminal cannot begin sending 
text until it receives EOT) . 



1 . Write 



EOT EOT EOT 
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IBM 2740 WITH DIAL-UP FEATURE 



after a previous READ or WRITE macro has 
established the line connection. 



DEFINING TERMINAL LISTS 



Read Operations 



1. Prepare 

2 . Read Text 

3. Write EOT (TVR only) 

4. Disable (TVR only) 



A Read Initial operation requires an an- 
swering list, which you define by coding 
the operand field of a DFTRMLST macro like 
this: 



WRITE MACRO INSTRUCTIONS 



| DIALST,0 

L 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



Write Operations 



A Write Initial operation requires a call- 
ing list, which you define by coding the 
DFTRMLST operand field like this: 



| DIALST,dialcount,dialchars 

i 



WRITE Initial dials a terminal, writes an 
EOA to place the terminal in receive state, 
and writes message text. 





1. 


Disable 






2. 


Dial 


Dial digits 




3. 


Write 


Pad characters 


1 


4. 


Write 


EOA 


1 


5. 


Write 


Text 


1 


6. 


Write 


EOT (TIR only) 




7. 


Disable 


(TIR only) 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TIR) 



READ Initial answers a call from a terminal 
and reads a message block. 



1. 
2. 
3. 
4. 
5. 
6. 



Disable 

Enable 

Prepare 

Read 

Write 



Text 

EOT (TIR only) 



Disable (TIR only) 



WRITE Conversational (TV) 

WRITE Conversational and Reset (TVR) 



WRITE Conversational writes an EOA to place 
the terminal in receive state and writes 
message text. This macro is for use fol- 
lowing a Read operation to change from 
receiving text to sending text, when the 
line connection is already established. 

1. Write EOA 

2. Write Text 

3. Write EOT (TVR only) 

4. Disable (TVR only) 



READ Conversational (TV) 

READ Conversational and Reset (TVR) 



WRITE Disconnect (TN) 



READ Conversational monitors the line for 
an EOA sent by the terminal and reads the 
message text that follows. This macro is 
for reading a message block from a terminal 



WRITE Disconnect breaks the line 
connection. 

1. Write EOT 

2. Disable 
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IBM 2740 WITH DIAL-UP AND CHECKING FEATURES 



DEFINING TERMINAL LISTS 



1. Write (y) 

2. Read Text 

3. Write EOA EOT (TTR only) 

4. Disable (TTR only) 



Read Operations 



READ Repeat (TP) 

READ Repeat and Reset (TPR) 



A Read Initial operation requires an an- 
swering list, which you define by coding 
the operand field of a DFTRMLST macro like 
this: 



| DIALST,0 



Write Operations 



t 

I 
J 



READ Repeat writes a negative response and 
reads a message block. This macro is for 
use following an unsuccessful READ Initial 
(TI), READ Continue (TT) t or another READ 
Repeat, to receive the same message block 
read by the previous operation. 



1. Write 

2. Read 

3 . Write 

4. Disable 



® 

Text 

EOA EOT (TPR only) 
(TPR only) 



A Write Initial operation requires a call- 
ing list, which you define by coding the 
DFTRMLST operand field like this: 



| DIALST, dialcount,dialchars 

L . 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TIR) 



] 



READ Conversational (TV) 

READ Conversational and Reset (TVR) 



READ Conversational monitors the line for 
an EOA sent by the terminal and reads the 
message block that follows. This macro is 
for use following a Write operation, to 
change from sending text to receiving text. 

1. Write EOT 

2. Prepare 

3 . Read Text 

4. Write EOA EOT (TVR only) 

5. Disable (TVR only) 



READ Initial answers a call from a termi- 
nal, monitors the line for an EOA sent by 
the terminal, and reads the message block 
that follows. 

1. Disable 

2. Enable 

3. Prepare 

4. Read Text 

5. Write EOA EOT (TIR only) 

6. Disable (TIR only) 



READ Continue (TT) 

READ Continue and Reset (TTR) 



WRITE MACRO INSTRUCTIONS 



Programming Note : Each outgoing message 
block must end with EOB. 



WRITE Initial (TI) 



WRITE Initial and Reset (TIR) 



WRITE Initial dials a terminal, writes an 
EOA to place the terminal in receive state, 
writes message text, and reads the response 
to text. 



READ Continue writes a positive response 
and reads a message block. This macro is 
for use following a successful READ Initial 
(TI), READ Repeat (TP) , or another READ 
Continue to receive another message block 
from the same terminal and component that 
sent the previous block. 



1. Disable 

2. Dial Dial digits 

3. Write Pad characters 

4. Write EOA 

5. Write Text 

6. Read Response 

7. Write EOT (TIR only) 

8. Disable (TIR only) 
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WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



5. 
6. 



Sense 
Read 



Text 



WRITE Continue writes a message block and 
reads a response from the terminal. This 
macro is for use following a WRITE Initial 
(TI) or another WRITE Continue. 

1. Write Text 

2. Read Response 

3. Write EOT (TTR only) 

4. Disaole (TTR only) 



Programming Note ; WRITE TTV performs the 
same functions as would be performed by a 
WRITE Continue (TT) followed by a READ Con- 
versational (TV) , but saves coding effort 
by allowing you to verify successful 
initiation and conclusion of the operation 
(i.e., by checking return and completion 
codes) just once, instead of after each of 
the two separate macro instructions. 



WRITE Conversational (TV) 

WRITE Conversational and Reset (TVR) 



WRITE Positive Acknowledgment and 
Disconnect (TA) 



WRITE Conversational writes an EOA to place 
the terminal in receive state, writes mes- 
sage text, and reads the response. This 
macro is for use following a Read opera- 
tion, to change from receiving text to 
sending text. 

1. Write EOA 

2. Write Text 

3. Read Response 

4. Write EOT (TVR only) 

5. Disable (TVR only) 



WRITE Continue Conversational (TTV) 



WRITE Positive Acknowledgement and Discon- 
nect writes a positive response to text (an 
EOA) and breaks the line connection. This 
macro is for use following a successful 
READ operation when you wish to break the 
line connection instead of receiving the 
remaining blocks of a message. 

1. Write EOA EOT 

2. Disable 



WRITE Negative Acknowledgment and 
Disconnect (TN) 



WRITE Continue Conversational writes a mes- 
sage block and reads a response from the 
terminal, then resets it to control mode, 
monitors the line for an EOA from the ter- 
minal and reads the message block that 
follows. 

1. Write Text 

2. Read Response 

3. Write EOT EOT EOT 

4. Prepare 



WRITE Negative Acknowledgment and Discon- 
nect writes a negative acknowledgment (the 
EOT character serves this purpose) and 
breaks the line connection. This macro is 
for use. following an unsuccessful Read 
operation when you wish to break the line 
connection instead of receiving the remain- 
ing blocks of a message. The macro may 
also be used after a write operation when 
you wish to break the line connection. 



1. 
2. 



Write EOT 
Disable 
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IBM 2740 WITH DIAL-UP AND TRANSMIT CONTROL 
FEATURES 



the response is positive, reads a message 
block. If the response is negative, the 
operation is posted complete. 



Caution ; A 2740 having the Transmit Con- 
trol feature is equipped with a Transmit 
Control switch. This switch must always be 
in the MTC position when the 27 40 is under 
BTAM control. 



DEFINING TERMINAL LISTS 



1. Disable 

2. Enable 



3. 
4. 
5. 
6. 
7. 
8. 



Write 

Write 

Read 

Read 

Write 



Pad characters 

Selection sequence 

Response 

Text 

EOT (TIR only) 



Disable (TIR only) 



A Read Initial or Write Initial operation 
that answers a call from a terminal 
requires an answering list, which you 
define by coding the operand field of a 
DFTRMLST macro like this: 



| DIALST,0 
L 



A Read Initial or Write Initial operation 
that calls a terminal requires a calling 
list, which you define by coding the 
DFTRMLST operand field like this: 



| DIALST,dialcount,dialchars 

i 



READ Conversational (TV) 

READ Conversational and Reset (TVR) 



READ Conversational writes a selection 
sequence, and if the response is positive, 
reads a message block. If the response is 
negative, the operation is posted complete. 
This macro is for use following a Write 
operation, to change from sending text to 
receiving text. 

1. Write Selection sequence 

2 . Read Response 

3. Read Text 

4. Write EOT (TVR only) 

5. Disable (TVR only) 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 
READ Initial and Reset (TIR) 
(Using Calling List) 



READ Initial dials a terminal, writes a 
selection sequence, and if the response is 
positive, reads a message block, if the 
response is negative, the operation is 
posted complete. 



1. Disable 



Dial 

Write 

Write 

Read 

Read 

Write 



Dial digits 

Pad characters 

Selection sequence 

Response 

Text 

EOT (TIR only) 



WRITE MACRO INSTRUCTIONS 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 

(Using Calling List) 

WRITE Initial dials a terminal, writes an 
EOA to place the terminal in receive state, 
and writes message text to the terminal. 

1. Disable 



2. 


Dial 


Dial digits 


3. 


Write 


Pad characters 


4. 


Write 


EOA 


5. 


Write 


Text 


6. 


Write 


EOT (TIR only) 



7. Disable (TIR only) 



Disable (TIR only) 



READ Initial (TI) 

READ Initial and Reset (TIR) 

(Using Answering List) 

READ Initial answers a call from a termi- 
nal, writes a selection sequence, and if 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 

(Using Answering List) 



WRITE Initial answers a call from a termi- 
nal, writes an EOA to place it in receive 
state, and writes message text to the 
terminal. 
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1. 


Disaole 




2. 


Enable 




3. 


Write 


Pad characters 


U. 


Write 


EOA 


5. 


Write 


Text 


6. 


Write 


EOT (TIR only) 



7. Disable (TIR only) 



IBM 2740 — Dial-up, Transmit Control 



1. Write EOA 

2. Write Text 

3. Write EOT (TVR only) 

4. Disable (TVR only) 



WRITE Conversational (TV) 

WRITE Conversational and Reset (TVR) 



WRITE Disconnect (TN) 



WRITE Conversational writes message text to 
the terminal. This macro is for use fol~ 
lowing a Read operation, to change from 
receiving text to sending text. 



WRITE Disconnect breaks the line 
connection. 



1. 

2. 



Write 
Disable 



EOT 
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IBM 274 WITH DIAL-UP, TRANSMIT CONTROL, 
AND CHECKING FEATURES 



the response is positive, reads a message 
block. 



Caution ; A 2740 having the Transmit Con- 
trol feature is equipped with a Transmit 
Control switch. This switch must always be 
in the MTC position when the 2740 is under 
3TAM control. 



1. Disable 

2. Enable 

3. Write Pad characters 

4. Write Selection sequence 

5. Read Response 

6. Read Text 

7. Write EOA EOT (TIR only) 

8. Disable (TIR only) 



DEFINING TERMINAL LISTS 



A Read Initial or Write Initial operation 
that answers a call from a terminal 
requires an answering list, which you 
define by coding the operand field of a 
DFTRMLST macro like this: 



DIALST,0 



A Read Initial or Write Initial operation 
that calls a terminal requires a calling 
list, which you define by coding the 
DFTRMLST operand field like this: 



READ Continue (TT) 

READ Continue and Reset (TTR) 



READ Continue writes a positive response 
and reads a message block. This macro is 
for use following a successful READ Initial 
(TI), READ Repeat (TP) , or another READ 
Continue to receive another message block 
from the same terminal and component that 
sent the previous block. 

1. Write (y) 

2. Read Text 

3. Write EOA EOT (TTR only) 

4. Disable (TTR only) 



| DI ALST , dialcount , dialchars 

L 



READ Repeat (TP) 

READ Repeat and Reset (TPR) 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TIR) 



(Using Calling List) 



READ Initial dials a terminal, writes a 
selection sequence, and if the response is 
positive, reads a message block. If the 
response is negative, the operation is 
posted complete . 



1. 


Disabl 


e 


2. 


Dial 


Dial digits 


3. 


Write 


Pad characters 


4. 


Write 


Selection sequence 


5. 


Read 


Response 


6. 


Read 


Text 


7. 


Write 


EOA EOT (TIR Only) 


8. 


Disable (TIR only) 



READ Initial (TI) 

READ Initial and Reset (TIR) 

(Using Answering List) 



READ Initial answers a call from a termi- 
nal, writes a selection sequence, and if 



READ Repeat writes a negative response and 
reads a message block. This macro is for 
use following an unsuccessful READ Initial 
(TI) , READ Continue (TT) t or another READ 
Repeat, to receive the same message block 
read by the previous operation. 

1. Write (n) 

2. Read Text 

3. Write EOA EOT (TPR only) 

4. Disable (TPR only) 



READ Conversational (TV) 

READ Conversational and Reset (TVR) 



READ Conversational writes a selection 
sequence, and if the response is positive, 
reads a message block. If the response is 
negative, the operation is posted complete. 
This macro is for use following a Write 
operation, to change from sending text to 
receiving text. 

1. Write EOT EOT EOT 

2. Write Selection sequence 

3. Read Response 

4. Read Text 

5. Write EOA EOT (TVR only) 

6. Disable (TVR only) 
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WRITE MACRO INSTRUCTIONS 



WRITE Conversational (TV) 

WRITE Conversational and Reset (TVR) 



Programming Note ; Each outgoing message 
block must end with EOB. 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



(Using Calling List) 



WRITE Conversational writes an EOA to place 
the terminal in receive state, writes mes- 
sage text, and reads the response. This 
macro is for use following a Read opera- 
tion, to change from receiving text to 
sending text. 



WRITE Initial dials a terminal, writes an 
EOA to place the terminal in receive state, 
writes message text to the terminal, and 
reads a response from the terminal. 

1. Disable 



2. 


Dial 


Dial digits 


3. 


Write 


Pad characters 


4. 


Write 


EOA 


5. 


Write 


Text 


6. 


Read 


Response 


7. 


Write 


EOT (TIR only) 



1. Write EOA 

2. Write Text 

3. Read Response 

4. Write EOT (TVR only) 

5. Disable (TVR only) 



WRITE Positive Acknowledgment and 
Disconnect (TA) 



8. Disable (TIR only) 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 

(Using Answering List) 



WRITE Initial answers a call from the ter- 
minal, writes an EOA to place it in receive 
state, writes message text to the terminal, 
and reads a response from the terminal. 



WRITE Positive Acknowledgment and Discon- 
nect writes a positive response to text (an 
EOA) and breaks the line connection. This 
macro is for use following a successful 
Read operation when you wish to break the 
line connection instead of receiving the 
remaining blocks of a message. 



1. 
2. 



Write 
Disable 



EOA EOT 



1. Disable 



2. 


Enable 




3. 


Write 


Pad characters 


4. 


Write 


EOA 


5. 


Write 


Text 


6. 


Read 


Response 


7. 


Write 


EOT (TIR only) 



8. Disable (TIR only) 



WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



WRITE Continue writes a message block and 
reads a response from the terminal. This 
macro is for use following a WRITE Initial 
(TI) or another WRITE Continue. 

1. Write Text 

2. Read Response 

3. Write EOT (TTR only) 

4. Disable (TTR only) 



WRITE Negative Acknowledgment and 
Disconnect (TN) 



WRITE Negative Acknowledgment and Discon- 
nect writes a negative acknowledgment (the 
EOT character serves this purpose) and 
breaks the line connection. This macro is 
for use following an unsuccessful Read 
operation when you wish to break the line 
connection instead of receiving the remain- 
ing blocks of a message. The macro may 
also be used after a write operation when 
you wish to break the line connection. 



1. Write EOT 

2. Disable 



Start- Stop Read and Write Operations 91 



IBM 2740 — Station Control 
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READ MACRO INSTRUCTIONS 



READ Initial (TI) 



DEFINING TERMINAL LISTS 



Read Operations 



A Read Initial operation requires an open 
or wraparound polling list. The list may 
have one or more terminal entries, each 
containing a single polling character that 
identifies the terminal. To define a poll- 
ing list, code the operand field of a 
DFTRMLST macro like this: 



OPENLST / 

| ) WRAPLoTt, (XX, ) 

L- 1 



READ Initial successively polls the ter- 
minals in the polling list, and upon 
receiving a positive response to polling, 
reads a message block. 



1. Write 

2 . Write 

3. Write 

4. Read 

5. Read 



EOT EOT EOT 
Polling character 
Space character 
Response 
Text 



WRITE MACRO INSTRUCTIONS 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



Write Operations 

A Write Initial operation requires an ad- 
dressing list having a single entry, con- 
taining a single addressing character that 
identifies the terminal that is to receive 
the output message. To define an address- 
ing list, code the operand field of a 
DFTRMLST macro like this: v 

r 1 

| OPENLST ,XX | 

L . J 



WRITE Initial addresses a terminal, and if 
the response is positive, writes an EOA to 
set the terminal to receive state and 
writes message text to the terminal. If 
the terminal sends a negative response to 
addressing, the operation is posted 
complete. 

EOT EOT EOT (§) 

Addressing character 

Space character 

Response 

EOA 

Text 

EOT EOT EOT (TIR only) 



1. 


Write 


2. 


Write 


3. 


Write 


4. 


Read 


5. 


Write 


6. 


Write 


7. 


Write 
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FEATURES 



READ Continue (TT) 

READ Continue and Reset (TTR) 



DEFINING TERMINAL LISTS 



Read Operations 



A Read Initial operation requires an open 
or wraparound polling list. The list may 
have one or more terminal entries, each 
containing a single polling character that 
identifies the terminal. To define a poll- 
ing list, code the operand field of a 
DFTRMLST macro like this: 



I Iopenlst! 



| /WRAPLST^, (xx, ...) 

I 



Write Operations 



READ Continue writes a positive response 
and reads a message block. This macro is 
for use following a successful READ Initial 
(TI), READ Repeat (TP) , or another READ 
Continue to receive another message block 
from the same terminal and component that 
sent the previous block. 

1. Write © 

2 . Read Text 

3. Write EOA EOT EOT EOT (TTR only) 



READ Repeat (TP) 

READ Repeat and Reset (TPR) 



READ Repeat writes a negative response and 
reads a message block. This macro is for 
use following an unsuccessful READ Initial 
(TI), READ Continue (TT) , or another READ 
Repeat, to receive the same message block 
read by the previous operation. 



A Write Initial operation requires an ad- 
dressing list having a single entry, con- 
taining a single addressing character that 
identifies the terminal that is to receive 
the output message. To define an address- 
ing list, code the operand field of a 
DFTRMLST macro like this: 



|OPENLST,xx 

L 



1. Write {EJ 

2 . Read Text 

3. Write EOA EOT EOT EOT (TPR only) 



WRITE MACRO INSTRUCTIONS 



Programming Note : Each outgoing message 
block must end with EOB. 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TIR) 



READ Initial successively polls the ter- 
minals in the polling list, and upon 
receiving a positive response to polling. 



reads a mess 


age block. 




1. 
2. 


Write 
Write 


1. Write 


EOT EOT EOT 




3. 


Write 


2. Write 


Polling character 




4. 


Read 


3 . Write 


Space character 




5. 


Write 


4 . Read 


Response 




6. 


Write 


5. Read 


Text 




7. 


Read 


6. Write 


EOA EOT EOT EOT (TIR 


only) 


8. 


Write 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



WRITE Initial addresses a terminal, and if 
the response to addressing is positive, 
writes EOA followed by message text and 
reads the response from the terminal. 

EOT EOT EOT© 

Addressing character 

Space character 

Response 

EOA 

Text 

Response 

EOT EOT EOT (TIR only) 
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WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



for use after a Read operation, when you 
wish to stop receiving from the terminal 
before the terminal has sent an EOT. 



WRITE Continue writes a message block and 
reads a response from the terminal. This 
macro is for use following a WRITE Initial 
(TI) or another WRITE Continue. 



Write 



EOA EOT EOT EOT 



1 . Write Text 

2. Read Response 

3. Write EOT EOT EOT (TTR only) 



WRITE Positive Acknowledgment (TA) 



WRITE Positive Acknowledgment writes a 
positive acknowledgment and an EOT sequence 
to indicate to the terminal that the com- 
puter received message text without error 
and to stop line activity. This macro is 



WRITE Negative Acknowledgment (TN) 



WRITE Negative Acknowledgment writes an EOT 
sequence to indicate to the terminal that 
the computer received text with an error 
and to stop line activity. The terminal 
interprets the EOT sequence as a negative 
response. This macro is for use after a 
Read operation r when you wish to stop 
receiving from the terminal before the ter- 
minal has sent an EOT. 



1 . Write 



EOT EOT EOT 
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IBM 2760 OPTICAL IMAGE UNIT - GENERAL 
INFORMATION 



OPERATION AND MESSAGE FORMATS 



This section describes the essential func- 
tions of the IBM 2760 Optical Image Unit 
and explains their relationship to the for- 
mats of messages to and from the computer. 
(See the 2760 component description publi- 
cation listed in the Preface for detailed 
information on this terminal device.) 



FILMSTRIP POSITIONING 



After the operator inserts the filmstrip 
cartridge into the front of the 2760, the 
filmstrip drive mechanism positions the 
filmstrip in accordance with instructions 
from the user program. These instructions 
are received in the form of a message of 
predefined format, called a frame change 
message. Three characters, designated F, 
A lr and A 2 , determine how the filmstrip is 
to be positioned. The F (function) charac- 
ter specifies the direction of filmstrip 
movement (this character has other func- 
tions, discussed below). The h ± and A 2 
characters are codes indicating the amount 
(i.e., number of frames) of filmstrip move- 
ment. Figure 14 gives the meanings of the 
possible values of the F character; Figure 
15 gives the codes for the A x and A 2 
characters. 



F 
Char. 


Film 
Movement 


Mode 
of Operation 


Manual 
Frame Advance 










Space 


Reverse 


Auto EOM 


Disabled 


1 


Forward 


Auto EOM 


Disabled 


2 


Reverse 


Manual EOM 


Disabled 


3 


Forward 


Manual EOM 


Disabled 


4 


Reverse 


Auto EOM 


Enabled 


5 


Forward 


Auto EOM 


Enabled 


6 


Reverse 


Manual EOM 


Enabled 


7 


Forward 


Manual EOM 


Enabled 



Frames of 

Film 
Movement 

or 

Number in 

Image 

Index Counter 




Frames of 

Film 
Movement 

or 

Number in 

Image 

Index Counter 




Character 

Transmitted 

Al/Il 


Character 

Transmitted 

A2A2 





Space (C Bi r) 





Space (C Bit) 


32 


@ 


1 


@ 


64 


- 


2 


- 


96 


& 


3 


& 


128 


1 


4 


1 


160 


/ 


5 


/ 


192 


J 


6 


J 


224 


a 


7 


a 


256 


2 


8 


2 


288 


s 


9 


s 


320 


k 


10 


k 


352 


b 


11 


b 


384 


3 


12 


3 


416 


t 


13 


L 


448 


X 


14 


I 


480 


c 


15 


c 




16 


4 


17 


u 


18 


m 


19 


d 


20 


. 5 


21 


V 


22 


n 


23 


e 


24 


6 


25 


w 


26 





27 


f 


28 


7 


29 


X 


30 


P 






31 


9 



Figure 15. A^/Ii and A 2 /I 2 Character Codes 



MODES OF OPERATION 



In addition to indicating the direction of 
filmstrip movement, the F character desig- 
nates whether the unit is to operate in 
Manual or Automatic EOM mode and whether or 
not in Manual Frame Advance mode. 



Figure 14. F (Function) Character Codes 



Start-Stop Read and Write Operations 95 



IBM 2760 — General Information 



Manual vs. Automatic EOM Mode 



The 27b0 operates in one of two modes 
when sending a message to the computer. In 
automatic EOM (end of message) mode the 
message contains a single set of response 
point coordinates (explained below) , and 
the message is sent automatically when the 
terminal operator probes a response point. 

In manual EOM mode, more than one set of 
response point coordinates can be sent in 
the same message. In this mode, the termi- 
nal operator indicates the end of the mes- 
sage by probing the End Entry response 
point (one of the three Utility response 
points) . 



Manual Frame Advance 



Positioning of the filmstrip is ordinarily 
performed upon instruction from the user 
program. The filmstrip may alternatively 
be positioned by the terminal operator; 
this, in conjunction with Manual EOM mode, 
allows the operator to enter a message con- 
taining response points from more than one 
image (frame) . Use of this feature results 
in fewer program interruptions for reposi- 
tioning the filmstrip and is therefore more 
economical of CPU time. Its use also simp- 
lifies logical program organization in that 
the program does not have to provide a 
frame change message for every possible 
circumstance. 



The terminal operator moves the filmstrip 
by means of the Film switch on the front of 
the 2760. He can use the switch only when 
it has been made operational ("enabled") by 
the program. The F character sent by the 
program determines whether the switch is 
enabled or disabled. 



RESPONSE POINTS AND COORDINATES 



Each of the two halves of the Optical Image 
Unit screen, the image screen (right half) 
and auxiliary screen (left half) has 120 
possible response points, in a 10 (hori- 
zontal) by 12 (vertical) matrix. Only a 
few, or perhaps one, of these points will 
be utilized in any given image (frame) or 
overlay. Each response point is repre- 
sented by a set of vertical and horizontal 
(V and H) coordinates. It is these coor- 
dinates that are sent to the computer when 
the operator probes a response point. The 
user program must contain a table that 
associates with each valid response point 
some value or bit setting representing the 
response probed by the operator. 

Figure 16 gives the V and H coordinates 
for each of the response points. Each 
coordinate is represented by a character, 
which on the communication line is repre- 
sented by the corresponding bit pattern in 
transmission code. 
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(V) Vertical 
Coordinates* 
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@. 



(H) Horizontal 
Coordinates* 



Auxiliary Screen 



Vertical Positions 



Image Screen 



* Shown in upper case for ease of reading. The 2760 operates in lower case shift auto- 
matically. No case shift characters are required or permitted in messages to or from the unit. 

Figure 16. V £ H (Vertical S Horizontal) Response Point Coordinate Codes 



Utility Response Points 



Three special response points appear in a 
vertical row to the right of the image 
screen. The Load response point, when 
probed, indicates to the user program that 
the terminal operator has inserted a films- 
trip cartridge into the Optical Image Unit. 
Upon receiving the V and H coordinates of 
this response point, the user program 
should send a frame change message to the 
2760 that causes it to advance 7 the films- 
trip to the first frame. 

The Unload response point, when probed, 
indicates to the user program that it 
should send a message that retracts the 
filmstrip into the cartridge and ejects the 
cartridge. 

The End Entry response point is probed at 
the end of each message, when the 2760 is 
operating in Manual EOM Mode. 



IMAGE INDEX COUNTER 



Within the Optical Image Unit is an elec- 
tronic counter called an Image Index Count- 



er, which is incremented and decremented in 
step with filmstrip movement. The counter 
thus maintains a continuous record of which 
frame of the filmstrip is currently being 
projected. The content of this counter is 
transmitted to the computer at the begin- 
ning of each message to the computer or, 
when manual frame advance is being used, at 
the beginning of each sequence of response 
points from a given image. The two charac- 
ters representing the content of the count- 
er are designated 1^ and I 2 . 



Upon receipt by the computer of each mes- 
sage from the 2760, the user program should 
check the l x I 2 characters to ensure that 
the correct image is being displayed. 



Figure 15 shows the characters that 
represent the numerical content of the 
image index counter. 



If the program sends to the 2760 a mes- 
sage that instructs the mechanism to move 
the filmstrip to a point that is beyond its 
last frame, an interlock is activated that 
prohibits filmstrip movement. This in turn 
prevents the image index counter from being 
incremented. 
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MESSAGE FORMATS 



Each message from the computer to the IBM 
2760 begins with the sequence EOA' PRE o 
(end-of -address, prefix, lowercase o) . The 
PRE o characters indicate that the message 
is intended for the 2760 and not for the 
IBM 2740 with which it is associated. 
Similarly, each message from the 2760 to 
the computer begins with EOA PRE o. The 
user program should check the input area 
for the presence of these two characters. 
(The PRE o sequence is represented by 
X'3E4C' in transmission code.) Each mes- 
sage in either direction ends with an EOB 
(end-of -block) character. 

Figure 17 presents the formats for mes- 
sages between the computer and the Optical 
Image Unit. 



Computer to IBM 2760 



Output messages, referred to as frame 
change messages, direct the Optical Image 
Unit to move the film forward or backward, 
set the mode for the subsequent response 
message, and specify the amount of films- 
trip travel (i.e., number of frames). See 
Figure 14 for the meanings of the possible 
values of the F character; see Figure 15 
for the coded values representing amount of 
filmstrip movement (A^ and A 2 characters). 



IBM 2760 to Computer 



Input messages, referred to as response 
messages, indicate to the user program 
which filmstrip frame is being displayed 
for the current response, and give the V 
and H coordinates of the response point or 
points the operator has probed. 



Auto EOM Mode ; In this mode, each probe 
action by the terminal operator causes a 
complete message, containing the coor- 
dinates of one response point, to be sent 
to the computer. 

Manual EOM Mode, Film Switch Disabled : In 
this mode, a message may contain any number 
of response point coordinates. The 
sequence EOA PRE o I x I 2 V^. H x is sent to 
the computer when the first response is 
probed. Each subsequent set of V and H 
coordinates is sent individually as each 
response point is probed. The EOB charac- 
ter is automatically sent after the coor- 
dinates when the End Entry response point 
is probed. 

The user program should check for the End 
Entry response point to ensure that the 
message contains the correct number of 
responses. 

Manual EOM Mode, Film Switch Enabled ; In 
this mode, the terminal operator may repo- 
sition the filmstrip to a new frame while 
entering response points, so that the input 
message contains responses from more than 
one image. The image index counter is 
incremented or decremented each time the 
filmstrip is moved. 

The first probe action by the terminal 
operator following manual positioning of 
the filmstrip causes the sequence PRE o I ± 
I 2 Vi h x ... to be sent to the computer. 
Figure 17 illustrates the message resulting 
from entering response points for three 
different images. 

The only times the operator cannot move 
the filmstrip, when the Film Switch is 
enabled, are when the image index counter 
contains a value of 2 or less, in which 
case reverse movement is inhibited; when 
the 2760 detects the hole in the tenth 
trailer frame, in which case forward move- 
ment is inhibited; and when the 2760 is at 
that moment receiving or executing a mes- 
sage from the computer. 
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Computer to 2760 (Frame Change Message) 



EOA 


PRE 





F 


A l 


A 2 


EOB 



2760 to Computer (Response Message) 
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Manual EOM Mode; Film Switch Disabled: 
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... 


V n 
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EOB 



Manual EOM Mode; Film Switch Enabled: 



Figure 17 . Message Formats 



End Entry 
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(Manual Frame Advance) 
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End Entry 
response 



In describing 2760 operations, the term 
answerback is used instead of response, to 
avoid confusion with responses entered by 
the terminal operator.) 



Manual EOM Mode 



In this mode, the On-Line light comes on 
when the terminal operator probes the first 
response point and remains on throughout 
the remainder of the message. This should 
alert the operator that the terminal is in 
Manual EOM mode and accordingly is subject 
to the inter-character time-out imposed by 
the transmission control unit. That is, 
each subsequent response should be made 
within that time limit 1 -. The On-Line light 
goes off when the computer replies with a 
(Y) , EOA, or EOT. 



The audible tone sounds as each response 
point is probed, to inform the operator 
that the response has been sent to the com- 
puter and that he may probe again. The 
final probe action (End Entry) results in 
the tone only after the computer replies 
with a(?)or EOA. This signifies to the 
operator that the complete message was 
received without error. 



If a response point is incorrectly 
probed, the tone does not sound and the 
Probe Check light appears. This indicates 
that the probe touched the screen at too 
small an angle from the vertical or that it 
touched outside the designated response 
point area. 



SIGNALS TO OPERATOR 



Two kinds of signals inform the terminal 
operator that his probe actions are 
correct. One is a visible indicator: the 
On-Line light. The second is an audible 
tone. The use of these signals differs for 
Automatic EOM, and Manual EOM mode. 



Automatic EOM Mode 



When the operator enters responses in this 
mode, the On-Line light comes on when he 
probes the response point. The audible 
tone sounds and the light goes out when the 
computer has returned a positive answer- 
back, indicating that it received the mes- 
sage without error. The positive answer- 
back may be a Q^ or an EOA (see Error Detec- 
tion and Recovery) . 



ERROR DETECTION AND RECOVERY 



Messages to and from the IBM 2760 are 
checked for errors by the Record Checking 
facility of the 2740 to which the 2760 is 
attached. In addition, the 2760 checks 
messages from the computer for proper 
length; all messages from the computer have 
the same length. 

If a text error or record length error is 
detected in a frame change message, the 
2760/2740 sends a(tJ) (negative answerback) 
character in response to the EOB that ends 
the frame change message. If the EROPT 
operand of the DCB macro for the line group 
specifies W (retry of write-text errors) , 



1 It may be well to specifically inform the 
operator of the time limit by means of a 
suitable phrase on the image, for each 
frame for which the limit applies. 
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BTAM error recovery procedures cause the 
frame change message (without the EOA char- 
acter) to be retransmitted up to two more 
times. If the error condition persists 
beyond the three attempts, or if EROPT does 
not specify W, the error condition is post- 
ed in the data event control block (DECB) 
for the line. 



ible tone within a reasonable interv- 
al after probing. 

For information on error indicators at 
the Optical Image Unit, see the IBM 2760 
Optical Image Unit - Component Description 
publication. 



If the frame change message is received 
without error, the 2760/2740 sends a(7) 
(positive answerback) character. BTAM 
responds to the (?) with an EOT, which causes 
the 2760 to execute the instructions con- 
tained in the frame change message. 

If a text error is detected in a response 
message, and the EROPT operand of the DCB 
macro for the line group specifies R (retry 
of read-text errors), BTAM error recovery 
procedures send a(N)to the 2760/274 0, then 
reread the response message. If the Optic- 
al Image Unit is in Automatic EOM mode, it 
automatically resends the message; if it is 
in Manual EOM mode, the terminal operator 
must re-enter the entire response message. 

Theerror recovery procedures respond 
with (n) and reread the message up to two 
more times. if the error condition per- 
sists beyond the three attempts, or if 
EROPT does not specify R, the error condi- 
tion is posted in the DECB for the line. 

If the response message is received 
without error, the operation on which the 
message was received is posted complete. 
The EOA character that begins the next 
frame change message serves as a positive 
answerback to the 2760/2740. 

It is possible that the terminal operator 
will probe the screen of the 27 60 at a time 
when the probe is activated but there is no 
Read command in effect to receive the data. 
Should this occur, the next operation 
executed for the line to which that 2760 is 
connected will be posted complete-with- 
error, indicating that probe data was lost. 
In order to recover from an error of this 
kind, you may wish to take one of these 
suggested actions: 

• Issue a WRITE TCO macro that moves 
the filmstrip to an error-handling 
frame that will aid the terminal 
operator in recovering the lost data. 

• Issue a WRITE TV macro to write an 
error message on the printer of the 
2740 to which the 2760 is attached. 

• Issue a READ TI macro (nonswitched 
line) or READ TV macro (switched 
line) to read the next message from 
the terminal. The operator should be 
instructed to re-probe the previous 
response if he does not hear the aud- 



ON-LINE TESTING 



On-line tests for the IBM 2760 are 
initiated at the IBM 2740 terminal key- 
board. The test request message can be 
keyed in whenever the user program issues a 
READ macro instruction (other than READ 
Skip) without the Reset option, or it may 
be keyed in after the filmstrip has been 
moved by a WRITE TCO macro. In order to 
use the on-line test facility, the EROPT 
field in the DCB for the line group must 
specify T. 

Two tests are available for the 2760: 
frame change test (type 10) and scan point 
test (type 11). They are designed to test 
the filmstrip transport mechanism and the 
probe response accuracy of the 2760. See 
Test Type Codes in the chapter On-Line 
Testing for descriptions of these tests. 

On-line tests will generally be run by 
the IBM Customer Engineer during periods of 
inactivity or as a startup procedure. Once 
the testing is completed, the Customer 
Engineer will unload the filmstrip and the 
operator can continue operation. 

The terminal operator can also interrupt 
his data entry operation at any time to run 
a terminal test. However, some provision 
must be made to reposition the filmstrip to 
the frame being displayed when the test was 
begun, and to reset the modes in effect at 
the time. A recommended way of doing this 
is for the user program to save (1) the 
image index value expected in the response 
message that would have been received had 
not the test request message been received 
instead, and (2) the F-character contained 
in the last previous frame change message. 

Then, upon conclusion of the test, the 
program would (1) calculate the difference 
between the values of the image index at 
the beginning and at the end of the test, 
and from this difference determine the A x 
and A 2 characters to be sent in the next 
frame change message; and (2) determine, 
from the modes at the beginning of the test 
and the sign of the difference in the image 
index values, the appropriate F-character 
for the frame change message. Sending that 
message to the 2760 would properly position 
the filmstrip and set the correct modes. 
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As an example, assume that the filmstrip 
was positioned at frame 27 at the beginning 
of the test and that the modes in effect 
were Manual EOM, Manual Frame Advance dis- 
abled. If the previous filmstrip movement 
had been in the forward direction, the last 
F-character sent would be 3 (see Figure 3. 
14) . Then assume that at the end of the 
test the filmstrip was positioned at frame 
44. To reposition it to frame 27 would 
require a reverse movement of 17, hence the 
A x , A 2 characters in the next frame change 
message would be Space U (see Figure 15) 
and the F-character would specify reverse 
direction. To restore the modes to their 4. 
original settings (Manual EOM, Manual Frame 
Advance disabled) , the F-character should 
be 2. In computing the F-character, it is 
useful to know that the filmstrip direction 
is determined by bit 6 (0=reverse, 1= 
forward), the Manual Frame Advance mode is 5. 
determined by bit 4 (0=disabled, 1= 
enabled) , and the EOixi mode is determined by 
bit 5 (0=automatic, l=manual) . 

To request one of the 2760 tests, the 
following message must be keyed from the 6. 
2740: 

99999xx4FA 1 A 2 EOT 



and that can be answered by probing 
response points on the Optical Image 
Unit screen. Responses may be Yes-No 
choices, multiple choices, alphabetic 
or numeric data, etc. 

Design the sequence of questions to 
request the information in the most 
efficient order. Make sure that the 
questions are coordinated so that 
each piece of information is obtained 
at the proper point in the data entry 
procedure. 

Make a preliminary design of all the 
filmstrip frames that request infor- 
mation. Decide on the wording of the 
questions and the wording and loca- 
tion of the response points. 

Design, on the basis of the frame 
layouts, a system of tables that will 
enable the user program to recognize 
the valid and invalid responses to a 
question on a frame. 

Make a final design of all the frames 
that request information, and modify 
the tables as necessary to make them 



mc 



fsf f -l /—n orct- 



XX 



A, 



10 for frame change test 

11 for scan point test 

specifies that the test 
is for the 2740 
terminal (of which the 2760 
is a component) 

function control character 

amount of film movement 



If the operation in effect when a test 
request message is entered is a Write Invi- 
tational Optical (TCO) operation, the on- 
line test facility performs, at the conclu- 
sion of the test, a Read Initial (TI) 
operation (nonswitched line) or Read Con- 
versational (TV) operation, to receive the 
next regular message block. 



PROGRAMMING CONSIDERATIONS 



7. Arrange the filmstrip layout to mini- 
mize film movement (e.g., error 
frames and other frequently displayed 
frames should be in the middle of the 
filmstrip) . 

8. Design a method of initialization so 
that the program can locate the frame 
containing the first application 
image that requests information from 
the operator even if some of the 
leader frames have been cut off. The 
section, Initializing Images, sug- 
gests a means for doing this. 

9. Design the frames necessary for 
initialization. 

10. Code the user program on the basis of 
the tables and frames. The program 
must include the initialization rou- 
tine as well as the error routine for 
detecting and notifying the operator 
of invalid responses. 



General Steps for Preparing the User 
Program 



Initializing Images 



Define the information the user pro- 
gram is to obtain from the terminal 
operator. 

Divide the required information into 
questions and statements that are 
meaningful to the terminal operators 



Once the filmstrip cartridge is inserted in 
the Optical Image Unit, five steps of the 
filmstrip drive mechanism are required to 
advance the filmstrip out of the cartridge 
to the point where the first frame can be 
displayed. It is recommended that three 
blank frames be left at the beginning of 
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the filmstrip to serve as a leader, to 
absorb the greater wear that the beginning 
of the strip receives. The first frame 
beyond the blank frames is called the 
initializing image. This image contains a 
probe response point whose position is 
unique for that filmstrip, thus serving to 
identify the filmstrip to the program so 
that the correct data entry procedure rou- 
tine can be determined. 

A further recommendation is that several 
initializing images be used, so that a new 
leading edge can be trimmed on the films- 
trip as the original edge becomes worn 
through use. Each of the initializing 
images would have response points whose 
meanings are the same, but whose position 
differs with each frame. Thus the program, 
when receiving a response message following 
the first frame change message, can identi- 
fy which of the initializing images is 
being displayed. This information can then 
be used to modify the Image index values 
received in subsequent response messages, 
thereby compensating for any change in 
position of the application images (rela- 
tive to the leading edge of the filmstrip) 
caused by removing worn frames. 

Assume, for example, that a new filmstrip 
has three blank frames, followed by three 
initializing frames. The first frame 
change message would specify a film move- 
ment of eight frames. When the filmstrip 
is new, this message causes the first 
initializing image to be projected. When 
the first blank frame is cut off, to pro- 
vide a new leading edge, the same frame 
change message will cause the second 
initializing image to be displayed. Since 
all subsequent application images are now 
one frame closer to the leading edge of the 
filmstrip, it is necessary to subtract one 
from each image index value received in 
response messages, in order for the program 
to correctly identify the frame being dis- 
played for the response points received. 
By determining which initializing image is 
being displayed, the program can set the 
proper decrement value in an index register 
to modify the received image index values. 



Startup Procedure 



When the terminal operator is ready to 
begin a data entry operation, he inserts 
the appropriate filmstrip cartridge into 
the Optical Image Unit and probes the Load 
response point. (If the terminal is con- 
nected to the computer by a switched line, 
he must dial the computer before probing 
the Load response point.) For either a 
switched or a nonswitched line, the Standby 
light on the 2740 must be on and a Read 



Initial operation must be in progress at 
the computer. When the operator probes the 
Load response point, a message containing 
the coordinates of that point is trans- 
mitted to the computer. The program should 
check the input area for the presence of 
the Load coordinates, s Space (X*2501'), 
and upon detecting them, issue a WRITE 
macro that sends the appropriate frame 
change message to the 2760. The A ± and A a 
characters in the frame change message 
should specify sufficient frame movement to 
cause the initializing image to be dis- 
played. Assuming that the initializing 
image is the fourth frame from the begin- 
ning of the filmstrip, a forward movement 
of eight frames is required to position 
that image for projection. 

When the operator probes the response 
point for the initializing image, the pro- 
gram should issue a frame change message 
that positions the filmstrip to the first 
application image to be viewed by the 
operator. If more than one initializing 
image is used, as recommended under Initia- 
lizing Images, the particular frame being 
viewed by the operator when he enters his 
response determines the value of the A 1# A a 
characters in the frame change message. 
For example, assume that the first applica- 
tion image to be viewed is ten frames from 
the first initializing image. A response 
entered for the first initializing image 
should cause the next frame change message 
to specify eight frames of filmstrip move- 
ment. If the response was entered for the 
second initializing image, however, the 
frame change message would have to specify 
a filmstrip movement of seven frames to 
reach the first application image. 

The values of A ± , A 2 in all subsequent 
frame change messages would be independent 
of which initializing image was displayed. 



Receiving Multiple Message Blocks 



Following receipt of a message block from a 
2760, the computer must reply with a posi- 
tive answerback. In the usual conversa- 
tional operation, in which a sequence of 
WRITE TCO macros alternates the sending of 
frame change messages and the receiving of 
response messages, the macro itself 
supplies as the positive answerback the EOA. 
character that begins the next frame change 
message. 

If, however, instead of alternating mes- 
sages in this manner you wish to receive a 
message from the 2760 and then receive a 
message block from the 2740 or the 2760, 
you should use the READ Continue with Lead- 
ing Acknowledgment (TTA) macro. This macro 
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sends a positive acknowledgment to the 276 
and then receives another message block 
from the terminal. 

The recommended method for receiving mul- 
tiple probes from the same filmstrip frame 
is to specify, in the frame change message 
that positions that frame, a function char- 
acter specifying Manual EOM mode. If more 
than one message block is required to 
accommodate the response data to be entered 
from that frame, you should specify Manual 
EOM mode and receive subsequent response 
messages by means of a READ TTA macro or a 
WRITE TCO macro that specifies no filmstrip 
movement . 

You should not issue a READ Continue (TT) 
macro following receipt of a response mes- 
sage from the 2760, for the following 
reason. READ TT sends a (y) (positive ans- 
werback) to the 2760, whicn causes the 2760 
to return an EOT to the computer and to 
release the probe interlock, which allows 
the terminal operator to probe response 
points. When the Read Continue operation 



receives the EOT, the operation is posted 
complete; therefore, no Read operation is 
in effect to receive the next message from 
the terminal. (Both (y) and EOA are 
recognized by the terminal as a positive 
answerback; however, the (y) causes the ter- 
minal, to reply with an EOT but the EOA does 
not. ) 



Sending Message Blocks Alternately to the 
2760 and 2740 



If it is necessary to send message blocks 
alternately to the 2760 and the 2740, the 
message block to the 2760 should be sent 
first, followed by the message block to the 
2740. If the line is not put in control 
mode after sending to the 2760, the message 
block to the 27 40 must begin with text and 
must end with an EOB. If the line is put 
in control mode after sending to the 2760, 
the message block to the 27 40 must begin 
with an EOA and must end with an EOB. 
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IBM 2740 WITH CHECKING FEATURE AND 2760 
OPTICAL IMAGE UNIT 



Read and Write operations for the 2740 with 
the checking feature and 2760 Optical Image 
Unit require no terminal lists. 

Once the line group data set has been 
opened, a READ Initial macro may be issued 
to establish contact with the 2740 to which 
the 2760 is attached. If the terminal 
operator wishes to send from the 2740 key- 
board, he presses the Bid key and enters 
the data. If he wishes to begin data entry 
with the Optical Image Unit, he inserts the 
appropriate cartridge into the front of the 
unit and touches the probe to the Load 
response point. Either action causes the 
data to be placed in main storage at the 
location specified by the area operand of 
the READ macro. 

The user program can determine whether 
the message came from the keyboard or the 
Optical Image Unit by testing for the pre- 
sence of the PRE o characters at the begin- 
ning of the input area. 

All data sent to the Optical Image Unit 
is in the form of the fixed-length message 
EOA PRE o F Aj. A 2 EOB, where F represents 
the function control character and A^ and 
A 2 are characters designating the amount of 
f ilmstrip movement as explained under IBM 
2760 Optical Image Unit — General 
Information. 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TIR) 

READ Initial monitors the line for an EOA 
sent by the terminal and reads the message 
block that follows. 



1 . Write 

2. Read Text 

3. Write EOA EOT EOT EOT (TTR only) 



READ Continue with Leading Acknowledgment 

(TTA) 



READ Continue with Leading Acknowledgment 
is for use when you wish to positively ack- 
nowledge a message, reset the terminal to 
standby status, and receive message text 
from either the 2760 or the 2740. 

READ TTA should be used specifically to 
receive message text from the 2740 or 2760 
following receipt of text from the 2760. 
The EOA is a positive acknowledgment (ans- 
werback) to the message block received from 
the 2760, and causes the audible tone to 
sound and the 2760 probe to become acti- 
vated (i.e., releases the probe interlock). 
The EOT sequence resets the terminal to 
standby status so that either the 2760 or 
the 2740 may enter message text. 



1 . Write 

2 . Prepare 

3. Sense 

4 . Read 



EOA EOT EOT EOT 



Text 



READ Repeat ( TP ) 

READ Repeat and Reset (TPR) 

READ Repeat writes a negative response and 
reads a message block. This macro is for 
use following an unsuccessful READ Initial 
(TI), READ Continue (TT) , or another READ 
Repeat, to receive the same message block 
read by the previous operation. 

1. Write ® 

2 . Read Text 

3. Write EOA EOT EOT EOT (TPR only) 



1. 


Write 


EOT 


EOT 


EOT 








2. 


Prepare 














3. 


Sense 














4. 


Read 


Text 












5. 


Write 


EOA 


EOT 


EOT 


EOT 


(TIR 


only) 


READ Continue 


(TT) 












READ Continue 


and 


Reset (TTR) 







READ Continue writes a positive response 
and reads a message block. This macro is 
for use following a successful READ Initial 
(TI), READ Repeat (TP) , or another READ 
Continue to receive another message block 
from the same terminal and component that 
sent the previous block. 



WRITE MACRO INSTRUCTIONS 



Programming Note ; Each outgoing message 
block must end with EOB. 

WRITE Initial (TI) 



WRITE Initial and Reset (TIR) 

WRITE Initial writes an EOA to place the 
terminal in receive state and turn on the 
terminal motors, writes message text, and 
reads the response. 



1 . Write 



EOA and 15 Idle characters 
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2. Write Text 

3. Read Response 

4. Write EOT EOT EOT (TIR only) 

WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 

WRITE Continue writes a message block and 
reads a response from the terminal. This 
macro is for use following a WRITE Initial 
(TI) or another WRITE Continue. 



1. Write Text 

2. Read Response 

3. Write EOT EOT EOT (TTR only) 

WRITE Conversational (TV) 

WRITE Conversational and Reset (TVR) 

WRITE Conversational writes an EOA to place 
the terminal in receive state, writes mes- 
sage text, and reads the response. This 
macro is for use following a Read opera- 
tion, to change from receiving text to 
sending text. 



1 . Write EOA 

2. Write Text 

3. Read Response 

4. Write EOT EOT EOT (TVR only) 



WRITE Initial Optical (TIP) 



This option is for use when you wish to 
send a frame change message, but do not 
require a response from the terminal opera- 
tor (as when retracting the filmstrip and 
ejecting the cartridge at the end of a data 
entry operation) , or when you wish to 
receive the response using a subsequent 
macro. The macro writes the sequence EOA 
PRE o, to indicate to the 2740 terminal 
that the message is intended for the 276 0, 
writes the frame change characters and the 
EOB character, then reads the answerback 
(response to checking). 

If the answerback is positive, the macro 
ends the operation by sending an EOT to the 
terminal. If the answerback is negative, 
the channel program is ended at this point 
and the error condition is posted in the 
DECB for the line, except that if Write 
retries are specified (EROPT=W in DCB), 
BTAM error recovery procedures resend the 
frame change characters up to two addition- 
al times before posting the error 
condition. 

You must specify in the entry operand of 
the WRITE TIO macro the address of the main 
storage location containing the three- 
character F A ± A 2 sequence. 



1. 


Write 


2. 


Write 


3. 


Write 


4. 


Read 


5. 


Write 



EOA PRE O 

Frame Change Characters 

EOB 

Answerback 

EOT EOT EOT 



Programming Note ; If input from the 2760 
is expected following execution of the 
Write Initial Optical operation, you should 
issue a READ Initial (TI) macro immediately 
after completion of the Write TIO 
operation. 



WRITE Invitational Optical (TCP) 



This option is for use when you wish to 
send a frame change message and read a 
response message from the terminal. The 
macro functions identically to the WRITE 
Initial Optical (TIO) macro, but in addi- 
tion receives message text from the Optical 
Image Unit or the 2740 keyboard. The Pre- 
pare command (see below) monitors the line 
for an EOA character; when it is received, 
the Read Text command reads into the input 
area that follows the EOA. 

You must specify in the entry operand of 
the WRITE TCO macro the address of the main 
storage location containing the F Aj_ A 2 
sequence; in the area operand you must 
specify the address of the input area into 
which the response message is to be 
received. If dynamic buffering is used to 
read the response message, you should spec- 
ify the length operand as ' S f . 

The WRITE TCO macro is the principal 
macro used in a 2760 application, as it is 
a convenient means for alternately sending 
frame change messages and receiving 
responses from the operator. 



1. 


Write 


EOA PRE O 


2. 


Write 


Frame Change Characters 


3. 


Write 


EOB 


4. 


Read 


Answerback 


5. 


Write 


EOT EOT EOT 


6. 


Prepare 




7. 


Sense 




8. 


Read 


Text 



Examples of WRITE TIO and WRITE TCO 



Figure 18 illustrates how WRITE TIO and 
WRITE TCO are coded. The WRITE TIO macro 
sends a frame change message to move the 
film forward six frames. The WRITE TCO 
macro sends a frame change message to move 
the filmstrip forward 37 frames and then 
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WRITE DECBNAME , TIO , DCBNAME , , , FRMSGl , , MF=E 



1 



FRMSGl 
FRMSGl 
INAREA 



WRITE DECBNAME , TCO , DCBNAME , INAREA ,20, FRMSG2 , , MF=E 



DC X'020143 
DC X'02200B* 
DS 5F 



(1 SP J (LOWERCASE)) 

(l a /) 



L ' . . J 

Figure 18. Examples of WRITE TIO and WRITE TCO Macro Instructions 
(Nonswitched Line) 



reads a response message from the terminal. 
(The Aj. character, a, represents a film 
movement of 32 frames (see Figure 15) ; its 
hexadecimal equivalent is X'20*. The A 2 
character, /, represents a movement of five 
frames; its hexadecimal equivalent is 
X'OB'. Together, the two characters speci- 
fy a film movement of 37 frames.) 

In each case, the F character, 1 
(X'02'), specifies (in addition to forward 
movement) that the response from the 2760 
is to be made in Automatic EOM mode with 
the Film switch (Manual Frame Advance) 
disabled. 



WRITE Positive Acknowledgment (TA) 



WRITE Positive Acknowledgment writes a 
positive acknowledgment and an EOT sequence 
to indicate to the terminal that the com- 
puter received message text without error 
and to stop line activity. This macro is 



for use after a Read operation, when you 

wish to stop receiving from the terminal 

before the terminal has sent an EOT. 

1. Write EOA EOT EOT EOT 



WRITE Negative Acknowledgment (TN) 



WRITE Negative Acknowledgment writes an EOr 
sequence to indicate to the terminal that 
the computer received text with an error 
and to stop line activity. The terminal 
interprets the EOT sequence as a negative 
response. This macro is for use after a 
Read operation, when you wish to stop 
receiving from the terminal before the ter- 
minal has sent an EOT. 

This macro is also used to cause the 2760 
to execute the instructions it received in 
the preceding frame change message. 

1. Write EOT EOT EOT 
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IBM 2740 WITH DIAL-UP AND CHECKING FEATURES Write Operations 
AND 2760 OPTICAL IMAGE UNIT 



Once the line group data set has been 
opened, either the terminal or the computer 
may establish the line connection. If the 
terminal is to establish the connection 
(i.e., dial the computer), issue a READ 
Initial macro instruction that refers to an 
answering list. When the terminal operator 
is ready to enter data, he dials the tele- 
phone number of the computer. 



A Write Initial operation requires a call- 
ing list, which you define by coding the 
DFTRMLST operand field like this; 

DIALST, dialcount, dialchars 

(See WRITE Initial Optical macro for call- 
ing list required for that macro.) 



If he wishes to send from the 2740 key- 
board, he presses the Bid key and enters 
his data. If he wishes to begin data entry 
with the Optical Image Unit, he inserts the 
appropriate cartridge into the front of the 
unit and touches the probe to the Load 
response point. Either action causes the 
data to be placed in main storage at the 
location specified by the area operand of 
the READ macro. 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 

READ Initial and Reset (TlR) 

READ Initial answers a call from a termi- 
nal, monitors the line for an EOA sent by 
the terminal, and reads the message block, 
that follows. 



The user program can determine whether 
the message came froni the keyboard or the 
Optical Image Unit by testing for the pre- 
sence of the PRE o characters at the begin- 
ning of the input area. 

If the computer is to establish the 
switched line connection, the WRITE TIO 
macro, explained below, may be used if you 
wish to send a frame change message immedi- 
ately following establishment of the line 
connection. (Alternatively, the connection 
can be made using a WRITE Initial macro, 
with the frame change message being sent by 
a subsequent WRITE TVO or WRITE TCO macro. ) 

All data sent to the Optical Image Unit 
is in the form of the fixed-length message 
EOA PRE o F A x A 2 EOB, where F represents 
the function control character and h x and 
A 2 are characters designating the amount of 
filmstrip movement, as explained under IBM 
2760 Optical Image Unit — General 
Information. 



1. 
2. 
3. 

5. 
6. 
7. 



Disable 

Enable 

Prepare 

Read 
Write 



Text 

EOA EOT EOT EOT (TIR only) 



Disable (TIR only) 



READ Continue (TT) 

READ Continue and Reset (TTR) 

READ Continue writes a positive response 
and reads a message block. This macro is 
for use following a successful READ Initial 
(TI), READ Repeat (TP) , or another READ 
Continue to receive another message block 
from the same terminal and component that 
sent the previous block. 



1. Write (y) 

2. Read Text 

3. Write EOA EOT EOT EOT (TTR only) 

4. Disable (TTR only) 



DEFINING TERMINAL LISTS 



READ Continue with Leading Acknowledgment 
(TTA) 



Read Operations 



A Read Initial operation requires an an- 
swering list, which you define by coding 
the operand field of a DFTRMLST macro like 
this: 

DIALST, 



READ Continue with Leading Acknowledgment 
is for use when you wish to positively ack- 
nowledge a message, reset the terminal to 
standby status, and receive message text 
from either the 2760 or the 2740. 

READ TTA should be used specifically to 
receive message text from the 2740 or 2760 
following receipt of text from the 2760. 
The EOA. is a positive acknowledgment (ans- 
werback) to the message block received from 
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the 2760, and causes the audible tone to 
sound and the 2760 probe to become acti- 
vated (i.e., releases the probe interlock) 
The EOT sequence resets the terminal to 
standby status so that either the 2760 or 
the 2740 may enter message text. 



5. Write 

6 . Read 

7. Write 

8. Disable 



Text 

Response 

EOT EOT EOT (TIR only) 

(TIR only) 



WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



1. Write 

2. Prepare 

3. Sense 

4 . Read 



EOA EOT EOT EOT 



Text 



READ Repeat (TP) 

READ Repeat and Reset (TPR) 

READ Repeat writes a negative response and 
reads a message block. This macro is for 
use following an unsuccessful READ Initial 
(TI), READ Continue (TT), or another READ 
Repeat, to receive the same message block 
read by the previous operation. 



1. Write {U) 

2. Read Text 

3. Write EOA EOT EOT EOT (TPR only) 

4. Disaole (TPR only) 



WRITE Continue writes a message block and 
reads a response from the terminal. This 
macro is for use following a WRITE Initial 
(TI) or another WRITE Continue. 



1. Write 

2. Read 

3. Write 

4. Disable 



Text 

Response 

EOT EOT EOT (TTR only) 

(TTR only) 



WRITE Conversational (TV) 

WRITE Conversational and Reset (TVR) 

WRITE Conversational writes an EOA to place 
the terminal in receive state, writes mes- 
sage text, and reads the response. This 
macro is for use following a Read opera- 
tion, to change from receiving text to 
sending text. 



READ Conversational (TV) 

READ Conversational and Reset (TVR) 

READ Conversational monitors the line for 
an EOA sent by the terminal and reads the 
message block that follows. This macro is 
for use following a Write operation, to 
change from sending text to receiving text, 



1. 


Write 


EOA 


2. 


Write 


Text 


3. 


Read 


Response 


4. 


Write 


EOT EOT EOT (TVR Only) 


5. 


Disable 


(TVR only) 



1. 


Write 


EOT EOT EOT 


2. 


Prepare 




3. 


Sense 




4. 


Read 


Text 


5. 


Write 


EOA EOT EOT EOT (TVR Only) 


6. 


Disable 


(TVR only) 



WRITE MACRO INSTRUCTIONS 



Programming Note : Each outgoing message 
block must end with EOB. 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 

WRITE Initial dials a terminal, writes an 
EOA to place the terminal in receive state, 
writes message text, and reads the response 
to text. 



1. Disable 

2. Dial 

3. Write 

4 . Write 



Dial digits 
Pad characters 

EOA 



WRITE Initial Optical (TIP) 



This option is for use when you wish to 
establish the line connection and send a 
frame change message to the Optical Image 
Unit. 

The macro issues a Disable command to 
disable the line in case this was not done 
previously, dials the terminal, and writes 
pad characters to provide time fill to 
allow the terminal motors to reach operat- 
ing speed. The macro then writes the 
sequence EOA PRE o, to indicate to the 2740 
terminal that the message is intended for 
the 2760, writes the frame change charac- 
ters (F, Aj. and A 2 ) and the EOB character, 
then reads the answerback (response to 
checking) . 

If the answerback is positive, the macro 
ends the operation by sending an EOT to the 
terminal. If the answerback is negative, 
the channel program is ended at this point 
and the error condition is posted in the 
DECB for the line, except that if Write 
retries are specified (EROPT=W in DCB) , 
BTAM error recovery procedures resend the 
frame change characters up to two addition- 
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al times before posting the error 
condition. 

You must specify in the entry operand of 
the WRITE TIO macro the address of a termi- 
nal list defined by a DFTRMLST macro as 
follows: 

LIST DFTRMLST DIALST,dialcount, 
dialchars , f aaseq 

DIALST specifies the type of list; dial- 
count and dialchars specify the number of 
digits in the telephone number and the 
digits themselves; and f aaseq specifies the 
three characters constituting the frame 
change message text. f aaseq must be coded 
as the hexadecimal equivalent of the trans- 
mission code bit pattern for the desired 
characters. 



al times before posting the error 
condition. 

You must specify in the entry operand of 
the WRITE TVO macro the address of the main 
storage location containing the three- 
character F A x A 2 sequence. 



1. Write EOA PRE o 

2. Write Frame Change Characters 

3. Write EOB 

4 . Read Answerback 

5. Write EOT EOT EOT 

Programming Note ; If input from the 2760 
is expected following execution of the 
Write Conversational Optical operation, you 
should issue a READ Conversational (TV) 
macro immediately after completion of the 
Write TVO operation. 



1. Disable 



Dial 

Write 

Write 

Write 

Write 

Read 

Write 



Dial digits 

Pad characters 

EOA PRE o 

Frame change characters 

EOB 

Answerback 

EOT EOT EOT 



Programming Note : If input from the 2760 
is expected following execution of the 
Write Initial Optical operation, you should 
issue a READ Conversational (TV) macro 
immediately after completion of the Write 
TIO operation. 



WRITE Conversational Optical (TVO) 



This option is for use when you wish to 
send a frame change message after the 
switched line connection has been estab- 
lished, but do not require a response from 
the terminal operator (as when retracting 
the filmstrip and ejecting the cartridge at 
the end of a data entry operation) , or when 
you wish to receive the response using a 
subsequent macro. The macro writes the 
sequence EOA PRE o, to indicate to the 2740 
terminal that the message is intended for 
the 2760, writes the frame change charac- 
ters and the EOB character, then reads the 
answerback (response to checking). 

If the answerback is positive, the macro 
ends the operation by sending an EOT to the 
terminal. If the answerback is negative, 
the channel program is ended at this point 
and the error condition is posted in the 
DECB for the line, except that if write 
retries are specified (EROPT=W in DCB) , 
BTAM error recovery procedures res end the 
frame change characters up to two addition- 



WRITE Invitational Optical (TCP) 



This option is for use after the line con- 
nection has been established, when you wish 
to send a frame change message and read a 
response message from the terminal. The 
macro functions identically to the WRITE 
Conversational Optical (TVO) macro, but in 
addition receives message text from the 
Optical Image Unit or the 2740 keyboard. 
The prepare command (see below) monitors 
the line for an EOA character; when it is 
received, the Read Text command reads into 
the input area the data that follows the 
EOA. 

You must specify in the entry operand of 
the WRITE TCO macro the address of the main 
storage location containing the F A ± A 2 
sequence; in the area operand you must 
specify the address of the input area into 
which the response message is to be 
received. If dynamic buffering is used to 
read the response message, you should spec- 
ify the length operand as ' S'. 

The WRITE TCO macro is the principal 
macro used in a 2760 application, as it is 
a convenient means for alternately sending 
frame change messages and receiving 
responses from the operator. 



1. 


Write 


EOA PRE o 


2. 


Write 


Frame Change Characters 


3. 


Write 


EOB 


4. 


Read 


Answerback 


5. 


Write 


EOT EOT EOT 


6. 


Prepare 




7. 


Sense 




8. 


Read 


Text 
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Examples of WRITE TIP, WRITE TVO, and WRITE 
TCO 



Figure 19 illustrates how WRITE TIO, WRITE 
TVO, and WRITE TCO macros are coded. The 
WRITE TIO macro dials the telephone number 
of the 2740 terminal and sends a frame 
change message; the F A x A z sequence is 
coded in the DFTRMLST macro. In this 
example, the F character is a Space 
(X'01*), designating* reverse movement, and 
A ± and A 2 are both "c" (X'67'), represent- 
ing a filmstrip movement exceeding the 
length of the filmstrip. This message 
therefore causes the filmstrip to be 
retracted and the cartridge ejected. The 
A x and A 2 characters could alternatively be 
coded as Space Space (X'OlOl*), represent- 
ing zero filmstrip movement, then a subse- 
quent WRITE TVO macro could be used to 
specify the filmstrip movement. This is 
useful where the amount of film movement 
may vary from one loading of the filmstrip 
to another, and so cannot be specified in a 
terminal list. The same WRITE TIO would be 
issued regardless of the film movement nee- 
ded; the subsequent WRITE TVO would use reg- 
ister notation for the entry operand to 
provide the needed frame change characters. 

The WRITE TVO macro sends a frame change 
message to move the film forward three 
frames. The F character, 1 (x'02*) speci- 
fies Automatic EOM Mode with Film switch 
(Manual Frame Advance) disabled. The 
response would be read by a different macro 
(a READ macro, for example), as the WRITE 
TVO macro does not read response messages. 

The WRITE TCO macro sends a frame change 
message to move the filmstrip backwards 32 



frames, sets the 2760 in Manual EOM mode 
with the Film switch (Manual Frame Advance) 
enabled, and reads a response message from 
the 2760 (or the 2740). 



WRITE Positive Acknowledgment and 
Disconnect (TA) 



WRITE Positive Acknowledgment and Discon- 
nect writes a positive response to text (an 
EOA) and breaks the line connection. This 
macro is for use following a successful 
READ operation when you wish to break the 
line connection instead of receiving the 
remaining blocks of a message. 



1. Write EOA EOT EOT EOT 

2. Disable 



WRITE Negative Acknowledgment and 
Disconnect (TN) 



WRITE Negative Acknowledgment and Discon- 
nect writes a negative acknowledgment (the 
EOT character serves this purpose) and 
breaks the line connection. This macro is 
for use following an unsuccessful Read 
operation when you wish to break the line 
connection instead of receiving the remain- 
ing blocks of a message. The macro may 
also be used after a Write operation when 
you wish to break the line connection. 

1. Write EOT EOT EOT 

2. Disable 



WRITE DECBNAME,TIO,DCBNAME, , ,LIST,,MF=E 



WRITE DECBNAME , TVO, DCBNAME, , , FRMSG1 , , MF=E 



WRITE DECBNAME, TCO, DCBNAME, INAREA, 20, FRMSG2, ,MF=E 



LIST DFTRMLST DIALST, 4 , 5003, 016767 

FRMSG1 DC X' 020161' 

FRMSG2 DC X'0D2001' 

INAREA DS 5F 



(SP C C (LOWERCASE)) 
(1 SP £) 
(6 3 SP) 



Figure 19. Examples of WRITE TIO, WRITE TVO, and WRITE TCO 
Macro Instructions (Switched Line) 
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IBM 2741 COMMUNICATIONS TERMINAL 



data mode*. 



GENERAL INFORMATION 



The line control scheme for the IBM 2711 
differs from that for some other start-stop 
terminals (e.g., the IBM 1050), in that the 
terminal and line do not alternate between 
control mode and text mode, and the polling 
and addressing functions are absent. 
Instead the 2741, when in communicate mode 
(all subsequent discussion presupposes 
this) , alternates between two states: 
receive and transmit. The 2741 is in a 
third state, control-receive, between the 
time it sends an EOT and the time it 
receives an EOA or EOT from the computer; 
this state is also entered momentarily when 
the terminal power switch is turned on or 
when the mpde switch is switched from local 
to communicate mode. In transmit state, 
the keyboard is unlocked and the terminal 
operator can key in data for transmission 
to the computer. In receive state the key- 
board is locked and the terminal can only 
accept and print data received from the 
computer. The principal indicator of the 
state of the terminal is the keyboard. If 
it is unlocked, allowing the operator to 
enter data, the terminal is in transmit 
state; otherwise, it is in receive state. 



The terminal alternates between states 
whenever an end-of- transmission (EOT) char- 
acter is sent on the line. An EOT sent by 
the computer always places the terminal in 
transmit state, and an EOT sent by the ter- 
minal always places the terminal in receive 
state . 

The terminal sends an EOT whenever the 
operator presses the Attention key or the 
Carrier Return key. These two keys accord- 
ingly are the means by which the terminal 
operator tells the computer that he has 
finished entering a line of data. The com- 
puter sends an EOT whenever it executes a 
channel program that is to receive data 
from the terminal, i.e., any Read channel 
program . 

Communication between terminal and com- 
puter is always initiated by the terminal 
operator, and can occur anytime after the 
program sets up the first Read operation, 
which must be a Read Initial. Conversation 
begins when the terminal operator sets the 
mode switch to Communicate (this action 
sends an end-of-address (EOA) character to 
the computer). For switched lines, the 
operator follows this by manually dialing 
the telephone number of the computer and 
switching the common-carrier data set to 



Line control discipline for the 2741 dif- 
fers from that for other start-stop ter- 
minals in the following significant 
respect. With most terminals, control of 
the communication line remains vested in 
the program, except during the relatively 
small proportion of time that the terminal 
is in text mode and is actually sending 
data. If the terminal stops sending data 
for a period of about 25 seconds,, a time- 
out function in the terminal returns it to 
control mode. When this happens, the pro- 
gram is again able to initiate activity on 
the communication line, and the terminal 
begins monitoring the line for control sig- 
nals from the computer. This control 
scheme prevents one terminal on a line from 
monopolizing use of the line so that the 
computer is unable to communicate with 
other terminals on the same line. 



The 2741, on the other hand, is intended 
for conversational use: there is only one 
terminal per line, and input by the termi- 
nal operator and response by the computer 
alternate, as in an ordinary telephone con- 
versation, until the terminal operator 
chooses to end the conversation. Each time 
the terminal is in transmit state,, the ter- 
minal operator has control; that is, the 
program can initiate no new activity on the 
line until the terminal operator returns 
control to the program by sending an EOT 
character. The 2741 has no time-out func- 
tion by which control can be returned to 
the computer. 

Only the terminal operator can end a con- 
versation, either by switching the terminal 
mode switch to Local or by turning off the 
terminal power switch. 

The sequence of operations between the 
time the terminal operator begins and ends 
the conversation with the computer depends 
upon the logical structure of the program 
and upon the communications conventions es- 
tablished between terminal operator and the 
program. These in turn depend on the sys- 
tem application. 

Although the differences between line 
control for the 2741 and for other start- 
stop terminals result in dissimilar channel 
programs, you code your READ and WRITE 
macro instructions in the same way as for 
other terminals, with the exception of the 
"entry" operand. Because 2741s use no ter- 
minal lists, "entry" is not used, and if 
coded, it is ignored. 



♦See the IBM 2740/2741 Operator's Guide , 
for detailed dial-up procedures. 



Start- Stop Read and Write Operations 111 



IBM 2741 



Channel Commands for the IBM 27 41 



The functions of the commands comprising 
the channel programs for the 2741 are given 
below. (The commands are described as they 
apply to Read and Write operations for the 
2741; no inferences should be drawn as to 
their applicability for other terminals.) 



Write EOT 
Write EOA 
Inhibit 



Enable 
Disable 



Prepare 



Sets the terminal to transmit 

state. 

Sets the terminal to receive 

state. 

(1) Receives text from termi- 
nal into input area . 

(2) Receives text from termi- 
nal but does not place it 
in input area. Used for 
purging the communication 
line of unneeded text 
data (used in Read Skip 
channel program) . 

For switched lines, condi- 
tions the TCU to accept calls 
from terminals. 
When Disable is the first 
command of Read initial or 
Write Disconnect (switched 
line) , it disables the line 
if, through program logic 
error, the line is in the 
enabled condition when the 
current channel program is 
started, if the line is 
already in the disabled con- 
dition, which is the normal 
case, the Disable command has 
no effect. 

For switched lines, causes 
the TCU to monitor the line 
for incoming data. 



The function of an Inhibit command, like 
that of a Read command, is to receive data 
from a terminal. The difference is that a 
Read command is terminated by expiration of 
a timeout interval (if not terminated soon- 
er by receipt of data) , while an Inhibit is 
not ended in this way. Channel programs 
for the IBM 2741 use Inhibit commands, 
rather than Read commands, because in 2741 
operation under BTAM, an indefinite period 
may elapse between initiation of a channel 
program and receipt of data from a 
terminal. 



1. 

2. 



Prepare 
Inhibit 



(receives EOA) 
(receives text) 



READ Initial (TI) 
(Switched Line) 



READ Initial disables the line (in case 
this was not done previously), enables it, 
then receives message text (beginning with 
EOA) from the terminal. 



1. Disable 

2. Enable 

3. Prepare 

4. Inhibit 



(receives EOA) 
(receives text) 



READ Continue (TT) 

READ Conversational (TV) 

READ Continue and READ conversational are 
identical operations. Each sets the termi- 
nal to transmit state, then receives mes- 
sage text (beginning with EOA) from the 
terminal. 



1. Write 

2 . Prepare 

3. Inhibit 



EOT 

(receives EOA) 

(receives text) 



READ Skip (TS) 



READ Skip receives message text from the 
terminal but does not place it in main 
storage. 

1. Inhibit (received text is discarded) 



WRITE MACRO INSTRUCTIONS 



WRITE Continue (TT) 



WRITE Continue sends a message segment to 
the terminal. It is for use after a WRITE 
Conversational has set the terminal to 
receive state. 



READ MACRO INSTRUCTIONS 



1. Write Text 



READ Initial (TI) 
(Nbnswitched Line) 



WRITE Conversational (TV) 



READ Initial receives message text 
(beginning with EOA) from the terminal, 



WRITE Conversational sets the terminal to 
receive state and sends it a message seg- 
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ment. It is for use after a Read operation 
to reverse the direction of transmission. 



1. 

2. 



Write 
Write 



EOA 
Text 



WRITE Continue Conversational (TTV) 



WRITE Continue Conversational sends the 
terminal a message segment followed by EOT, 
which sets the terminal to transmit state, 
then receives message text (beginning with 
EOA) from the terminal. WRITE TTV is for 
use following a WRITE Continue or WRITE 
Conversational, to reverse the direction of 
transmission. 



1 . Write 

2 . Write 

3 . Prepare 
H . Inhibit 



Text 

EOT 

(receives EOA) 

(receives text) 



WRITE Disconnect (TN) 
( Switched Line ) 

WRITE Disconnect disables the line to break 
off communication with the terminal . 



EOT character only. The program can check 
the last two characters received from the 
terminal to determine the action to take: 
NL EOT indicating that a Read operation 
should be executed to receive the next text 
segment from the terminal operator; EOT 
alone indicating that the program should 
reply. 

If the program is to reply, it should 
execute a Write Conversational operation. 
If desired, you can send the reply in sev- 
eral segments by using Write Continue 
operations. After the last Write, you 
should execute a Read Initial (nonswitched) 
or Read Conversational (switched) operation 
to permit the terminal operator (1) to 
resume sending input (in which case the 
sequence just described is repeated) or (2) 
to signify to the program that he has 
finished by turning the mode switch to 
Local or by turning off the terminal power 
switch. You may substitute a Write Con- 
tinue Conversational (TTV) for the last of 
a sequence of Write Continues, to avoid 
executing a separate Read Initial or Read 
Conversational; the WRITE TTV performs the 
functions of the Write Continue and the 
subsequent Read. 



1 . Disable 



PROGRAMMING CONSIDERATIONS 



DESIGNING A MESSAGE CONTROL ROUTINE 



Operations on Switched Lines 



This section explains how Read and Write 
operations may be combined to permit con- 
versational communication between terminal 
and computer. 

The first operation, once the line group 
has been opened, must be a Read Initial. 

When the terminal operator establishes 
communication, the first line of text he 
types is read into the input area. The 
Read Initial ends with receipt of the EOT 
character sent when the terminal operator 
presses the Return key or the Attention 
key . 

The program should then determine whether 
it should receive more text from the termi- 
nal. This decision might be based on ana- 
lysis of the data just received. For 
example, an operating convention might be 
established by which the terminal operator 
presses the Return key to signify that he 
has further input and the Attention key to 
indicate that he has finished sending. The 
Return key causes transmission of the new 
line (NL) character followed by EOT. The 
Attention key causes transmission of the 



When the terminal operator switches the 
terminal to Local mode or turns off the 
power, the operation in progress at that 
moment is terminated with an indication of 
Channel End, Device End, and Unit Check in 
the CSW status byte, and Intervention 
Required in the sense byte. These indica- 
tions will be posted in the DECB for the 
line as DECSDECB=X* HI* and DECFLAGS=X f 04' . 
You should check for the presence of these 
indicators after each Read and Write opera- 
tion and take appropriate action; ordinari- 
ly, the Read Initial should be reissued. 

For some applications it will be appro- 
priate for the terminal operator to end the 
conversation only when the terminal is in 
transmit state, that is, not to turn off 
power while receiving text from the comput- 
er. It might then be appropriate for the 
program to record whether the operation in 
effect when the terminal went off-line was 
a Read or a Write. 
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Operations on Nonswitched Lines 



In a conversational environment, it 
is usually sufficient that the data 
is made available to the terminal 
operator, without the necessity that 
he actually receives it. If it is 
imperative that the message be 
received by the operator, he may be 
required to acknowledge receipt. The 
acknowledging message is received via 
the Read operation that follows the 
sequence of Write operations. 

If during transmission from computer 
to terminal, the terminal operator 
chooses to break off reception of the 
message, the data set (modem) that 
connects the, terminal to the line 
cannot signal this fact to the trans- 
mission control unit (TCU). When the 
operator breaks off reception, the 
sequence of Write operations then in 
progress proceeds to conclusion just 
as though the terminal were still 
receiving. All Write operations are 
posted complete without error ; that 
is, completion code is X*7F' and 
DECFLAGS equals zero. 

For half-duplex nonswitched lines, a 
Read operation is not posted complete 
until a message has been received. 
This may mean that your program must 
accept "sign-on" messages in any Read 
operation. If it is desirable to 
recognize the end of a conversation, 
the program may wait an appropriate 
amount of time and, if no message has 
been received yet, assume that the 
terminal operator has ended the con- 
versation . If necessary to purge the 
Read operation you may issue an 
IOHALT macro for the line. This will 
halt the operation and cause posting 
of the Read. You may then issue 
another Read Initial operation, with 
changes to the area and/or length 
operands. For example, the new Read 
operation may be intended to receive 
a "sign-on" message into a different 
area than regular messages. 



Using the Attention Key and 2741 Interrupt 
Facility 



When the terminal is in transmit state, the 
operator may press the Attention key to 
signal the computer that he has finished 
entering data. Pressing this key sends an 
EOT to the computer and returns the termi- 
nal to receive state. The keyboard locks, 
and the operator can resume entering data 



only after the program returns the terminal 
to transmit state by means of a Read opera- 
tion or Write Continue Conversational 
operation. 

If the 2741 is equipped with the Inter- 
rupt feature, the Attention key can be pre- 
ssed while the terminal is in receive state 
to interrupt data transmission from the 
computer, when, for example, the operator 
has a high-priority message to enter. 
Pressing the Attention key causes the Write 
operation then in progress to terminate, 
and the Channel End, Device End, and Unit 
Check indications to be set in the CSW sta- 
tus byte and the Intervention Required 
indication in the sense byte. These indi- 
cators will be posted in the DECB for the 
line as DECSDECB=X* 41 » and DECFLAGS=X , 02' . 
You should check after each Write operation 
for the presence of these indicators. When 
present, it is generally appropriate to 
issue a Write Continue that sends a NL 
character to return the terminal's print 
element carrier to the beginning of the 
next printing line. 



General Considerations 



Dynamic buffering cannot be used for 
the 2741. 

The usual considerations regarding 
use of the WAIT and TWAIT macro 
instructions should be observed. 
Before issuing any of these macros, 
you must always check the return code 
resulting from a Read or Write opera- 
tion to ensure that the operation was 
started successfully. 

Messages sent to a terminal must not 
contain any EOT characters, as these 
cause the program to lose control. 

IBM 2741 terminals do not perform an 
automatic carrier return when the 
print element reaches the end of the 
print line. To avoid character pile- 
up at the end of the line, the text 
sent to the terminal must contain NL 
(new line) characters at intervals 
not exceeding the length (in charac- 
ters) of the line. 

Any printable characters received by 
the terminal during the time the ter- 
minal is executing a carrier return, 
horizontal tab, or index (line feed) 
function will be printed erratically. 
To avoid this occurrence, each New 
Line (NL) , Horizontal Tab (HT) , and 
Line Feed (LF) character must be fol- 
lowed by one or more nonprinting 
characters, such as the Idle 
character . 
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For the line feed function, you 
should place one Idle character after 
each LF character in text to be sent 
to the terminal. For the new line 
and tab functions, the number of Idle 
characters needed equals 1.5 plus the 
number of inches of carrier travel 
caused by the function, rounded off 
to the next higher integer. In addi- 
tion, you may need to place Idle 
characters at the beginning of each 
block of text the program sends to 
the terminal following receipt of an 
EOT character from the terminal. 

The number of Idles required depends 
on several factors, such as line 
turn-around time and model of data 



set used. A recommended practice is 
to use the same number of characters 
as are used following a NL character 
that results in the longest carrier 
travel. Example ; Assume the length 
of a print line for a particular app- 
lication is 7-3/4 inches and tab set- 
tings are at 2 and 6 inches. Each HT 
character should be followed by 1.5 + 
4=5.5, or 6 Idles (the 4 derives from 
the maximum distance of carrier tra- 
vel [4 inches], caused by an HT char- 
acter ) . Each NL character should be 
followed by 1.5 + 7.75=9.25, or 10 
Idles. Also, each block of text sent 
to a 2741 following receipt of EOT 
from the terminal should begin with 
10 Idles. 
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AT&T 83B3 SELECTIVE CALLING STATIONS 



WRITE MACRO INSTRUCTIONS 



DEFINING TERMINAL LISTS 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



Read Operations 



A Read Initial operation requires an open 
or wraparound polling list. The list may 
have one or more terminal entries, each 
containing a two-character polling sequence 
(which for the 83B3 is called a Transmitter 
Start Code) . 

To define a polling list, code the 
operand field of a DFTRMLST macro like 
this: 



j JOPENLST/, (xxyy, ) 

j JWRAPLSTj 



WRITE Initial addresses a terminal, and if 
the response to addressing is positive, 
writes message text to the terminal. 

A single V or M character constitutes a 
positive response; a negative response is 
indicated by no response at all. A nega- 
tive response for any terminal in the list 
is an abnormal condition. The operation 
ends and is posted complete- with- error. 

1. Write FIGS H LTRS 

2 . Write CDC 

3 . Write LTRS 

4 . Read Response 

5. Write Text 

6. Write FIGS H LTRS (TIR only) 



Write Operations 



A Write Initial operation requires an ad- 
dressing list having one or more terminal 
entries, each containing a two-character 
addressing sequence (which for the 83B3 is 
termed a Call Directing Code) . 

To define an addressing list, code the 
DFTRMLST macro like this: 



| OPENLST, (xxyy, . . . ) 

l 



P r oq r ammi nq Not es : 

1. Each output message must begin with 
the sequence CR LF LTRS (this serves 
as the end-of-addressing indicator) . 

2* You must specify in the WRITE macro 
the exact length of the message. 

3. If you are sending a message with a 
WRITE TI macro, code FIGS H LTRS at 
the end of the message (this is the 
end-of-transmission sequence) . If you 
are sending a message with a WRITE TIR 
macro, the macro supplies the FIGS H 
LTRS sequence. 



TERMINAL- TO- TERMINAL OPERATION 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 



READ Initial successively polls the ter- 
minals in the polling list, and upon 
receiving a positive response to polling, 
reads a message block. 

A single V or M character constitutes a 
negative response; the message text itself 
signifies a positive response. 

1. Write FIGS H LTRS 

2 . Write TSC 

3 . Read Response 

4. Read Text 



BTAM does not provide control for terminal- 
to-terminal traffic on a line on which BTAM 
provides control of traffic between comput- 
er and terminal; however, BTAM does not 
interfere with terminal-to-terminal traf- 
fic. In a system in which such traffic can 
occur, the operation is as follows. 

A READ Initial macro polls the terminal 
that will become the sending terminal. The 
sending terminal responds with the address- 
ing code of the terminal with which it 
wishes to communicate. This code appears 
to the Read Response command like data, and 
is therefore received in the input area. 
The next character is a V or M sent by the 
receiving terminal as a positive response. 
It, too, is read into the input area. The 
sending terminal recognizes the V or M as a 
positive response and sends a message to 
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the receiving terminal; this message text, 
too, is read into the input area. Thus, 
while BTAM does not influence the terminal- 
to-terminal operation, it does receive into 
main storage any message sent between the 
terminals . 
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WU MODEL 33/35 TWX TERMINALS 

DEFINING TERMINAL LISTS 
Read Operations 



A Read Initial operation requires an an- 
swering list containing a sequence of con- 
trol and identification characters to be 
sent to a terminal that calls the computer. 
The sequence has from 7 to 18 characters. 
A recommended sequence is: 

Null CR LF DEL (1 to 12 graphic 
characters) CR LF XON 

To code an answering list, code the operand 
field of a DFTRMLST macro like this : 



| IDLST, O f numsent,sentchar 

i 



Example : To define an answering list con- 
taining the foregoing character sequence 
(using RALEIGH as the graphic sequence) , 
you would code: 



r • 1 

| IDLST, 0, 14, 01B150FF4B8233A393E212B15088 | 

L . J 

The characters following the third comma 
are the hexadecimal representations of the 
transmission code bit patterns for the 
recommended sequence: 



01B150FF — 
4B8233A393E212 — 
B15088 -- 



Null CR LF DEL 
RALEIGH 
CR LF XON 



This sequence prints the computer identifi- 
cation, RALEIGH, at the beginning of the 
next line, and turns on the tape 
transmitter . 



Read Conversational Operation 



A Read conversational operation requires a 
list containing a sequence of control 
characters to be sent to the terminal to 
prepare it to transmit. For this purpose 
you define an answering list containing the 
desired characters; the list is not used 
for the answering function. Define the 
list by coding the DFTRMLST operand like 
this : 



If the Read conversational operation is 
preceded by a Write Initial operation, a 
recommended sequence is XON (1 to 1 charac- 
ters of your choice) XOFF; if the preceding 
operation was a Read Initial, the single 
character, XON, may be used. These 
sequences start the tape transmitter of the 
terminal. If you wish to read from the 
keyboard, an appropriate sequence is G Bell 
A Bell; GA means go ahead, and the bell 
alerts the terminal operator. 



Write Operations 



A Write Initial operation requires a call- 
ing list containing the same sequence of 
characters as the called terminal sends 
when it answers the call from the computer. 

To define a calling list, code the operand 
field of a DFTRMLST macro like this: 

r 1 

| IDLST, dialcount , dialchars , numsent , tidseq | 

1 J 

Example : To define a calling list for a 
terminal whose telephone number is 887-4444 
and which will answer with the sequence 

CR LF I B M 3 5 A S R # 1 CR LF XON 



you would code: 



r 1 

\ IDLST, 7, 8874444, 17, B1509342B205CCAC82CA j 
| 4B05C58DB1508 8 j 

L ; J 



READ MACRO INSTRUCTIONS 



Programming Note : Each message sent from 
the terminal (i.e., an incoming message) 
must end with either the WRU, XON, or XOFF 
character, or with the EOT sequence. If it 
ends with the EOT sequence, the next opera- 
tion must be a Read Initial or Write Ini- 
tial (EOT resets the terminals to control 
mode). If the message ends with WRU, XON, 
or XOFF, the next operation can be a Read 
Conversational or Write Conversational. 



READ Initial (TI) 



r — : - 

| IDLST , , numcnsent , cntrlseq 



1 

I 
j 



READ Initial and Reset (TIR) 



READ Initial answers a call from a termi- 
nal, writes the identification and control 
sequence, and reads a message block from 
the terminal. 



118 OS BTAM SRL 



1 . Disable 

2 . Enable 

3. Write Pad characters 

4. Write ID-control sequence 

5 . Read Text 

6. Write EOT (TIR only) 

7. Disable (TIR only) 



READ Conversational (TV) 

READ Conversational and Reset (TVR) 



READ Conversational writes a control 
sequence to the terminal and reads message 
text from the terminal. This macro is for 
use following a READ Initial or a WRITE 
Conversational when the line connection is 
already established. 

1. Write Control sequence 

2 . Read Text 

3. Write EOT (TVR only) 

4. Disable (TVR only) 



WRITE MACRO INSTRUCTIONS 



Programming Note ; Outgoing messages should 
not end with a control character or a 
sequence of control characters (e.g., XON, 
or XON (user-selected characters) XOFF. 



WU 33/35 TWX 



nal. If the received ID matches the 
expected ID that is contained in the term!' 
nal list, the macro writes message text to 
the terminal. If the two ID'S do not 
match, the operation is posted complete- 
with- error; the message text is not sent. 

1 . Disable 

2. Dial 

3 . Read 



Dial Digits 
Terminal ID sequence 

4 . Write Text 

5. Write EOT (TIR only) 

6. Disable (TIR only) 



WRITE Conversational (TV) 

WRITE Conversational and Reset (TVR) 



WRITE Conversational writes message text to 
the terminal. This macro may be used fol- 
lowing a Read operation, to change from 
receiving text to sending text, and may be 
issued as many times in succession as 
necessary to send a message. 



1. 


Write 


Text 


2. 


write 


EOT (TVR only) 


3. 


Disable 


(TVR onlv) 



WRITE Disconnect (TN) 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



WRITE Disconnect breaks the line 
connection. 



WRITE Initial calls a terminal and reads 1. Write 
the identification sequence of the termi- 2. Disable 



EOT 
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WESTERN UNION PLAN 115A OUTSTATIONS 



WRITE MACRO INSTRUCTIONS 



DEFINING TERMINAL LISTS 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



Read Operations 



A Read Initial operation requires an open 
or wraparound polling list. The list may 
have one or more terminal entries, each 
containing a two- character polling 
sequence. The first character is always an 
X (X'17' is the transmission code bit pat- 
tern) ; the second identifies the terminal. 

To define a polling list, code the 
operand field of a DFTRMLST macro like 
this: 



JJOPENLSTL (xxyy,...) 

||wraplst{ 



Write Operations 



A Write Initial operation requires an ad- 
dressing list having one or more terminal 
entries, each containing a two-character 
addressing sequence. The first character 
is the circuit call code; the second iden- 
tifies the terminal that is to receive the 
output message. 

To define an addressing list, code the 
DFTRMLST operand field like this: 



WRITE -Initial addresses a terminal, and if 
the response to addressing is positive, 
writes message text to the terminal. 

A single V or M character constitutes a 
positive response; a negative response is 
indicated by no response at all. A nega- 
tive response for any terminal is an 
abnormal condition; the operation ends and 
is posted complete-with-error. 



1. Write FIGS H LTRS 

2. Write Addressing sequence 

3 . Read Response 

4. Write Text 

5. Write FIGS H LTRS (TIR only) 

Programming Notes : 



1. Each output message must begin with a 
Space character (this serves as the 
end-of-addressing character) . 

2. You must specify in the WRITE macro 
the exact length of the message. 

3. If you are sending a message with a 
WRITE TI macro, code FIGS H LTRS at 
the end of the message (this is the 
end-of-transmission sequence) . If you 
aire sending a message with a WRITE TIR 
macro, the macro supplies the FIGS H 
LTRS sequence. 



[ OPENLST, (xxyy,...) 

L 



1 
J 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 



READ Initial successively polls the ter- 
minals in the polling list, and upon 
receiving a positive response to polling, 
reads a message block. 

A single V or M character constitutes a 
negative response; the message text itself 
signifies a positive response. 



1. Write 

2. Write 

3. Read 

4. Read 



FIGS H LTRS 
Polling sequence 
Response 
Text 



TERMINAL-TO-TERMINAL OPERATION 



BTAM does not provide control for terminal- 
to-terminal traffic on a line on which BTAM 
provides control of traffic between comput- 
er and terminal; however, BTAM does not 
interfere with terminal-to-terminal traf- 
fic. In a system in which such traffic can 
occur, the operation is as follows. 

A READ Initial macro polls the terminal 
that will become the sending terminal. The 
sending terminal responds with the address- 
ing code of the terminal with which it 
wishes to communicate. This code appears 
to the Read Response command like data, and 
is therefore received in the input area. 
The next character is a V or M sent by the 
receiving terminal as a positive response. 
It, too, is read into the input area. The 
sending terminal recognizes the V or M as a 
positive response and sends a message to 
the receiving terminal; this message text, 
too, is read into the input area. Thus, 
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while BTAM does not influence the terminal- 
to-terminal operation, it does receive into 
main storage any message sent between the 
terminals. 
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WORLD TRADE TELEGRAPH TERMINALS 



Telegraph Adapter Description 



GENERAL INFORMATION 



The name World Trade (WT) telegraph ter- 
minals refers to various European teletype- 
writers using a start-stop 5- level code 
with two shifts (lettershift and figure- 
shift) to transfer, data over point-to-point 
telegraph lines. 



WT terminals use either the Internation- 
al Telegraph Alphabet No. 2 or the Figure 
Protected Code ZSC3. World Trade telegraph 
terminals employ the contention system of 
line control. When a terminal and the com- 
puter each try to send a message, simul- 
taneously, both transmissions are immedi- 
ately stopped; this is called contention. 



A terminal is always ready to receive or 
to send a message. Normally, the motor of 
the terminal is off and the first letter- 
shift character (LTRS) sent or received by 
the terminal starts the motor, which 
requires 1.5 seconds to reach operating 
speed. During this period, the terminal 
cannot correctly send or receive charac- 
ters. The motor stops when no character 
has been transmitted during a period of 
from 10 to 30 seconds. When the terminal 
is operating in this manner, it is said to 
be in Motor-Off mode. Optionally, the ter- 
minal can be equipped with a heavy-duty 
motor which is never switched off; in this 
case, the terminal is said to be operating 
in Motor-On mode. 



The World Trade Telegraph Adapter in the 
TCU recognizes two message end conditions: 
FIGS x and FIGS y LTRS. These are estab- 
lished when the IBM 2701, 2702 or 2703 to 
which the WT terminal is connected is 
installed: x and y are assigned by the 
customer on a per-system basis, as follows. 

When a terminal is equipped with the 
Automatic Answerback Unit, FIGS x must be 
code combination 4 (FIGS D) sent by the 
terminal WRU key. This character is 
referred to as the WRU signal. If the ter- 
minal is not equipped with the Automatic 
Answerback Unit, FIGS x may be any other 
code combination. 

The two characters, x and y, cannot be 
the same. FIGS y immediately followed by a 
LTRS character causes a Read operation to 
end. Therefore, FIGS y can be sent by a 
terminal as data only if it is not followed 
by LTRS. 

The above terminations of a Read opera- 
tion can be used as end-of-message (EOM) 
signals. The FIGS y LTRS termination (if 
not yet used as an EOM signal) or two con- 
secutive EOM signals can represent the end- 
o'f -transmission (EOT) signal. 

The transmission control unit deletes 
all incoming LTRS and FIGS characters and 
updates a shift bit (s) which is added to 
each character transferred to main storage. 
Conversely, each change in shift bit set- 
ting along a character sequence causes the 
TCU to send a LTRS or FIGS character ahead 
of the first message character for which 
the shift bit was reversed. 



When a terminal is operating in Motor- 
Off mode, the MONDLY parameter of the DCB 
macro instruction enables you to specify 
the number of Mark (Idle) characters corre- 
sponding to the 1.5 second period. When 
you issue a WRITE macro instruction, BTAM 
recognizes the motor mode of the terminal 
(motor-off or motor-on) and generates a 
LTRS character (this can be followed by a 
user-specified number of Mark characters) 
that precedes the data to be sent over the 
line. 



Most terminals can be equipped with 
another optional feature called the Auto- 
matic Answerback Unit. This feature 
enables a sequence of up to 20 identifica- 
tion characters, generated by a mechanical 
drum, to be sent over the line by either 
pressing the IAM key or receiving code com- 
bination 4 in figures shift. 



Figure 20 shows the relationship of a 
System/360 byte and a telegraph character 
configuration. 



|01234567 

| (System/3 6 0-byte configuration) 



V 



J--S12345 

I (Telegraph-character configuration) 

L 

Figure 20. WT Telegraph Code 



Contention Resolution 



When contention occurs, BTAM sets a comple- 
tion code of X'7F* in the ECB and turns on 
bit 3 of DECFLAGS. Contention is resolved 
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by the user program coding and the local 
operator's action, according to one of the 
following procedures: 

If priority is to be given to the com- 
puter, the terminal operator must wait; the 
program should repeat the Write (or Read 
TE) operation. 

If priority is to be given to the termi- 
nal, the program must follow with a READ 
Continue macro the operation during which 
contention occurred. The terminal operator 
continues sending his message. 



1. Prepare 

2. Sense 

3. Read Text 



Programming Not e; A RESETPL macro is ef- 
fective only if issued when message trans- 
mission is not in progress. 



READ Continue (TT) 



DEFINING TERMINAL LISTS 



In World Trade telegraph operation terminal 
lists are used only for the READ Continue 
with Identification Exchange (TE) macro. 
(They are not used for READ Initial 
operations . ) 



READ Continue reads message text from a 
terminal following receipt of an EOM char- 
acter, or when the terminal is given the 
right to transmit when contention has 
occurred. The operation ends when an EOM, 
EOT, or WRU is received. 



1. Read 



Text 



READ Continue with Identification Exchange 
(TE) 



If The Terminal's Identification Sequence 
is to be Requested 



To define a terminal list, code the operand 
field of a DFTRMLST macro like this: 



| WTTALST,O f numrecjridsentfnumsent/tidseq j 

L ; J 



READ Continue with Identification Exchange 
writes to the remote terminal the comput- 
er's identification sequence (defined in 
the terminal list) and a WRU character. 
The operation also reads the identif i cation 
sequence of the terminal (and optionally, 
message text) into the input area, only if 
you code WRU=YES in the DCB macro for the 
line group. 



If The Computer Identification is to be 
sent to the Terminal 



1. Write Mark characters Note 1 

2. Write Computer identification seq. 

3. Write WRU (or LTRS) Note 2 

4. Read Terminal identification Note 3 

5. Read Text 



| WTTALST ,0,0,0,0, numsent , tidseq 

L 



I Note 1 : One LTRS character plus n Mark 



Programming Note : tidseq may specify from 
7 to 20 characters (computer identification 
sequence) . 



characters are sent, where n represents the 
number of Mark characters, as follows: 

a. When the terminal is equipped with the 
Motor-On optional feature, n is always 
zero. 



READ MACRO INSTRUCTIONS 



Read Initial (TI) 



READ Initial monitors the line for a mes- 
sage from a terminal, and reads it into the 
input area. The Read operation ends when 
an EOM, EOT, or WRU character is received. 



b. When the terminal is not equipped with 
the Motor-On optional feature, n can 
take one of the following values: 

n=0 

if the previous operation was a 
Write, or if a Read operation ended 
with EOM or WRU signal. 

n=the value given to the MONDLY key- 
word operand of the DCB macro 
instruction. 
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Note 2 : The computer sends the WRU signal 
to ask for the terminal identification, 
provided that WRU=YES is coded in the DCB 
macro instruction. Otherwise, the computer 
sends a LTRS character. 



WRITE MACRO INSTRUCTIONS 



WRITE Initial (TI) 



Note 3 ; The terminal sends its own identi- 
fication. If the received ID and the 
expected ID do not match, the operation is 
posted as complete; no message text is 
read. Bit 3 of DECFLAGS is set to 1. 



Programming Note ; The value of the length 
parameter of the READ macro instruction 
must equal or exceed the length of the 
identification sequence generated by the 
Automatic Answerback Unit. If equal, only 
the terminal identification sequence is 
sent to the computer. If the length param- 
eter exceeds the identification sequence 
length, message text can also be read. 
This is applicable when WRU=YES is speci- 
fied in the DCB macro instruction; other- 
wise, command (4) is not generated. 



Write Initial sends an output message, pre- 
ceded by 12 LTRS characters 



1. Write Mark characters 

2. Write Pad characters 

3. Write Message 



Note 



Note: (See Note 1 under READ TE above.) 



WRITE Continue (TT) 



WRITE Continue sends an output message. 



1. Write Mark character Note 

2. Write Message 



Note: (See Note 1 under READ TE above.) 
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PROGRAMMING CONSIDERATIONS FOR USE OF AUTO 
POLL (START-STOP) 



Read Initial operations on lines for which 
the Auto Poll feature is used require poll- 
ing lists different from those used in pro- 
grammed polling. They are referred to as 
Start-Stop Auto Poll lists. The list may 
be of the open type (SSALST) or wraparound 
type (SSAWLST) , and may have one or more 
terminal entries, each containing a single 
polling character (IBM 1030) or a two- 
character polling sequence (other terminal 
types ) . They are specified in the same way 
as in lists for programmed polling, with 
the exception of the 2710. The second 
polling character in a list for the 2740 
must be space. 

To define an Auto Poll polling list, 
code the operand field of a DFTRMLST macro 
like this: 



C SSALST ^ 
SSAWLSTJ , (xx, 



.) 



(for 1030) | 
j 



§SALST *\ 
SAWLSTf , (xxyy, . 



I 
(for 1050,1060,2740) | 



returns a positive response to polling, 
that is, all terminals send negative 
responses. Execution of command (3) ends 
the Read operation, which is posted com- 
plete in the event control block. 

If some terminal in the list returns a 
positive response, command (3) is skipped; 
command (4) reads into the first two bytes 
of the input area the index byte indicating 
which terminal responded, and the first 
message character. Command (5) reads the 
remaining message text into the input area. 

Programming Notes ; 

1. To determine which terminal responded, 
examine the index byte. You should 
obtain this index byte not from the 
input area but from the DECPOLPT field 
of the DECB for the line. DECPOLPT 
always contains the index byte, while 
an I/O error during transmission may 
prevent the index byte from being 
placed in the input area. 

2. In specifying the length in the READ 
macro, be sure it is at least one 
greater than the expected text length, 
in order to accommodate the index 
byte. 



CHANNEL PROGRAMS 



READ Initial (TI) 

READ Initial and Reset (TIR) 

(Wraparound Auto Poll List) 



Read Initial operations (and Read continue 
and Read Repeat operations, on the 1030 and 
1060) using Auto Poll require channel pro- 
grams different from those used in pro- 
grammed polling. They are explained below 
by referring to the use of the specific 
commands that form the program. 



READ Initial (TI) 



READ Initial and Reset (TIR) 
(Open Auto Poll List) 

The channel program is: 

1. Write EOT EOT EOT 

2. Poll 

3 . NOP 

4. Read Index 

5. Read Text 

6. Write EOA EOT EOT EOT (TIR only) 

Command (1) sets the terminals on the line 
to control mode, as with programmed poll- 
ing. Command (2) initiates the polling 
operation. Command (3) is executed only if 
no response is received from a terminal in 
the list, or if no terminal in the list 



The channel program is: 

1. Write EOT EOT EOT 

2. Poll (Beginning with entry specified 

in macro) 

3. TIC (to command 5) 

4. TIC (to command 7) 

5. Poll (beginning with first entry in 

list) 

6. TIC (to command 5) 

7. Read Index 

8. Read Text 

9. Write EOA EOT EOT EOT (TIR only) 

Command (1) sets the terminals on the 
line to control mode. Command (2) 
initiates the polling operation, beginning 
with the terminal specified by the "entry" 
operand in the READ macro. If before the 
end of the list is reached a positive 
response is returned, the status modifier 
is set, causing the next command, (3), to 
be skipped; command (4) transfers to com- 
mand (7), followed by (8), which functions 
like commands (4) and (5) in the "open- 
type" Auto Poll operation. 

If,, however, the end of the list is 
reached and no positive response has been 



Start-Stop Read and Write Operations 125 



Programming Considerations — Auto Poll (Start-Stop) 



received, command (3) is executed, giving 
control to command (5), which restarts the 
polling operation at the beginning of the 
polling list. Polling proceeds automati- 
cally, and each time the end of the list is 
reached , command (6) gives control to (5), 
and the polling starts again. If during a 
pass through the list, a positive response 
is received, command (6) is skipped (just 
as command (3) is skipped above) , and com- 
mands (7) and (8) are executed as before. 

Programming Notes ; The same programming 
notes given above apply to Auto Poll opera- 
tions with a wraparound list. 



Other Types of READ and WRITE 



With two exceptions, all other types of 
READ macro (such as READ Continue) and all 
types of WRITE macro generate the same 
channel programs as are shown under the 
corresponding type in the appropriate sec- 
tions for the type of terminal concerned: 
IBM 1030 Data Collection System , IBM 1050 
Data Communication System , IBM 2710 with 
Station Control Feature , and IBM 2740 with 
Station Control and Checking Features . The 
exceptions are READ Continue and READ 
Repeat for the IBM 1030 and 1060, as shown 
below. (READ Continue and READ Repeat for 
the 1050 and for the 2740 with Station Con- 
trol and Checking are the same as for the 
non-Auto Poll operations for these ter- 



minals; READ Continue and READ Repeat are 
not provided for 2740 with Station Control 
and without Checking.) 



READ Continue (TT) (1030,1060) 



The channel program for READ Continue is 
identical to the program for READ Initial 
(using either SSALST or SSAWLST) , except 
that the first command is: 



1. Write (y) EOT EOT EOT 



This channel program sends a positive 
response, then repolls the terminal and 
receives message text, as in a Read Initial 
operation. 



READ Repeat (TP) (1030,1060) 



The channel program for READ Repeat is 
identical to the program for READ Initial 
(using either SSALST or SSAWLST) f except 
that the first command is: 



1, Write 



N) EOT EOT EOT 



This channel program sends a negative 
response, then repolls the terminal and 
receives message text, as in a Read Initial 
operation. 
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GENERAL INFORMATION 



2-7) and the 0-bit and 1-bit are always 
feet to zero (off). Only bits 2-7 are 
sent over the line. 



TRANSMISSION CODES 



Binary synchronous communications under 
BTAM control uses one of three transmission 
codes, as follows: 

System/360 to System/360 
(including Model 20), System/3, 
1800, 2770, or remote 3270 

EBCDIC 

or USASCII 



System/360, to 1130: 
System/360 to 2715: 

System/360 to 2780: 

System/360 to 2972: 



EBCDIC 

EBCDIC 
(transparent) 

EBCDIC, USASCII 
or Trans code 

EBCDIC 



Only EBCDIC may be used between System/ 
360 and a 2770 or 2780 when messages are 
sent in transparent mode. Only EBCDIC may 
be used if the central System/360 is com- 
municating with a remote System/360 that is 
running under BOS (Basic Operating System) 
or BPS (Basic Programming System). These 
codes are shown in Appendix E. 

You must sometimes enter into message 
output areas certain line control charac- 
ters in their USASCII or TRANSCODE form; 
they must appear in main storage according 
to the following rules. 

• In main storage, bits 1-7 in a System/ 
360 byte correspond to bits b 7 -b i# 
respectively, of the USASCII character. 
The zero-bit is always zero (OFF) . 
When the control unit receives a byte, 
a parity bit is sent over the line 
along with bits 1-7 of the byte. Con- 
versely, when 7 bits plus a parity bit 
are received by the transmission con- 
trol unit from the line, the 7 (data) 
bits are read into main storage right- 
justified in a byte and the zero-bit is 
set to zero. 

• For TRANSCODE, a similar rule holds. 
The hexadecimal equivalent is right- 
justified in a System/360 byte (bits 



REMOTE STATION COMPATIBILITY AND 
INTERMIXING 



Unlike start-stop terminals, BSC stations 
of different types are compatible in use of 
line control procedures, so that it is 
unnecessary to specify at system generation 
time what specific type or types of remote 
station are connected to a given communica- 
tion line. Instead, one of the three types 
of line supported by BTAM is coded in the 
UNIT operand of the system generation IODE- 
VICE macro: 

• BSC1 indicates that the line is a non- 
switched point-to-point line. 

• BSC2 indicates that the line is a 
switched point-to-point line. 

• BSC3 indicates that the line is va non- 
switched multipoint line. * 

In earlier releases of BTAM, a value 
representing a specific station type had to 
be coded in the UNIT operand. For Release 
19 of the Operating System, it is still 
permissible for the UNIT operand to specify 
station types: S360, 2020 (S/360 Model 
20), 1130, and 2780. (See Appendix D for 
more information) . For lines to which 
an IBM System/3, 2715, 2770, 2792, remote 
3270, or 1800 is to be connected, however, 
the UNIT operand must specify one of the 
values BSC1, BSC2, or BSC3. For releases 
of the operating system subseguent to 
Release 19, only BSC1, BSC2, and BSC3 
will be valid ONIT parameters for a binary 
synchronous line. 



USER PROGRAM ANALYSIS 



As discussed under Message Transmission in 
the Line control and Message Transmission 
chapter, the user program must analyze the 
results of each Read or Write operation to 
determine whether it completed successfully 
or unsuccessfully, and what if any excep- 
tional condition occurred. The User Pro- 
gram Analysis Procedure section of the 
Error Recovery Procedures and Error Record- 
ing chapter describes a procedure to fol- 
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low. In addition, the chapter. Suggested 
Retry Options for BSC Read and Write Opera- 
tions, recommends appropriate READ and 
WRITE macro instructions to issue following 
various error and exceptional conditions. 

LINE AND MESSAGE CONTROL FUNCTIONS 

ID Verification 

Identification sequences may be exchanged 
between the central computer and some kinds 
of "remote BSC stations with which communi- 
cation has been established over a switched 
line. This facility affords either or both 
stations (i.e., central computer and remote 
station) the opportunity to verify the 
identity of the other before message text 
is transmitted. The terminal list asso- 
ciated with the READ or WRITE macro in- 
struction that established the contact con- 
tains the ID sequence to be sent to the 
remote station, and one or more ID 
sequences that will be accepted from the 
remote station. 

ID verification is available at either 
of two levels, which may be termed "regu- 
lar" and "expanded". In regular ID verifi- 
cation, only one unique ID sequence can be 
accepted from the remote station, regard- 
less of which of many stations has called 
(or been called by) the central computer. 
Further, BTAM makes only one decision 
regarding continuance of the Read or Write 
operation. That is, if the received 
sequence matches the expected sequence (the 
terminal list contains only one expected 
sequence) , the operation continues, result- 
ing in transfer of text between the sta- 
tions. If the received sequence does not 
match the expected sequence, the operation 
is halted, and text transfer does not 
occur. 

In the expanded ID verification, the 
user can designate, in the terminal list, 
many different ID sequences, any of which 
will be accepted from the remote station; 
this allows each station to send a unique 
sequence. Also, contact can be established 
with stations that do not send ID sequences 
as well as with those that do. For 
expanded ID verification, a terminal list 
having multiple entries is used; this type 
of list is designated as SWLST. Each entry 
has a field containing a valid ID sequence 
that will be accepted from a remote sta- 
tion, and a control byte. (Each entry 
may also have a user-data area, at the 
user's option. This is discussed below.) 

After the line connection has been es- 
tablished and an ID sequence (or other 
data) has been received from the remote 
station, BTAM scans the terminal list for a 
matching ID sequence. If one is found, 
BTAM places the address of the entry con- 
taining the sequence in the first fullword 
of the terminal list, for possible use by 



the user program. Typically, the program 
would use this address to determine which 
remote station called or answered the 
central computer. 



The control byte of an entry contains a 
user-specified indicator specifying what 
action BTAM is to take after the ID 
sequence (or other data) has been received. 
Examples of actions following a Read Con- 
nect operation are: continue with the 
remainder of the Read Connect operation to 
read a message block; disconnect the line; 
or post the operation as complete, without 
reading a message block. 

By setting up the control byte prior to 
the Read or Write operation, and by check- 
ing completion codes and indicators in the 
DECB following receipt of an ID sequence 
(or other data) from a remote station, the 
user program can both determine the status 
of the operation and influence subsequent 
BTAM actions. 

Each terminal list entry may contain a 
four-byte user-data field. In this field 
may be placed a relocatable expression as 
an address that is to be associated with 
the ID sequence (or ENQ character) con- 
tained in that entry. Typically, the user- 
data field would contain the address of a 
subroutine to be called when the remote 
station represented by the ID establishes 
contact with the central computer. 

For more detailed information on use of 
expanded ID verification, see the descrip- 
tions of the READ Connect, WRITE Connect, 
DFTRMLST, and CHGNTRY macro instructions. 

Error Information Byte (EIB) Mode 



BTAM provides the option of specifying, in 
the DCB macro, whether the TCU is to oper- 
ate in EIB mode or non-EIB mode. The dis- 
tinction is as follows: In EIB mode, the 
TCU, during a receive operation, sends an 
error information byte into main storage 
following each IUS (US), ETB, and ETX char- 
acter received from the communication line. 
In non-EIB mode, the TCU does not send the 
EIB into main storage following these 
characters. 

The EIB indicates the presence of either 
a data check or an overrun error (or no 
error at all) in the sub-block that immedi- 
ately preceded the IUS (US), ETB, or ETX 
character. BTAM does not analyze EIBs. 
The user program may check them and, where 
an error is found, take appropriate action, 
such as issuing a READ Repeat with Leading 
Graphics macro instruction to request 
retransmission of that part of the message 
block that is in error. 



128 OS BTAM SRL 



Whether or not the TCU is operating in 
EIB mode, it recognizes the IUS (EBCDIC) or 
US (USASCII) character as signifying the 
end of an intermediate block. (IUS is 
Interchange Unit Separator [an EBCDIC 
character], and US is Unit Separator [a 
USASCII character] ; the two are equivalent 
characters.) 



Double Addressing (Multipoint Lines) 



Transient conditions such as lightning^ 
impulses or switching pulses can introduce 
errors in data transmitted over a communi- 
cation line. Often, such errors consist of 
inverted bit settings within the bit pat- 
tern representing a character. While 
errors of this kind occurring in message 
data are normally detected through checking 
techniques, they are undetected when they 
occur in polling and addressing (selection) 
sequences, which are unchecked. An error 
wherein one valid polling or addressing 
character is changed to another can result 
in polling or addressing the wrong station. 

To avoid such an occurrence, double ad- 
dressing may be employed for certain BSC 
stations. In this technique, a remote sta- 
tion is represented by two identical chara- 
cters, rather than one character as in 
single addressing. 

When polled or addressed, the remote 
station that recognizes the first character 
compares it with the second. If the two 
are identical, the station address is pre- 
sumed to be correct, and the station 
returns a positive response. If they 
differ, a transmission error is presumed to 
have altered one or both of the characters, 
and the station does not return a response. 

The increased polling and addressing 
reliability this technique affords stems 
from the improbability that both of the 
characters would be changed in precisely 
the same way by a transmission error. For 
example, the characters BB are far less 
likely to be converted by an error to CC 
than they are to be converted to BC, or KB, 
or FC*. If a station whose address is K 
was attached to the line, that station 
would recognize the first character of the 
erroneous address KB, but would not respond 
because the two characters did not match. 



*Each of these conversions could result 
from a single-bit error in each character, 
where the transmission code is EBCDIC. 
For example, the letter B, the bit pattern 
for which is X'C2* (1100 0010), becomes a 
C (X"C3 r , 1100 0011) or a K (X*D2', 1101 
0010) through a single-bit error. 



Thus, a message intended for station B 
would not be sent to station K instead. 

For System/360 Model 20, System/3, 
1800, 2715, 2770, 2972, and remote 3270 
stations in a multipoint network, double- 
addressing must be used. 

As is always the case in terminal lists, 
all list entries must have the same length. 
Therefore, if addresses of different 
lengths are to be contained in a list (as 
when single-addressing is used for some 
stations, double-addressing for others), 
the shorter addresses must be padded with 
leading SYN characters so that they are the 
same length as the longer addresses. 



MESSAGE FORMATS 



In nontransparent mode, messages appear on 
the line in the format: 



r t— " 

| STX| (text) 
t x__// 



|ETB (or ETX) j 
JL— J 



The STX (Start of Text) character is 
required at the beginning of each message 
block. (SOH may appear at the beginning of 
the first message block, however.) ETB 
denotes the end of a message block and ETX 
denotes the end of the last block of a mes- 
sage. You must supply in the output area 
the SOH, STX, ETB and ETX characters. In 
calculating the length to be specified in a 
WRITE macro, include the STX and ETX in the 
number of message characters. 

Messages in nontransparent mode may not 
contain line control characters. 

In transparent mode, messages appear on 
the line in the format: 

r t t-// t t 1 

IDLE | STX | (text) |DLE j ETX | 
L X •!-//_ J J. J 

Transparent mode allows you to include 
any bit pattern in the message, regardless 
of whether the bit pattern represents a 
line control character. 

The DLE STX must appear at the beginning 
of each message block. DLE ETX denotes the 
end of the message. You must supply the 
DLE STX in the beginning of the output 
area. You do not provide the DLE ETX, as 
each Write operation of the transparent 
type automatically sends these characters 
following your text. 

When coding a WRITE macro for sending 
text in transparent mode, the length must 
include the DLE STX; the length should not 
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include the ending characters, DLE ETX, as 
these are sent by a separate command. 

When you receive a transparent message 
from a remote station, it has the format: 

DLE STX (text) ETB (or) 
DLE STX (text) ETX 

The DLE preceding the ETB or ETX is 
removed by the TCU before the message 
enters main storage. 

If you issue any WRITE macro that speci- 
fies both conversational operation and use 
of dynamic ouffering, the BUFL operand of 
the DCB macro for the line group must spec- 
ify at least 24 bytes. 



central and remote programs so they remain 
in step. This requires that you be aware 
of the responses that are valid for message 
text and for each control character that 
may be sent over the line. These are as 
follows. 

RESPONSES 

Responses to Message Text 



ACK-0 or ACK-1 
(Pos. response) 



NAK 

( Neg . response) 



The remote station 
received the text 
correctly . 

The remote station wishes 
to have the text 
retransmitted . 



Use of Line Control Characters 



Successful transmission of data between 
central computer and remote station demands 
thorough familiarity with line control 
(data link control) procedures. See the 
general discussion of this subject under 
Use of Line Control Characters in the Line 
Control and Message Transmission chapter. 



Use of SOH and STX Characters 



WACK 

( Wait- bef ore- 
transmit) 



The remote station wishes 
to delay transmission. 
(The only valid response 
to WACK is ENQ (or EOT); 
the central computer can- 
not continue sending mes- 
sage text, but must send 
ENQ until the remote sta- 
tion responds with the 
positive acknowledgment 
for the last message 
block it received. The 
central computer may, 
however, respond to WACK 
with an EOT, to end the 
transmission. ) 



Since either an SOH or an STX character 
appearing at the beginning block of a mes- 
sage resets, but is not included in, the 
block check character that follows the 
block, tne following practice is recom- 
mended. Include as the first character of 
a heading, following the SOH character, 
some specific non-control character that is 
never used as the first character following 
STX in a nontransparent text transmission. 
You may use any character other than a data 
link control character or the percent sign 
(%) . Consistent observance of this rule 
will prevent the processing of text data as 
a heading or of a heading as text data 
owing to a transmission error that changes 
STX to SOH or vice versa. When a message 
Dlock is received without error, presence 
of the specific character identifies the 
block as heading, while absence of that 
character identifies it as text. 



Coordinating BSC Central and Remote 
Programs 



In order to achieve message transmission 
between two computers using BSC communica- 
tion, you must be careful to coordinate the 



Kotes When a remote 3270 printer has 
been started, WACK is a positive response. 



leading graphics 



EOT 



DLE EOT 



RVI 



The remote station is 
transmitting user- 
supplied, non-control 
characters. 

The remote station is 
aborting reception of the 
message because of equip- 
ment malfunction or (if 
the remote station is a 
computer) program error. 

The remote station is 
aborting reception of the 
message and is discon- 
necting the line because 
of equipment malfunction 
or (if the remote station 
is a computer) program 
error. 

The remote station wishes 
temporarily to stop 
receiving text. The user 
program may continue 
sending text, however, or 
may send an EOT, to end 
the transmission. 
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BSC — General Information 



Responses to ENQ 



Responses to EOT (Switched Line Only) 



ACK-0 



ACK-1 



1. The remote station is 
ready to receive text. 

2. Positive response to 
text. 

Positive response to 
text. 



EOT 



ENQ 



The remote station does 
not wish to transmit but 
does not wish to discon- 
nect the line. 

The remote station wishes 
to transmit text. 



WACK 



EOT 



NAK 



Message text 



The remote station wishes 
to delay transmission. 



The remote station does 
not wish to receive text. 



The remote station did 
not acknowledge the last 
transmission. 

Last receipt was text. 



DLE EOT 



The remote station is 
going to disconnect the 
line. 



You should pay close attention to the com- 
mands within channel programs. Figure 21 
is an example of how central and remote 
channel programs should be matched. This 
example is for System/3 6 O-to-System/3 60 
communication on a nonswitched point-to- 
point line. It shows only the sequence of 
Read and Write operations; it omits check- 
ing of return and completion codes and 
omits WAIT or TWAIT macros. 



READ TI 
READ TT 
WRITE TT 
WRITE TQ 
WRITE TQ 
WRITE TQ 



Prepare 
Read ENQ 
Write response 
Read text- 
Write response 
Read text 

Write text 
Read response 





Write ENQ- 

Read response <■#- 



Write ENQ- 
Read response- 



Write ENQ 

Read response-^- 



WRITE TTV Write text- 

(Note 2) Read response) 

Read text j ""*" 



WRITE TTR Write text 

Read response «■<- 
Write EOT 



Write ENQ 
Read response 
Write text 
Read response 

Write text 
(Read response 
iRead text 



Write 
Read ENQ 

Write 
Read ENQ 

Write 
•Read ENQ 



sequence 
sequence 
sequence 



Write response 
Read text 

(Write graphics 
(Write response 
Read text 



Write response 



WRITE TI 



WRITE TTV 



WRITE TW 
(Note 1) 

WRITE TW 
(Note 1) 

WRITE TW 
(Note 1) 

READ TT 



READ TTL 



READ TT 



-<*» Read text 






4 



Notes : 

1. The number of times the WRITE TW is executed depends on how long you wish to 
delay transmission. The WRITE TW must be followed by WRITE TW, READ TT, READ 
TP, READ TTL, READ TPL, or READ TRV. 

J 2. On a WRITE TTV the response is read into an input area or user-created buffer. 

L . : . J 

Figure 21. Example of a BSC Message Control Routine 
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BSC — Nonswitched Point-to-Point 



BSC NONSWITCHED POINT-TO-POINT OPERATION 



READ Continue with Leading Graphics (TTL) 



The macro instructions contained in this 
section may be issued for any of the types 
of remote BSC stations that can be con- 
nected to a nonswitched point-to-point 
line, except as noted in individual macro 
instruction descriptions. 



Since BSC operations on nonswitched 
point-to-point lines use contention-type 
line control, no terminal lists are used. 

The channel programs in this section 
correspond to an IODEVICE macro UNIT 
operand of B'SCl. 



READ MACRO INSTRUCTIONS 



READ Continue with leading graphics func- 
tions the same as a Read Continue, but pre- 
cedes the positive response with leading 
graphics . 

1. Write Leading Graphics 

2. m Write ACK-0 or ACK-1 

3. * Read Text 

This macro instruction may be issued for 
any type of remote BSC station except an 
IBM 2780 using Transcode; however* the IBM 
System/3, 1800, 2715, and 2770 ignore the 
leading graphics characters that precede 
the response. That is, these characters 
are neither received into core storage 
(2715) or terminal buffer, nor passed to 
any output device attached to the station. 



READ Initial (TI) 



READ Repeat (TP) 



READ Initial monitors the line for an ENQ 
sent by the remote station, writes a posi- 
tive response, and reads t?he message block 
that follows. 

1. Prepare 

2. Read ENQ 

3. Write Response 

4. Read Text 



READ Repeat writes a negative response to 
the remote station and reads a message 
block . 

1. Write NAK 

2 . Read Text 



READ Repeat with Leading Graphics (TPL) 



READ Initial Inquiry (TIQ) 



READ Initial Inquiry monitors the line for 
an ENQ sent by the remote station. 

1 . Prepare 

2. Read ENQ 



READ Continue (TT) 



READ Continue writes a positive response to 
the remote station and reads a message 
block . 



READ Repeat with Leading Graphics functions 
the same as a Read Repeat, but precedes the 
negative response with leading graphics. 

1. Write Leading Graphics 

2. Write NAK 

3. Read Text 

This macro instruction may be issued for 
any type of remote BSC station except an 
IBM 2780 using Transcode; however* the IBM 
System/3, 1800, 2715, and 2770 ignore the 
leading graphics characters that precede 
the response. That is, these characters 
are neither received into core storage* 
(2715) or terminal buffer, nor passed to 
any output device attached to the station. 



1. Write ACK-0 or ACK-1 

2. Read Text 



READ Inquiry (TQ) 



Note : The text received is either message 
text or an EOT. 



READ Inquiry reads an ENQ from the remote 
station. 
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BSC — Nonswitched Point-to-Point 



1. Read 



ENQ 



READ Interrupt (TRV) 



Programming Note : This macro instruction 
cannot be used to send message text to an 
IBM 2715, because text transmission to this 
type of station must always be in trans- 
parent mode. 



READ Interrupt writes a Reverse Interrupt 
(RVI) sequence to indicate to the remote 
station that the central computer wishes 
temporarily to stop receiving message text; 
then issues a Read Text command, which will 
receive from the remote station either an 
EOT, signifying end of text transmission, 
or further text. The RVI sequence is 
equivalent to, and is recognized by the 
remote station as, the proper alternating 
positive acknowledgment (ACK-0 or ACK-1) . 

READ Interrupt is for use in lieu of a 
READ Continue. 



1. 
2. 



Write RVI sequence 
Read Text 



Programming Notes : 

1. Receipt of the RVI sequence does not 
force the remote station to break off 
message transmission. It is only an 
indication that the central computer 
wishes to stop receiving. The remote 
station may continue sending message 
text until such time as it wishes to 
yield to the central computer by send- 
ing EOT. The program in the central 
computer should therefore be arranged 
to issue READ Continue macros until 
the remote station does respond with 
EOT instead of text. 



WRITE Initial Transparent (TIX) 

WRITE Initial Transparent and Reset (TIXR) 



WRITE Initial Transparent functions the 
same as the Write Initial* except that 
after writing message text it writes the 
ending characters that must follow the 
transparent data. 

1. Write ENQ 

2. Read Response 

3. Write Text 

4. Write DUE ETX 

5. Read Response 

6. Write EOT (TIXR only) 

Programming Note : This macro instruction 
should not be issued for an IBM 2770 or 
2780 on a point-to-point line if the 2770 
or 2780 requires component selection chara- 
cters in the message text. 1 

If both component selection and trans- 
parent message text transmission are 
desired, the component selection characters 
should be sent in a separate message by a 
Write Initial operation, followed by a 
Write TTX (or TTE) or Write TTVX operation 
to send the transparent text. 



2 . The READ Interrupt macro must not be 
issued more than once during a trans- 
mission, as incorrect alternating 
acknowledgments may result. 



WRITE MACRO INSTRUCTIONS 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



WRITE Initial writes an ENQ to gain use of 
the line, and if the response to the ENQ is 
positive (ACK-0), writes message text and 
reads the response to text. If the 
response to ENQ is other than ACK-0, the 
operation is posted complete, with appro- 
priate indicators set in DECFLAGS. 

1. Write ENQ 

2 . Read Response 

3 . Write Text 

4 . Read Response 

5. Write EOT (TIR only) 



WRITE Initial Transparent Block (TIE) 



WRITE Initial Transparent Block functions 
the same as WRITE Initial Transparent (TIX) 
except that it writes DLE ETB instead of 
DLE ETX following message text. 

1. Write ENQ 

2. Read Response 

3. Write Text 

i*. Write DLE ETB 
5. Read Response 

Programming Note : This macro instruction 
should not be issued for an IBM 2770 or 
2780 on a point-to-point line if the 2770 



^-Component selection characters are 
required unless the Job Select switch 
(2770) or Mode switch (2780) is set for 
printing or punching (or some other output 
device, for 2770), in which case the mes- 
sage is printed or punched, regardless of 
the component specified by these 
characters. 
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BSC ™ Nonswitched Point-to-Point 



or 2780 requires component selection chara- 
cters in the message text. 1 



WRITE Initial Conversational 
Transparent (TIVX) 



If both component selection and trans- 
parent message text transmission are 
desired, the component selection characters 
should be sent in a separate message by a 
Write Initial operation, followed by a 
Write Continue (TT) or Write Continue Tran- 
sparent (TTX) operation to send the trans- 
parent text. 



WRITE Initial Conversational (TIV) 



WRITE Initial Conversational writes an ENQ 
to gain use of the line, and if the 
response to ENQ is ACK-0, writes message 
text and reads a response, which may be the 
first two characters of a message block, an 
alternating acknowledgement, or NAK. If 
the response is message text, the remaining 
text is read; if not, the operation is 
posted complete. 

1 . Write ENQ 

2. Read ACK-0 

3. write Text 

4 . Read Response 

5. Read Text 



WRITE Initial Conversational Transparent 
writes an ENQ to gain use of the line, and 
if the response to ENQ is ACK-0, writes 
message text and the ending characters, DLE 
ETX, that must follow the transparent data. 
The macro then reads a response, which may 
be either the first two characters of a 
message block or NAK. If the response is 
message text, the remaining text is read, 
if not, the operation is posted complete. 

1. Write ENQ 

2. Read ACK-0 

3. Write Text 

4. Write DLE ETX 

5. Read Response 

6 . Read Text 



Programming Notes 



This macro instruction may be used for 
all types of BSC stations (except as 
noted in 2, below). However, the IBM 
1800, 2715, and 2770 do not transmit 
text as a response to text received from 
the central computer; they return the 
usual alternating acknowledgment (ACK-0 
or ACK-1). 



Programming Notes 



2. This macro instruction should not be 
issued for an IBM 2770 or 2780 on a 
point-to-point line if the 2770 or 2780 
requires component selection characters 
in the message text. 1 



1. This macro instruction cannot be used 
to send message text to an IBM 2715, 
because text transmission to this type 
of station must always be in trans- 
parent mode. 

2. This macro instruction may be used for 
all other types of remote BSC sta- 
tions; however, the IBM 1800 and 2770 
do not transmit text as a response to 
text received from the central comput- 
er; they return the usual alternating 
acknowledgment (ACK-0 or ACK-1). 



WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



WRITE Continue writes message text and 
reads a response from the remote station. 



1. Write Text 

2. Read Response 

3. Write EOT (TTR only) 



^-Component selection characters are 
required unless the Job Select switch 
(2770) or Mode switch (2780) is set for 
printing or punching (or some other output 
device, for 2770), in which case the mes- 
sage is printed or punched, regardless of 
the component specified by these 
characters . 



WRITE Continue Transparent (TTX) 

WRITE Continue Transparent and Reset (TTXR) 



WRITE Contine Transparent writes message 
text and the ending characters, DLE ETX, 
that must follow transparent data, and 
reads a response from the remote station. 
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BSC --- Nonswitched Point-to-point 



1 . Write Text 

2. Write DLE ETX 

3. Read Response 

4. Write EOT (TTXR only) 



WRITE Continue Transparent Block (TTE) 



WRITE Continue Transparent Block writes 
message text and the ending characters, DLE 
ETB that must follow transparent data, and 
reads a response from the remote station. 

1 . Write Text 

2. Write DLE ETB 

3. Read Response 



or NAK. If the response is message text, 
the remaining text is read; if not, the 
operation is posted complete. 

1. Write Text 

2. Write DLE ETX 

3. * Read Response 

4 . Read Text 

Programming Note : This macro instruction 
may be used for all types of remote BSC 
stations. However, the IBM 1800, 2715, and 
2770 do not transmit text as a response to 
text received from the central computer; 
they return the usual alternating acknowle- 
dgment (ACK-0 or ACK-1). 



WRITE Continue Conversational (TTV) 



WRITE Inquiry (TQ) 



WRITE Continue Conversational writes mes- 
sage text and reads a response, which may 
be the first two characters of a message 
block, an alternating acknowledgment, or 
NAK. If the response is message text, the 
remaining text is read; if not, the opera- 
tion is posted complete. 

1. Write Text 

2. Read Response 

3. Read Text 



WRITE Inquiry writes an ENQ and reads 
a response. This macro is for requesting 
the remote station to transmit its last 
response (ACK-0, ACK-1, NAK, or a 
conversational text reply) . 



2 . Read 

3. Read 



Response 
Text 



WRITE Wait-Before-Transmit (TW) 



Programming Notes: 



1. This macro instruction cannot be used 
to send message text to an IBM 2715, 
because text transmission to this type 
of station must always be in trans- 
parent mode. 

2. This macro instruction may be used for 
all other types of remote BSC stations; 
however, the IBM 1800 and 2770 do not 
transmit text as a response to text 
received from the central computer; 
they return the usual alternating ack- 
nowledgment (ACK-0 or ACK-1). 



WRITE Wait-before-transmit writes a WACK 
sequence to a remote station and reads an 
ENQ. The purpose of this macro is to tem- 
porarily stop the remote computer from 
sending. You may issue it in place of READ 
Continue or READ Repeat, or in response to 
a conversational- type Write operation 
executed by the remote station (if a com- 
puter) . The only valid responses to WACK 
are ENQ and EOT. You may issue Write TW 
repeatedly for as long as necessary to 
delay your regular response. 

1. Write WACK 

2 . Prepare 

3. Read ENQ 



WRITE Continue Conversational 
Transparent (TTVX) 



WRITE Continue Conversational Transparent 
writes message text and the ending charac- 
ter, DLE ETX, and reads a response, which 
may be the first two characters of a mes- 
sage block, an alternating acknowledgment. 



WRITE Reset (TR) 



WRITE Reset writes an EOT to relinquish use 
of the line. After sending the EOT, the 
next operation must be an initial-type Read 
or Write operation,, to again gain use of 
the line. 

1. Write EOT 
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BSC — IMonswitched Multipoint 

BSC NONSWITCHED MULTIPOINT OPERATION 



The macro instructions contained in this 
section may be issued for any of the types 
of remote BSC stations that can be con- 
nected to a nons witched multipoint line, 
except as noted in individual macro in- 
struction descriptions. 

The channel programs shown in this sec- 
tion correspond to an IODEVICE macro UNIT 
operand of BSC3. 



In defining a polling list of either the 
open (AUTOLST) or wraparound (AUTOWLST) 
kind, you must code, following the entries 
for the stations to be polled, an entry of 
length equal to the others, and containing 
EOT characters (in hexadecimal equivalent 
of the transmission code bit patterns). 
For example, if the entries for the sta- 
tions each contain five polling characters 
plus ENQ, the last entry must be coded as 
six EOT characters. 



Addressing List 



DEFINING TERMINAL LISTS 



In order to achieve Read and Write opera- 
tions over multipoint lines , you must 
define appropriate terminal lists (i.e., 
polling or addressing lists) and refer to 
these lists in your initial-type READ and 
WRITE macro instructions. 

See the explanation of the DFTRMLST 
macro instruction for general information 
on defining those lists. Given below are 
the specific coding requirements for multi- 
point operations. 

Each Read Initial operation requires an 
open or wraparound polling list, and each 
initial-type Write operation (Write Ini- 
tial, Write Initial Transparent, etc.) 
requires an open addressing list. 



To define an addressing list for any type 
of BSC station or combination of stations 
on a multipoint line, code the DFTRMLST 
operand field like this: 



j OPENLST, (tidseq, ) 

L , 



Polling List 



tidseq consists of between one and seven 
addressing characters, followed by an ENQ 
character, all of which must be coded as 
the hexadecimal equivalents of their trans- 
mission code bit patterns. 

All addressing list entries must be the 
same length. Therefore, if addresses of 
different lengths are to be contained in a 
list, the shorter addresses must be padded 
with leading S5TN characters so that they 
are the same length as the longer 
addresses . 

Note ; See the discussion of double ad- 
dressing in the General Information section 
at the beginning of this chapter. 



To define a polling list for any type of 
BSC station or combination of stations on a 
multipoint line, code the operand field of 
a DFTRMLST macro like this : 

j /AUTOLST \ | 

| \AUTOWLST/ , (tidseq, . . . ) | 

l_: .J. . j 

tidseq defines an entry in the polling 
list, and consists of between one and seven 
polling characters, followed by an ENQ 
character, all of which must be coded as 
the hexadecimal equivalents of their trans- 
mission code bit patterns. 

All polling list entries must be the 
same length. Therefore, if polling 
sequences of different lengths are to be 
contained in a list, the shorter sequences 
must be padded with leading SYN characters 
so that they are the same length as the 
longer sequences. 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 



(Using Open Polling List [AUTOLST]) 



READ Initial initiates an Auto Poll opera- 
tion to cause the TCU automatically to poll 
each of the stations in the polling list. 
If a positive response to polling is 
received from any station, the macro reads 
into the input area the index byte indicat- 
ing which station is sending the message, 
followed by the message block. The first 
byte of the input area contains -the index. 



1. 


Write EOT 


2. 


Poll (at list entry specified in READ 




macro) 


3. 


NOP 


4. 


Read Index 


5. 


Read Text 
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Command (1) sets the stations on the line 
to control mode, command (2) initiates the 
polling operation. Command (3) is executed 
only if no response is received from a sta- 
tion in the Auto Poll list, or if no sta- 
tion in the list returns a positive 
response to polling, that is, all stations 
send negative responses. Execution of com- 
mand (3) ends the Read operation, which is 
posted complete in the event control block. 



If some station in the list returns a 
positive response, command (3) is skipped; 
command (4) reads into the first two bytes 
of the input area the index byte indicating 
which station responded, and the first mes- 
sage character. Command (5) reads the 
remaining message text into the input area. 



Programming Notes 



1. To determine which station responded, 
examine the index byte. You should 
obtain this index byte not from the 
input area but from the DECPOLPT field 
of the DECB for the line. DECPOLPT 
always contains the index byte, while 
an I/O error during transmission may 
prevent the index byte from being 
placed in the input area. 

2. In specifying the length in the READ 
macro, be sure it is at least one 
greater than the expected text length, 
in order to accommodate the index 
byte . 



READ Initial (TI) 

(Using Wraparound Polling List [AUTOWLST]) 



Command (1) sets the stations on the line 
to control mode. Command (2) initiates the 
polling operation, beginning with the sta- 
tion specified by the "entry" operand in 
the READ macro. If a positive response is 
returned before the end of the list is 
reached, the status modifier is set, caus- 
ing the next command, (3), to be skipped; 
command iH) transfers to command (7), fol- 
lowed by (8), which functions like commands 
(4) and (5) in the "open-type" Auto Poll 
operation. 

If, however, the end of the list is 
reached and no positive response has been 
received, command (3) is executed,, giving 
control to command (5), which restarts the 
polling operation at the beginning of the 
polling list. Polling proceeds automati- 
cally, and each time the end of the list is 
reached, command (6) gives control to (5), 
and the polling starts again. If a posi- 
tive response is received during a pass 
through the line, command (6) is skipped 
(just as command (3) is skipped above), and 
commands (7) and (8) are executed as 
before. 



Programming Notes 



The same programming notes given above 
apply to Auto Poll operations with a wrap- 
around list. 



READ Continue (TT) 



READ Continue writes a positive response to 
the remote station and reads a message 
block. 

1. Write ACK-0 or ACK-1 

2 . Read Text 



READ Initial initiates an Auto Poll opera- 
tion to cause the TCU automatically to poll 
each of the stations in the polling list. 
If a positive response is received from any 
station, the macro reads into the input 
area the index byte indicating which sta- 
tion is sending the message, followed by 
the message block. The first byte of the 
input area contains the index. 

1. Write EOT 



2. Poll 



3. 


TIC 


4. 


TIC 


5. 


Poll 


6. 


TIC 



(at list entry specified in 

READ macro) 

(to command (5)) 

(to command (7)) 

(at beginning of list) 

(to command (5)) 



7. Read Index 

8 . Read Text 



Note : The text received is either message 
text or an EOT. 



READ Continue with Leading Graphics (TTL) 



READ Continue with leading graphics func- 
tions the same as a Read Continue, but pre- 
cedes the positive response with leading 
graphics • 

1. Write Leading Graphics 

2. Write ACK-0 or ACK-1 

3. Read Text 

This macro instruction may be issued for 
any type of remote BSC station except an 
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IBM 2780 using Transcode or a remote IBM 
3270; however , the IBM System/3, 1800, 
2715, and 2770 ignore the leading graphics 
characters that precede the response. 
That is, these characters are neither 
received into core storage (2715) or 
terminal buffer, nor passed to any output 
device attached to the station. 

READ Repeat (TP) 



READ Repeat writes a negative response to 
the remote station and reads a message 
block. 



Write NAK 
Read Text 



READ Repeat with Leading Graphics (TPL) 



READ Repeat with Leading Graphics functions 
the same as a Read Repeat, but precedes the 
negative response with leading graphics. 

1. Write Leading Graphics 

2. Write NAK 

3. Read Text 

This macro instruction nay be issued 
for any type of remote BSC station except 
an IBM 2780 using Transcode or a remote 
IBM 3270; however, the IBM System/3 # 1800, 
2715, and 2770 ignore the leading graphics 
characters that precede the response. 
That is, these characters are neither 
received into core storage (2715) or 
terminal buffer, nor passed to any output 
device attached to the station. 



READ Interrupt is for use in lieu of a 
READ Continue. 

1. Write RVI sequence 

2. Read Text 

Programming Notes ; 

1. Receipt of the RVI sequence does not 
force the remote station to break off 
message transmission. It is only an 
indication that the central computer 
wishes to stop receiving. The remote 
station may continue sending message 
text until such time as it wishes to 
yield to the central computer by send- 
ing EOT. The program in the central 
computer should therefore be arranged 
to issue READ Continue macros until 
the remote station does respond with 
EOT instead of text. 

2. The READ Interrupt macro must not be 
issued more than once during a trans- 
mission, as incorrect alternating 
acknowledgments may result. 

3. The remote 3270 always responds to 
the BEAD Interrupt macro with an E3T. 
The problem program must determine 
whether all data was received by 
checking for an ETX at the end of 
the previous message block. If an 
ETB is present instead, all data was 
not received. If the rest of the 
data is wanted, the problem program 
can reread the message. 



WRITE MACRO INSTRUCTIONS 



READ Inquiry (TQ) 



WRITE Initial (TI) 

WRITE Initial and Reset (TIR) 



READ Inquiry reads an ENQ from the remote 
station. 

1. Read ENQ 



READ Interrupt (TRV) 



READ Interrupt writes a Reverse Interrupt 
(RVI) sequence to indicate to the remote 
station that the central computer wishes 
temporarily to stop receiving message text; 
then issues a Read Text command, which will 
receive from the remote station either an 
EOT, signifying end of text transmission, 
or further text. The RVI sequence is 
equivalent to, and is recognized by the 
remote station as, the proper alternating 
positive acknowledgment (ACK-6 or ACK-1.) 



WRITE Initial addresses a remote station 
and if the response to addressing is posi- 
tive, writes message text # then reads the 
response. 



1. Write EOT 

2. Write Addressing sequence 

3. Read Response 
H. Write Text 

5 . Rea d Res pons e 

6. Write EOT (TIR only) 



Programming Note : This macro instruction 
cannot be used to send message text to an 
IBM 2715, because text transmission to this 
type of station must always be in trans- 
parent mode. 
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WRITE Initial Transparent (TIX) 

WRITE Initial Transparent and Reset (TIXR) 

WRITE Initial Transparent addresses a 
remote station, and if the response to ad- 
dressing is positive, writes message text 
and ending characters DLE ETX, then reads 
the response. 

1 . Write EOT 

2. Write Addressing sequence 

3. Read Response 
«t. Write Text 

5. Write DLE ETX 

6 . Read Response 

7. Write EOT (TIXR only) 



Programming Notes 



1. This macro instruction cannot be used 
to send message text to an IBM 2715, 
because text transmission to this type 
of station must always be in trans- 
parent mode. 

2. This macro instruction may be used for 
all other types of remote BSC stations. 
However, the IBM 1800, 2770, and 2972 
do not transmit text as a response to 
text received from the central comput- 
er; they return the usual alternating 
acknowledgment (ACK-0 or ACK-1) . 



P rogramming Note: This macro instruction 
cannot be used to send message text to 
an IBB 2972 or a remote IBM 3270, because 
text transmission to these types of 
stations must always be in nontransparent 
■ode. 



WRITE Initial Conversational 
Transparent (TIVX) 



WHITE Initial Transparent Block (TIE) 



WRITE Initial Transparent Block addresses a 
remote station, and if the response to ad- 
dressing is positive, writes message text 
and ending characters DLE ETB, then reads 
the response. 



1. 


Write 


EOT 


2. 


Write 


Addressing sequence 


3. 


Read 


Response 


<*. 


Write 


Text 


5. 


Write 


DLE ETB 


6. 


Read 


Response 



Programming Note: This macro instruction 
cannot be used to send message text to 
an IBM 2972 or a remote IBM 3270, because 
text transmission to these types of 
stations must always be in nontransparent 
■ode. 

WRITE Initial Conversational (TIV) 



WRITE Initial Conversational addresses a 
remote station and if the response to ad- 
dressing is positive, writes message text 
and reads a response, which may be the 
first two characters of a message block, an 
alternating acknowledgment, or NAK. If the 
response is message text, the remaining 
text is read; if not, the operation is 
posted complete. 



WRITE Initial Conversational Transparent 
addresses a remote station, and if the 
response to addressing is positive, writes 
message text and the ending characters, DLE 
ETX, that must follow the transparent data. 
The macro then reads a response, which may 
be the first two characters of a message 
block, an alternating acknowledgment, or 
NAK. If the response is message text, the 
remaining text is read; if not, the opera- 
tion is posted complete. 

1. Write EOT 

2. Write Addressing sequence 

3. Read Response 
U. Write Text 

5. Write DLE ETX 

6. Read Response 

7. Read Text 

Pre g ramming Notes ; 

1. This macro instruction cannot be used 
to send message text to an IBM 2972 
or a remote IBM 3270, because text 
transmission to these types of stations 
must always be in nontransparent mode. 

2. This macro instruction may be used for 
all other types of remote BSC stations. 
However, the IBM 1800, 2715, and 2770 
do not transmit text as a response to 
text received from the central comput- 
er; they return the usual alternating 
acknowledgment (ACK-0 or ACK-1). 



1. Write EOT 

2. Write Addressing Sequence 

3. Read Response 
«» . Write Text 

5 . Read Response 

6. Read Text 



WRITE Continue (TT) 

WRITE Continue and Reset (TTR) 



WRITE Continue writes message text and 
reads a response from the remote station. 
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1. Write Text 

2. Read Response 

3. Write EOT (TTR only) 

Programming Note ; This macro instruction 
cannot be used to send message text to an 
IBM 2715, because text transmission to this 
type of station must always be in trans- 
parent mode. 



WRITE Continue Transparent (TTX) 
WRITE Continue Transparent 
and Reset (TTXR) 



WRITE Continue Transparent writes message 
text and the ending characters, DLE ETX, 
that must follow transparent data, and 
reads a response from the remote station. 



1. Write Text 

2. Read Response 

3 . Read Text 

Programming Notes 

1. This macro instruction cannot be used 
to send message text to an IBM 2715, 
because text transmission to this type 
of station must always be in trans- 
parent mode. 

2. This macro instruction may be used for 
all other types of remote BSC stations. 
However, the IBM 1800, 2770, and 2972 
do not transmit text as a response to 
text received from the central comput- 
er; they return the usual alternating 
acknowledgment (ACK-0 or ACK-1). 

WRITE Continue Conversational Transparent 
(TTVX) 



1. Write Text 

2. Write DLE ETX 

3. Read Response 

U.- Write EOT (TTXR only) 

P rogramming No t e: This macro instruction 
cannot be used to send message text to 
an IBM 2972 or a remote IBM 3270, because 
text transmission to these types of 
stations must always be in nontransparent 
mode. 



WRITE Continue Transparent Block (TTE) 



WRITE Continue Transparent Block writes 
message text and the ending characters, DLE 
ETB, that must follow transparent data, and 
reads a response from the remote station. 

1. Write Text 

2. Write DLE ETB 

3 . Read Response 

Programming Note; This macro instruction 
cannot be used to send message text to 
an IBM 2972 or a remote IBM 3270, because 
text transmission to these types of 
stations must always be in nontransparent 
mode. 



WRITE Continue Conversational (TTV) 



WRITE continue Conversational writes mes- 
sage text and reads a response, which may 
be the first two characters of a message 
block, an alternating acknowledgment, or 
NAK. If the response is message text, the 
remaining text is read; if not, the opera- 
tion is posted complete. 



WRITE Continue Conversational Transparent 
writes message text and the ending charac- 
ter, DLE ETX, and reads a response, which 
may be the first two characters of a mes- 
sage block, ah alternating acknowledgment, 
or NAK. If the response is message text, 
the remaining text is read; if not, the 
operation is posted complete. 

1. Write Text 

2. Write DLE ETX 

3. Read Response 

4. Read Text 

Programming Notes 

1. This macro instruction cannot be used 
to send message text to an IBM 2972 
or a remote IBM 3270, because text 
transmission to these types of stations 
must always be in nontransparent mode. 

2. This macro instruction may be used for 
all 'other types of remote BSC stations. 
However, the IBM 1800, 2715, and 2770 
do not transmit text as a response to 
text received from the central comput- 
er; they return the usual alternating 
acknowledgment (ACK-0 or ACK-1) . 

WRITE Inquiry (TQ) 

WRITE Inquiry writes an ENQ and reads 
a response. This macro is for requesting 
the remote station to transmit its last 
response (ACK-0, ACK1, NAK or a 
Conversational Text reply) . 

1. Write ENQ 

2. Bead Response 

3. Read Text 
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WRITE Wait-Before-Transmit (TW) 

WRITE Wait-before-transmit writes a WACK 
sequence to a remote station and reads an 
ENQ. The purpose of this macro is to tem- 
porarily stop the remote computer from 

sending. You may issue it in place of READ WRITE Reset writes an EOT to relinquish use 
Continue or Read Repeat, or in response to of the line. After sending the EOT, the 
a conversational-type Write operation next operation must be an initial-type Read 
executed by the remote computer. The only or Write operation, to again gain use of 
valid responses to WACK are ENQ and EOT. the line. 
You may issue Write TW repeatedly for as 
long as necessary to delay your regular 
response. 1. Write EOT 



1. Write 


WACK 


2. Read 


ENQ 


WRITE Reset 


(TR) 
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BSC SWITCHED POINT-TO-POINT OPERATION 



The macro instructions contained in this 
section may be issued for any of the types 
of remote BSC stations that can communicate 
with the central computer over a switched 
line, except as noted in individual macro 
instruction descriptions. 

Contact between central computer and a 
remote station over a switched line can be 
established in numerous ways, representing 
the various combinations of these 
alternatives: 

• Is the central computer to call a 
remote station or answer a call from a 
remote station? 

• Is the calling or answering function to 
be automatic or manual? That is, are 
the TCU and the common carrier equip- 
ment at the central computer equipped 
to perform the calling (dialing) or an- 
swering function under program control, 
or must the operator at the central 
computer perform these functions? 

• Is the data set (modem) at the central 
computer capable of generating and 



transmitting a "data tone" to signify 
to a calling station that data transfer 
can proceed, or must the user program 
supply the data tone? 



• Once contact has been established, is 
the central computer to send an ID 
sequence to the remote station, is the 
central computer to receive an ID 
sequence from the remote station, or 
both (or neither)? If ID sequences are 
to be received from remote stations, do 
all stations with which contact may be 
established have to send the same ID 
sequence? or can each send a unique 
sequence? 

• Once contact has been established, is 
the direction of the first message 
transmission to be toward the remote 
station (i.e., a Write Text operation), 
or toward the central computer (i.e., a 
Read Text operation) ? 

Each of the various available combinations 
of the foregoing alternatives is repre- 
sented by a combination of a specific READ 
or WRITE macro instruction option and a 
terminal list having a specific format and 
content. These are shown in Table 8. 
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Table 8. Summary of BSC Switched Line READ and WRITE Macro and Terminal List Options 

r t t t t 

macro that refers 
and if EXPANDED! 
ID Verification. . . 



TO: 



and to ... 



to be used 
issue a. . . 



to a terminal list 
defined like this: 



CALL a remote 
station, using... 



Automatic Calling 



Read text 



is not 3 



READ TI 



BSCLST, dialcount , 
dialchars, numrec, 
r idseq, numsent , tidseq 
(See Note 1) 



is 



Write text 



WRITE TC 
(followed by 
WRITE TT) 



SWLST, AD , dialcount , 
dialchars, entrylength, 
[userlength] , idcount 
idsent [{, (auth- 
sequence [ , control- 
value] [ , user- 
data] )}...] 



h- 



is not 



WRITE TI 6 



+- 



BSCLST, dialcount, 
dialchars, numrec, 
ridseq, numsent, tidseq 



is 



WRITE TC 
(followed by 
WRITE TT) 



Manual Calling 



Write text* 



SWLST, MD, entry- 
length, [userlength], 
idcount , idsent 
[ { , (authsequence 
[ , controlvalue] 
[ , userdata] )}...] 



is not 



WRITE TC 
(followed by 
WRITE TT) 



WTLIST, 0, numrec, 
ridseq, numsent, 
tidseq 



ANSWER a remote 
station, using. . . 



Automatic Answering 



is 



Read text 



READ TC or 
TCW 



SWLST, AN, entrylength, 
[userlength] , 
idcount , idsent 
[ { , (authsequence 
[ , controlvalue] 
[.userdata] )}...] 



is not 



READ TI 



BSCLST, 0,numrec, 
ridseq, numsent, 
tidseq (see Note 2) 



Manual Answering 



Read text 5 



is not 3 



READ TI 



(if data set [modem] 
automatically gen- 
erates tone) 
BSCLST, 0, numrec, 
ridseq, numsent, tidseq 



(if data set [modem] 
does not auto- 
matically generate 
tone) WTLIST, 
0, numrec, ridseq, 
numsent, tidseq, 
length, area 



x x , . 

x Alternatively, if no ID sequences are required, 

DIALST, dialcount, dialchars 
Alternatively, if no ID sequences are required, 
3 Expanded ID verification not available. 
*»Text cannot be read from the remote station. 
5 Text cannot be written to the remote station. 
6 0r WRITE TIX, TIV, or TIVX. 



the list may be coded as: 

the list may be coded as : DIALST, 



BSC Read and Write Operations 143 



BSC — Switched Point-to-Point 



DEFINING TERMINAL LISTS 



See the explanation of the DFTRMLST macro 
instruction for general information on 
defining these lists. Given below are the 
specific coding requirements for switched 
point-to-point operations. 



Automatic Calling and Answering - With 
Expanded ID verification 



To define a calling list, code the operand 
field of a DFTRMLST macro instruction like 
this : 



r ' ■ 1 

| SWLST, AD, diaIcount,dialchars, entry length, | 
| [userlength] ,idcount, idsent j 

| [{, (authsequence [, control value] | 

j [, userdata]) }... ] | 

L L J 

This type of list is for use with a 
WRITE Connect (TC) macro instruction. 

To define an answering list, code the 
operand field of a DFTRMLST macro like 
this: 



| SWLST, AN, entrylength, | 

| [userlength], idcount, idsent 
| [ { , (authsequence [ , controlvalue] | 

| [, userdata]) }.;. ] 

L J 

This type of terminal list is for use 
with a READ Connect (TC) or Read Connect 
with Tone (TCW) macro instruction. 

See the section DFTRMLST Macro — SWLST 
Form, for detailed information on coding 
DFTRMLST macros of the SWLST form. 



To define an answering list, code the 
DFTRMLST operand field like this: 



| BSCLST, 0, numrec, ridseq, numsent , tidseq 

L -> . . 



The ridseq operand must end with ENQ; 
the tidseq operand must end with ACK-0. 
This type of list is for use with a READ 
Initial macro instruction. 



Omitting ID Sequence : If no ID sequences 
are desired, omit, in the ridseq and tidseq 
operands, all but the ENQ and ACK-0 charac- 
ters. When no ID characters are specified, 
the numrec, ridseq, numsent, and tidseq 
operands are as follows: 



Calling List Answering List 



numrec 
ridseq 1 
numsent 
tidseq 1 



2 

ACK-0 
1 
ENQ 



1 

ENQ 
2 
ACK-0 



(Alternatively, if ID sequences are not 
desired, you may define a calling list 
using a DFTRMLST in which the operand field 
is coded DIALST,dialcount,dialchars; an an- 
swering list using a DFTRMLST in which the 
operand field is coded DIALST, 0.) 



Manual Calling 2 - with Expanded ID 
Verification 



To define a calling list, code the operand 
field of a DFTRMLST macro like this: 



Automatic Calling and Answering - Without 
Expanded ID Verification 



To define a calling list, code the operand 
field of a DFTRMLST macro like this: 



r 1 

| BSCLST, dialcount,dialchars, numrec, ridseq, | 
| numsent, tidseq j 

l . . J 

The ridseq operand must end with ACK-0; 
the tidseq operand must end with ENQ. This 
type of list is for use with a READ Initial 
or WRITE Initial macro instruction. 



SWLST, MD, entrylength, 
[userlength] , idcount , idsent 
[{, (authsequence [, controlvalue] 
[, userdata] )}... ] 



This type of list is for use with a 
WRITE connect (TC) macro instruction. 



x The ridseq and tidseq operands must be 
coded in hexadecimal representation of the 
appropriate transmission code bit patterns 
of the ENQ and ACK-0 characters. 

2 Manual answering with expanded ID verifi- 
cation is not available. 



144 OS BTAM SRL 



BSC — Switched Point-to-Point 



Manual Calling and Answering - Without 
Expanded ID Verification 



| BSCLST, 0,numreq, numsent, tidseq 

L 



To define a calling list, code the operand 
field of a DFTRMLST macro like this: 



j WTLIST, 0,numrec, ridseq, numsent, tidseq | 

L J 

The ridseq operand must end with ACK-0; 
the tidseq operand must end with ENQ. The 
sequence specified by tidseq may contain up 
to 15 characters (excluding the ENQ). This 
type of list is for use with a WRITE Con- 
nect macro instruction. 



The ridseq and tidseq operands are as 
explained above (under Data Sets Without 
Tone) . This type of list is for use with a 
READ Initial macro. 

If no ID sequences are desired, omit in 
the ridseq and tidseq operands all but the 
ENQ and ACK-0 characters. When no ID 
characters are specified, the numrec, rid- 
seq, numsent, and tidseq operands are as 
shown above under Automatic Calling and An- 
swering (Without Expanded ID Verification). 



An answering list may be coded in one of 
two ways, depending on whether the data set 
(modem) at the answering station (i.e., 
central computer) is or is not designed to 
automatically generate a data tone upon 
receiving a call. 



Data Sets Without Tone : If the data set 
does not generate a tone, BTAM sends a 
user- specif ied character sequence that the 
operator at the calling station hears as an 
audible tone. 

To define an answering list for a line 
equipped with a data set that does not gen- 
erate a tone, code the operand field of a 
DFTRMLST macro like this: 



WTLIST , , numr ec , numsent , tidseq , length , 
area 



The ridseq operand must end with an ENQ; 
the tidseq operand must end with ACK-0. 
The sequence specified by tidseq may con- 
tain up to 15 characters (excluding the 
two-character sequence, ACK-0). 

The length and area operands specify the 
length of the character sequence used as a 
data tone and the address of that sequence. 

The data tone should be about three 
seconds long. To obtain a tone of this 
duration requires a length of about 255 
characters, for a 600 bits-per-second com- 
munication line, or about 4 50 characters, 
for a 1200 bps line. A sequence of X'FF* 
is recommended for the data tone. This 
type of list is for use with a READ Initial 
macro. 



Data Sets With Tone : To define an answer- 
ing list for a list for a line equipped 
with a data set that generates a tone, code 
the DFTRMLST operand field like this: 



DEFINING TERMINAL LIST (SWLST) FOR EXPANDED 
ID VERIFICATION 



Answering List 



A READ Connect macro for Automatic Answer- 
ing, with Expanded ID Verification, 
requires an answering list defined as 
follows: 



r t t 

| Name | Operation | Operands 



I- 



-+- 



symbol | DFTRMLST 



-+- 



SWLST, AN, entrylength, 
| [userlength] , idcount, 
|idsent[{, (authsequence 
j [, control value] 
j [ , user data] )}...] 
.x 



SWLST 



Specifies a list structure for 
expanded BSC ID verification. 



AN 



Specifies that an answering list (to 
be used by the READ Connect or Read 
Connect with Tone macro) is to be 
defined. 

entrylength 

Specifies the number of bytes to be 
allocated for each list entry contain- 
ing a user-defined authorized ID ENQ 
sequence. The integer specified 
should equal the number of bytes 
required to accommodate the authorized 
ID ENQ sequence of maximum length, 
plus the userdata field, if present (4 
or 0), plus one (for the entry's con- 
trol byte) . Authorized ID ENQ 
sequences of less than the maximum 
length are assembled left- justified 
within the fixed-length ID field allo- 
cated for each entry. Each userdata 
field (if any) and control byte have 
the same offset within all entries. 
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(The value specified may be zero if no 
other sequence than ENQ, alone, is 
expected and ENQ is not put in the 
list.) 

userlength 

Specifies whether a four-byte userdata 
field is to be allocated for each list 
entry containing an authorized ID ENQ 
sequence. A code of 4 means to alloc- 
ate; means not to allocate. The 
default option is 0. 

idcount 

Specifies the length (in bytes) of the 
field required to accommodate the ID 
characters (if any) and ACK-0 defined 
by the idsent operand. The range per- 
mitted is 2 (ACK-0 alone) through 17; 
up to 15 ID characters may be 
specified. 

idsent 

Specifies the hexadecimal representa- 
tion of the ID ACK-0 sequence to be 
sent to the remote station. While the 
ID characters (if any) are of your 
choosing, the ACK-0 sequence is 
required. Upon receiving an ID ENQ 
sequence during execution of a READ 
Connect, BTAM checks the control byte 
value of the corresponding list entry, 
and transmits the ID ACK-0 sequence if 
the checked value is 0. (See the dis- 
cussion of the controlvalue sub- 
operand, or the discussion of the Read 
Connect channel program, for the 
explanation of the BTAM actions per- 
formed for the various control byte 
values . ) 

authsequence 

Specifies the hexadecimal representa- 
tion of an authorized ID ENQ sequence. 
Each ID ENQ sequence is defined in a 
separate sublist along with its 
corresponding control byte value and 
user data (if any) . You should code a 
separate ID ENQ sequence for each 
authorized sequence that can be 
received on a Read Connect operation 
using the particular answering list 
being defined. ID ENQ sequences of 
varying lengths can be defined within 
the same DFTRMLST macro. Each 
sequence specified must include the 
ENQ character at the end. You may 
define ENQ alone as an a uthoequence 
operand to service remote stations not 
employing ID verification. 

controlvalue 

Each list entry assembled for an auth- 
sequence sequence has an associated 
control byte, the value of which 
determines the automatic BTAM action 
to *>e performed when the sequence is 
received on a Read connect operation 



using the list* The values and corre- 
sponding BTAM actions are: 



Specifies that BTAM is to send the 
idsent sequence and read a message 
block (if any) from the calling 
station. If you omit the control- 
value suboperand within a sublist, 
this value is assumed. (If the 
controlvalue operand is omitted, 
two commas must precede a coded 
userdata operand in the same sub- 
list, because they are positional 
operands within the sublist.) You 
may specify this value for a list 
entry containing an ID ENQ sequence 
or the single ENQ character. 



Specifies that BTAM is to break the 
line connection and restart the 
channel program at the Enable com- 
mand (to await a new call) . You 
may specify this action if BTAM is 
not to service a particular calling 
station at the time of the call. 
Typically, this action would be 
specified for reasons of priority 
(time-of-day scheduling) . You may 
specify this value for a list entry 
containing an ID ENQ sequence or 
the single ENQ character. 



Specifies that BTAM is to post 
normal completion of the Read Con- 
nect immediately, with the address 
of the received ENQ character in 
the first word of the answering 
list* This permits control to be 
returned to the user program so 
that it can specify the subsequent 
actions to be performed. You may 
specify this value only for a list 
entry containing a single ENQ char- 
acter (i.e., not containing an ID 
sequence) . This permits the user 
program to issue a subsequent READ 
Continue or READ Repeat macro to 
send ACK-0 or NAK to a calling sta- 
tion that is not prepared to 
receive an ID sequence. 



userdata 

Specifies the relocatable expression 
to be assembled right- justified in the 
userdata field of the associated list 
entry. If you omit this suboperand 
and userlength specifies 4, four non- 
initialized bytes are allocated for 
the corresponding list entry. (No 
boundary alignment can be assumed for 
the user data field.) 
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Notes : 



1. A maximum of 194 sublists can be coded 
for an answering list of the SWLST 
form. 

2. The CHGNTRY macro can be used to change 
the control byte of an answering list 
of the SWLST form during program 
execution. 

The first fullword of the list is the 
area in which BTAM stores the address of 
the entry containing the ID ENQ sequence 
corresponding to the received sequence. 
See Appendix A for the format of the 
assembled answering list. 



Calling List 



For Automatic or Manual Calling, with 
Expanded ID Verification, A WRITE Connect 
macro requires a calling list defined as 
follows: 



r t t 

| Name | Operation | Operands 



h- 



symbol 



DFTRMLST 



SWLST, \AD) , 

(MD» 
[dialcount, dialchars, ] 
entrylength, [user- 
length] , idcount, idsent 
[{, (authsequence 
[ , control va lue ] 
[ ,userdata] )}...] 



SWLST 



AD 



Specifies a list structure for 
expanded BSC ID verification. 



Specifies that an auto-dial calling 
list is to be defined. In this case, 
the dialcount and dialchars operands 
are required so that program- initiated 
dialing can occur. The corresponding 
Write Connect channel program begins 
with a Dial command. 



MD 



Specifies that a manual-dial calling 
list is to be defined. In this case, 
omit the dialcount and dialchars 
operands, because the dialing opera- 
tion is initiated by the central com- 
puter operator. The Write Connect 
channel program with which a manual- 
dial calling list is used begins with 
an Enable command. 

dialcount 

Specifies the number of dial charac- 



ters (bytes) used in the dialing 
operation. Code this operand only if 
you code AD as the preceding operand. 

dialchars 

Specifies the decimal digits of the 
telephone number to be dialed. Code 
this operand only if you also code AD. 

entrylength 

Specifies the number of bytes to be 
allocated for each list entry contain- 
ing a user-defined authorized ID ACK-0 
sequence. The integer specified 
should equal the number of bytes 
required to accommodate the authorized 
ID ACK-0 sequence of maximum length, 
plus the userdata field, if present (4 
or 0), plus one (for the entry 1 s con- 
trol byte) . Authorized ID ACK-0 
sequences of less than the maximum 
length are assembled left- justified 
within the fixed-length ID field allo- 
cated for each entry. Each userdata 
field (if any) and control byte have 
the same offset within all entries. 

userlength 

Specifies whether a four-byte userdata 
field is to be allocated for each list 
entry containing an authorized ID 
ACK-0 sequence. A code of 4 means to 
allocate; means not to allocate. 
The default option is 0. 

idcount 

Specifies the length (in bytes) of the 
field required to accommodate the ID 
characters (if any) and ENQ defined by 
the idsent operand. The range per- 
mitted is 1 (ENQ alone) through 16; up 
to 15 ID characters may be specified. 

idsent 

Specifies the hexadecimal representa- 
tion of the ID characters (if any) and 
ENQ to be sent to the remote station. 
Typically, the ID characters to be 
sent will convey station identifica- 
tion. The ID characters, if any, are 
of your choosing; the ENQ character is 
required. 

authsequence 

Specifies the hexadecimal representa- 
tion of an authorized ID ACK-0 
sequence. Each ID ACK-0 sequence is 
defined in a separate sublist along 
with its corresponding control byte 
value and user data (if any). You 
should code a separate ID ACK-0 
sequence for each authorized sequence 
that can be received from remote (an- 
swering) stations. ACK-0 must be 
coded following each ID sequence; it 
must not be coded where no ID sequence 
is used. BTAM checks for reception of 
ACK-0 or NAK, alone, on a Write Con- 
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nect operation without requiring that 
they appear in the list. 

controlvalue 

Each list entry assembled for an auth- 
seguence sequence has an associated 
control byte. For any received ID 
sequence terminated by ACK-0, BTAM 
ignores the control byte. When a 
valid ID sequence terminated by NAK is 
received during a Write Connect opera- 
tion, BTAM examines the control byte 
of the entry whose ID matches the 
received ID. The control byte value 
determines the BTAM action to be per- 
formed. The values and BTAM actions 
are: 







Specifies that upon receipt of the 
sequence, BTAM is to post comple- 
tion of the operation immediately. 



READ MACRO INSTRUCTIONS 



READ Initial (TI) 



(Using Automatic Calling List — BSCLST 
DIALST) 



READ Initial calls a remote station, writes 
the central computer's identification 
sequence and ENQ to the station, and reads 
the identification sequence of the remote 
station and a response. If the identifica- 
tion matches the identification contained 
in the terminal list, and the response is 
positive (ACK-0), the operation continues 
by writing EOT (indicating that the central 
computer does not wish to send) , reading 
ENQ and responding with ACK-0., then reading 
a message block from the remote station. 
If the identifications do not match, the 
Read operation ends with command (3) and is 
posted as complete. 



Specifies that upon receipt of the 
sequence, BTAM is to resend the ID 
ENQ sequence. This option has 
meaning only when the ID NAK 
sequence has been sent, indicating 
that the remote station is not 
ready to receive, and you wish to 
retry, expecting that the remote 
station will shortly become ready 
to receive. The maximum number of 
retries performed for this control 
byte value is seven. If more 
retries than this are desired, you 
can reissue the WRITE Connect 
macro; BTAM bypasses the initial 
Enable or Dial command if the line 
connection is already established. 

userdata 

Specifies the relocatable expression 
to oe assembled right- justified in the 
userdata field of the associated list 
entry. If you omit this suboperand 
and userlength specifies 4, four non- 
initialized bytes are allocated for 
the corresponding list entry. (No 
boundary alignment can be assumed for 
the user data field.) 

Notes : 

1. A maximum of 192 sublists can be coded 
for a calling list of the SWLST form. 

2. The control byte values for a calling 
list cannot be changed by use of the 
CHGNTRY macro. 

The first fullword of the list is the area 
in which BTAM stores (prior to completion 
posting) the address of the list entry 
associated with the received ID sequence. 
See Appendix A for the format of the 
assembled calling list. 



1. 


Dial 


Dial Digits 


2. 


Write 


ID ENQ 


3. 


Read 


ID ACK-0 


4. 


Write 


EOT 


5. 


Read 


ENQ 


6. 


Write 


ACK-0 



7. Read 



Text 



READ Initial (TI) 

(Using Automatic Answering List — BSCLST, 

DIALST) 



READ Initial answers a call from a remote 
station, reads the identification sequence 
of the remote station and an ENQ, writes 
ACK-0 to indicate that the central computer 
is ready to receive, and reads a message 
block from the remote station. 

1. Enable 

2. Read ID ENQ 

3. Write ID ACK-0 

4 . Read Text 



READ Initial (TI) 



(Using Manual Answering List — 
BSCLST, WTLI ST) 



A READ Initial macro using a manual answer- 
ing list is for use where the central com- 
puter is not capable of automatically an- 
swering calls from remote stations; the 
operator at the central computer must answ- 
er them manually. Operation is as follows. 

The channel program first enables the 
line so that calls can be received. When 
the telephone rings, the computer operator 
answers it, and may verify the identity of 
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the calling station (if that call was 
initiated by the remote station operator 
rather than automatically) . The operator 
then places the data set (modem) in data 
mode. (This terminates the Enable 
command . ) 

If the manual answering list is of the 
WTLIST format (used where the data set 
(modem) does not automatically generate a 
data tone) , the channel program then sends 
a user-specified character sequence that 
the operator at the remote station hears as 
a tone. If the list is of the BSCLST for- 
mat (used where the data set does generate 
a tone) , the channel program does not send 
the character sequence. 

The channel program then reads an identi- 
fication sequence, ending in ENQ, from the 
remote station. If the sequence does not 
match the expected sequence, the Read Ini- 
tial operation ends at this point, and is 
posted complete-with-error in the event 
control block. If the two sequences do 
match, the channel program sends the iden- 
tification sequence of the central comput- 
er, then reads a message block from the 
remote station. 



1 . Enable 

2. Write 



Read 

Write 

Read 



Data Tone Characters 

WTLIST only) 

ID ENQ 

ID ACK-0 

Text 



(for 



Programming Note : It may be desirable, 
after issuing the READ Initial, to send a 
message to the console operator (using the 
WTO macro) , instructing him to answer calls 
received by the computer. 



READ Connect (TO (Expanded ID 
Verification) (Using Automatic Answering 
List- - SWLST) 



If the control byte value is 0„ BTAM 
restarts the channel program to send the ID 
ACK-0 sequence (or ACK-0 alone) given in 
the list, and then reads a message block, 
if any. If the control byte value is 1, 
BTAM restarts the channel program to break 
the line connection, and then restarts the 
channel program from the beginning Enable 
command. If the control byte value is 2, 
BTAM immediately posts normal completion 

(X'7F'). (A control byte value of 2 is for 
use when no ID sequence is employed, and 
you wish to follow normal completion 

(X'7F') of the Read Connect operation with 
a READ Continue macro. ) 

If the received sequence does not match 
any of the authorized ID-ENQ sequences (or 
ENQ alone) , BTAM determines whether ENQ 
alone, an invalid sequence, or DLE EOT was 
received. 

If ENQ alone was received, BTAM posts 
normal completion (X'7F* ). 

If an invalid sequence was received, 
BTAM retries the Read ID ENQ command up to 
seven times. If all retries are unsuccess- 
ful, BTAM disconnects the line, turns on 
bit 3 of DECFLAGS, and posts a completion 
code of X'7F* (normal completion). If DLE 
EOT was received, BTAM turns on bit 1 of 
DECFLAGS and posts normal completion 
(X'7F'). 

If a timeout occurs on the Read ID ENQ 
command, BTAM disconnects the line and 
restarts the channel program at the Enable 
command. 

This macro is used only when the 
expanded ID verification facility is to be 
employed. The entry operand of the READ 
Connect macro must specify the name of an 
answering list of the SWLST format, as 
defined by a DFTRMLST macro. The channel 
program generated for the READ Connect 
macro is : 



READ Connect is used to allow initial con- 
tact to be established with a remote BSC 
station and to perform a specific action 
based on the ID sequence, if any, received 
from the remote station. The possible 
actions include reading message blocks, 
disconnecting the line, and immediately 
returning control to the user program. 

After the sequence is received, BTAM 
analyzes it. If the sequence matches one 
of the authorized sequences in the answer- 
ing list, BTAM places the address of the 
entry containing the matching ID-ENQ 
sequence (or ENQ alone) in the first full- 
word of the list. BTAM then examines the 
control byte of that list entry to deter- 
mine which action to take. 



1. 


Enable 




2. 


Read 


ID ENQ (or ENQ alone) 


3. 


Write 


ID ACK-0 (or ACK-0 alone) 


4. 


Read 


Text 


5. 


Write 


DLE EOT 


6. 


Disable 





7 . TIC to Enable command 



READ Connect with Tone (TCW) (Expanded ID 

Verifica tio n) ( Using Automatic Answering 

List ~ SWLST) 



READ Connect with Tone functions the same 
as READ Connect (TO, as described above, 
except that the channel program contains an 
added command, Write Data Tone Characters. 
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This macro is for use on a line equipped 
with an automatic answering unit that does 
not automatically send a data tone upon 
receiving a call. Upon completion of the 
Enable command, which occurs when a call is 
received, the channel program sends a user- 
specified character sequence that the 
operator at the calling station hears as an 
audible tone. 

The character sequence that constitutes 
the tone must be coded in the user program. 
The address and the length of the tone 
character sequence must be specified in the 
outarea and outlength operands of the READ 
TCW macro instruction. 

The data tone should be about three 
seconds long. To obtain a tone of this 
duration requires a length of about 255 
characters, for a 600 bits-per- second com- 
munications line, or about 450 characters 
for a 1200 bps line. A sequence of X*FF* 
is recommended for the data tone. (Notice 
that the address and length of the tone 
sequence are specified in the READ macro, 
not in the DFTRMLST macro, as is the case 
for manual answering, without expanded ID 
verification. ) 

The channel program generated for the 
READ Connect with Tone macro is : 



1. Enable 

2. Write 

3. Read 
H. Write 

5. Read 

6. Write 

7. Disable 
8. 



Data Tone Characters 

ID ENQ (or ENQ alone) 

ID ACK-0 (or ACK-0 alone) 

Text 

DLE EOT 



This macro instruction may be issued for 
any type of remote BSC station except an 
IBM 2780 using Transcode; however, the IBM 
System/3, 1800, 2715, and 2770 ignore the 
leading graphics characters that precede 
the response. That is, these characters 
are neither received into core storage 
(2715) or terminal buffer, nor passed to 
any output device attached to the station. 



READ Repeat (TP) 

READ Repeat writes a negative response to 
the remote station and reads a message 
block. 



1. 
2. 



Write NAK 
Read Text 



TIC to Enable command 



READ Repeat with Leading Graphics (TPL) 

READ Repeat with Leading Graphics functions 
the same as a Read Repeat, but precedes the 
negative response with leading graphics. 

1. Write Leading Graphics 

2. Write NAK 

3. Read Text 

This macro instruction may be issued for 
any type of remote BSC station except an 
IBM 2780 using Transcode; however, the IBM 
System/3, 1800, 2715, and 2770 ignore the 
leading graphics characters that precede 
the response. That is, these characters 
are neither received into core storage 
(2715) or terminal buffer, nor passed to 
any output device attached to the station. 



READ Continue (TT) 



READ Inquiry (TQ) 



READ Continue writes a positive response to 
the remote station and reads a message 
block. 

1. Write ACK-0 or ACK-1 

2. Read Text 



READ Inquiry reads an ENQ from the remote 
station. 

1. Read ENQ 



Note : The text received is either message 
text or an EOT. 



READ interrupt (TRV) 



READ Continue with Leading Graphics (TTL) 



READ Continue with leading graphics func- 
tions the same as a Read Continue, but pre- 
cedes the positive response with leading 
graphics. 

1. Write Leading Graphics 

2. Write ACK-0 or ACK-1 

3. Read Text 



READ Interrupt writes a Reverse Interrupt 
(RVI) sequence to indicate to the remote 
station that the central computer wishes 
temporarily to stop receiving message text; 
then issues a Read Text command, which will 
receive from the remote station either an 
EOT, signifying end of text transmission, 
or further text. The RVI sequence is 
equivalent to, and is recognized by the 
remote station as, the proper alternating 
positive acknowledgment (ACK-0 or ACK^l) . 
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READ Interrupt is for use in lieu of a 
READ Continue. 

1. Write RVI sequence 

2. Read Text 

Programming Notes ; 

1. Receipt of the RVI sequence does not 
force the remote station to break off 
message transmission. It is only an 
indication that the central computer 
wishes to stop receiving . The remote 
station may continue sending message 
text until such time as it wishes to 
yield to the central computer by send- 
ing EOT. The program in the central 
computer should therefore be arranged 
to issue READ Continue macros until 
the remote station does respond with 
EOT instead of text. 

2. The READ Interrupt macro must not be 
issued more than once during a trans- 
mission, as incorrect alternating 
acknowledgments may result . 



UpTlTT? M7V/--D/^i TMCTDITPTTAMC 



WRITE Initial (TI) 

(Using Automatic Calling List — ESCLST) 



station and a response. If the identifica- 
tion matches the identification contained 
in the terminal list, and the response is 
positive (ACK-0), the operation writes mes- 
sage text and the ending characters DLE ETX 
to the remote station, and reads a 
response. If the identifications do not 
matcto, the Write operation ends with com- 
mand (3) and is posted as complete. 



1. 
2. 
3. 
i*. 
5. 
6. 



Dial 

Write 

Read 

Write 

Write 

Read 



Dial digits 

ID ENQ 

ID ACK-0 

Text 

DLE ETX 

Response 



Programming Note : This macro instruction 
should not be issued for an IBM 2770 or 
2780 on a point-to-point line if the 2770 
or 2780 requires component selection 
characters in the message text. 1 The reason 
is that when operating in transparent mode, 
the 2770 and 27 80 do not recognize com- 
ponent selection characters within message 
text. 

If both component selection and trans- 
parent message text transmission are 
desired, the component selection characters 
should be sent in a separate message by a 
Write Initial operation, followed by a 
Write TTVX or Write TTX (or TTE) operation 
to send the transparent text. 



WRITE Initial calls a remote station, 
writes the central computer's identifica- 
tion sequence and ENQ, and reads the iden- 
tification sequence of the remote station 
and a response. If the identification 
matches the identification contained in the 
terminal list, and the response is positive 
(ACK-0) , the operation writes message text 
to the remote station and reads a response. 
If the identifications do not match, the 
Write operation ends with command (3) and 
is posted as complete. 

1. Dial Dial digits 

2. Write ID ENQ 

3. Read ID ACK-0 

4. Write Text 

5. Read Response 

Programming Note : This macro instruction 
cannot be used to send message text to an 
IBM 2715, because text transmission to this 
type of station must always be in trans- 
parent mode. 



WRITE Initial Transparent (TIX) 
(Using Automatic Calling List -- 



BSCLST) 



WRITE Initial Transparent calls a remote 
station, writes the central computer's 
identification sequence and ENQ, and reads 
the identification sequence of the remote 



WRITE Initial Transparent Block (TIE) 



WRITE Initial Transparent Block calls a 
remote station, writes the central compu- 
ter's identification sequence and ENQ, and 
reads the identification sequence of the 
remote station and a response. If the 
identification matches the identification 
contained in the terminal list, and the 
response is positive (ACK-0) , the operation 
writes message text, and the ending charac- 
ters DLE ETB to the remote station, and 
reads a response. If the identifications 
do not match, the Write operation ends with 
command (3) and is posted as complete. 

1. Dial Dial digits 

2. Write ID ENQ 

3. Read ID ACK-0 

4. Write Text 



^-Component selection characters are 
required unless the Job Select switch 
(2770) or Mode switch (2780) is set for 
printing or punching (or some other output 
device, for 2770), in which case the mes- 
sage is printed or punched, regardless of 
the component specified by these 
characters. 
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5. Write 

6. Read 



DLE FTB 
Response 



Programming Note ; See programming note 
under Write TIX macro instruction. 



WRITE Initial Conversational (TIV) 
(Using Automatic Calling List — BSCLST) 



WRITS Initial Conversation calls a remote 
station, writes the central computer's 
identification sequence and ENQ, and reads 
the identification sequence of the remote 
station and a response. If the identifica- 
tion matches the identification contained 
in the terminal list, and the response is 
positive (ACK-0) , the operation writes mes- 
sage text to the remote station and reads a 
response, which may be the first two 
characters of a message block, an alternat- 
ing acknowledgment, or NAK. If the 
response is message text, the remaining 
text is read; if not, the operation is 
posted complete. 

If the identifications do not match, the 
Write operation ends with command (3) and 
is posted as complete. 



1. 


Dial 


Dial digits 


2. 


Write 


ID ENQ 


3. 


Read 


ID ACK-0 


4. 


Write 


Text 


5. 


Read 


Response 


6. 


Read 


Text 



Programming Notes : 



1. This macro instruction cannot be used 
to send message text to an IBM 2715, 
because text transmission to this type 
of station must always be in trans- 
parent mode. 

2. This macro instruction may be used for 
all other types of remote BSC sta- 
tions; however, the IBM 18 00 and 2770 
do not transmit text as a response to 
text received from the central comput- 
er; they return the usual alternating 
acknowledgment (ACK-0 or ACK-1). 

WRITE Initial Conversational Transparent 

(TIVX) 

(Using Automatic Calling List — BSCLST) 



WRITE Initial Conversational Transparent 
calls a remote station, writes the central 
computer's identification sequence and ENQ, 
and reads the identification sequence of 
the remote station and a response. If the 



identification matches the identification 
contained in the terminal list, and the 
response is positive (ACK-0), the operation 
writes message text and the ending charac- 
ters DLE ETX to the remote station and 
reads a response, which may be the first 
two characters of a message block, an 
alternating acknowledgment, or NAK. If the 
response is message text, the remaining 
text is read; if not, the operation is 
posted complete. 

If the identifications do not match, the 
Write operation ends with command (3) and 
is posted as complete. 



1. 


Dial 


Dial digits 


2. 


Write 


ID ENQ 


3. 


Read 


ID ACK-0 


4. 


Write 


Text 


5. 


Write 


DLE ETX 


6. 


Read 


Response 


7. 


Read 


Text 



Programming Notes; 



1. This macro instruction may be used for 
all types of remote BSC stations. 
However, the IBM 1800, 2715, and 2770 
do not transmit text as a response to 
text received from the central comput- 
er; they return the usual alternating 
acknowledgment (ACK-0 or ACK-1) . 

2. This macro instruction should not be 
issued for an IBM 2770 or 2780 on a 
point-to-point line if the 2770 or 
278 requires component selection 
characters in the message text. 1 

If both component selection and trans- 
parent message text transmission are 
desired, the component selection characters 
should be sent in a separate message by a 
Write Initial operation, followed by a 
Write Continue (TT) or Write Continue Tran- 
sparent (TTX) operation to send the trans- 
parent text. 



WRITE Connect (TO 



(Using Manual Calling List — WTLIST) 

A WRITE Connect macro is for use where 
calls to remote stations must be initiated 



^-Component selection characters are 
required unless the JOB Select switch 
(2770) or Mode switch (2780) is set for 
printing or punching (or some other output 
device, for 2770), in which case the mes- 
sage is printed or punched, regardless of 
the component specified by these 
characters. 
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manually by the console operator rather 
than by program control. Operation is as 
follows. 

The channel program first enables the 
line so that calls may be initiated. After 
issuing the WRITE Connect macro, the pro- 
gram must inform the console operator (as 
by a WTO macro) to dial the remote station. 
The operator dials the call, and upon hear- 
ing a data tone from the remote station, 
places the data set (modem) in data mode. 
(This terminates the Enable command.) 



If the response from the remote station 
is an ID NAK sequence, the ID portion of 
which matches the ID portion of one of the 
authorized ID ACK-0 sequences, BTAM places 
the address of the entry containing the 
matching ID in the first fullword of the 
list, then examines the control byte of 
that entry. If the control byte is 0, BTAM 
turns on bit 1 of DECFLAGS and posts normal 
completion (X'VF* ). If the control byte is 
1, BTAM retries the Write ID ENQ (or ENQ 
alone) command. 



The channel program then writes to the 
remote station the identification sequence 
of the central computer, then reads the 
identification sequence of the remote 
station. 

If the received sequence matches the 
expected sequence, the operation is posted 
complete (without error) in the event con- 
trol block. If the sequences do not match, 
the operation is posted 
complete-with-error . 

This macro does not write message text to 
the remote station; one or more WRITE Con- 
tinue macros should be issued for this pur- 
pose following the WRITE Connect macro. 



1 . Enable 

2. Write ID ENQ 

3. Read ID ACK-0 



WRITE Connect (TC) (Expanded ID 
Verification) (Using Automatic or Manual 
Calling List — SWLST) 



WRITE Connect is used to originate a call 
to a remote BSC station, either through 
program-initiated (automatic) dialing or 
through manual dialing, and to cause 
exchange of identification sequences (or 
ENQ and ACK-0) between the central computer 
and the remote station. 

The entry operand of the WRITE Connect 
macro must specify the name ,of a calling 
list of the SWLST format, as defined by a 
DFTRMLST macro. If the DFTRMLST macro spe- 
cifies the AD operand, the automatic- 
dialing channel program is generated; if 
DFTRMLST specifies the MD operand, the 
manual dialing channel program is 
generated. 

If the response from the called remote 
station is an ID ACK-0 sequence that 
matches one of the authorized ID ACK-0 
sequences in the calling list, BTAM places 
the address of the entry containing the 
matching ID in the first fullword of the 
list and posts normal completion (X*7F* ). 



If the response from the remote station 
is an invalid ID sequence (i.e., one that 
does not match any of the authorized ID 
sequences in the calling list) , BTAM 
retries the Write ID ENQ (or ENQ alone) 
command. 



In the two foregoing situations in which 
BTAM retries the Write ID ENQ (or ENQ 
alone) command, the maximum number of 
retries is seven. 



If all retries are unsuccessful, and a 
valid ID NAK sequence was received on the 
last retry, BTAM turns on bit 1 of DECFLAGS 
and posts normal completion (X'7F*). If 
all retries are unsuccessful, and an inval- 
id ID sequence was received on the last 
retry, BTAM breaks the line connection, 
turns on bit 3 of DECFLAGS, and posts norm- 
al completion (X*7F* ). 

If the response from the remote station 
is ACK-0 (with no preceding ID), BTAM posts 
normal completion (X*7F" ). If the response 
is NAK (with no preceding ID), BTAM turns 
on bit 1 of DECFLAGS and posts normal com- 
pletion (X'7F f ). If the response is WACK, 
BTAM turns on bits and 1 of DECFLAGS and 
posts normal completion (X'7F*). 

If no response at all is received from 
the remote station, BTAM retries the Write 
ID ENQ (or ENQ alone) command up to seven 
times; if all retries are unsuccessful, 
BTAM breaks the line connection, sets X'01' 
in DECSENSO, and posts a completion code of 
X'41'. 

The channel program for automatic dial- 
ing is: 

1. Dial 

2. Write ID ENQ (or ENQ alone) 

3. Read ID ACK-0 or ID NAK response 



The channel program for manual dialing 



is: 



1. Enable 

2. Write ID ENQ (or ENQ alone) 

3. Read ID ACK-0 or ID NAK response: 
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Programming Note : If the Write Connect 
operation ends with ID NAK, NAK, or WACK 
and you reissue the WRITE Connect macro, 
BTAM starts the channel program at the 
second command (Write ID ENQ) if the line 
connection is still established at the time 
the macro is issued. Otherwise, BTAM 
starts the channel program at the first 
command (Enable or Dial). 



WRITE Continue (TT) 



WRITE Continue writes message text and 
reads a response from the remote station. 

1. Write Text 

2 . Read Response 

Programming Notes : This macro instruction 
cannot be used to send message text to an 
IBM 2715, because text transmission to this 
type of station must always be in trans- 
parent mode. 

WRITE Continue Transparent (TTX) 



WRITE Continue Transparent writes message 
text and the ending characters, DLE ETX, 
that must follow transparent data, and 
reads a response from the remote station. 

1. Write Text 

2. Write DLE ETX 

3. Read Response 



WRITE Continue Transparent Block (TTE) 



Programming Notes 



1. This macro instruction cannot be used 
to send message text to an IBM 2715, 
because text transmission to this type 
of station must always be in trans- 
parent mode. 

2. This macro instruction may be used for 
all other types of remote BSC sta- 
tions; however, the IBM 1800 and 2770 
do not transmit text as a response to 
text received from the central comput- 
er; they return the usual alternating 
acknowledgment (ACK-0 or ACK-1) . 

WRITE Continue Conversational Transparent 
(TTVX) 



WRITE Continue Conversational Transparent 
writes message text and the ending charac- 
ters, DLE ETX, and reads a response, which 
may be the first two characters of a mes- 
sage block, an alternating acknowledgment, 
or NAK. If the response is message text, 
the remaining text is read; if not, the 
operation is posted complete. 

1. Write Text 

2. Write DLE ETX 

3. Read Response 

4. Read Text 

Programming Note : This macro instruction 
may be used for all types of remote BSC 
stations. However, the IBM 1800,, 2715, and 
2770 do not transmit text as a response to 
text received from the central computer; 
they return the usual alternating 
acknowledgement (ACK-0 or ACK-1). 



WRITE Continue Transparent Block writes 
message text and the ending characters, DLE 
ETB, that must follow transparent data, and 
reads a response from the remote station. 



1. Write 

2. Write 

3 . Read 



Text 
DLE ETB 
Response 



WRITE Continue Conversational (TTV) 



WRITE Continue Conversational writes mes- 
sage text and reads a response, which may 
be the first two characters of a message 
block, an alternating acknowledgment, or 
NAK. If the response is message text, the 
remaining text is read; if not, the opera- 
tion is posted complete. 

1. Write Text 

2. Read Response 

3. Read Text 



WRITE Inquiry (TQ) 



WRITE Inquiry writes an ENQ and reads 
a response. This macro is for requesting 
the remote station to transmit its last 
response (ACK-0, ACK-1, NAK, or a 
conversational jtext reply) . 

1. Write ENQ 

2 . Read Response 

3. Read Text 



WRITE Wait-before-Transmit (TW) 



WRITE Wait-before-Transmit writes a WACK 
sequence to a remote station and reads an 
ENQ. The purpose of this macro is to tem- 
porarily stop the remote computer from 
sending. You may issue it in place of READ 
Continue or READ Repeat, or in response to 
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a conversational-type Write operation 
executed by the remote computer. The only 
valid responses to WACK are ENQ and EOT. 
You may issue Write TW repeatedly for as 
long as necessary to delay your regular 
response. 



1. Write WACK 

2. Read ENQ 



WRITE Break (TB) 



WRITE Break sends a Disable command to the 
TCU, causing the TCU to break the switched 
line connection. This macro does not 
inform the remote station that the connec- 
tion is to be broken. 



Disable 



WRITE Reset (TR) 

WRITE Reset writes an EOT to indicate to 
the remote station that the central comput- 
er has no more message text to send, and 
reads a response. This macro is for giving 
the remote station the opportunity to 
transmit. 



WRITE Disconnect (TD) 

WRITE Disconnect writes DLE EOT, indicating 
to the remote station that the line connec- 
tion is to be broken, then sends a Disable 
command to the TCU, causing the TCU to 
break the switched line connection. 



1 . Write EOT 

2. Read Response 



1. Write DLE EOT 

2. Disable 
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LOCAL_HMB ANP W BITB OPEB ATIONS 



IOC.AJ, IBJ 3220 DISPLAY SYSTE M 

For information about using BEAD and WRITE 
macro instructions for the local 3270 
display system, see the section "IBM 3270 
Display System - Programming 
Considerations. " 



BEAD MACBO INSTRUCTIONS 

BEAD Initial,, (TX) 

BEAD Initial reads modified fields from 
a local 3270 display station after an 
attention interruption has been generated 
by the display station operator. 



1. 
2. 



Select command 

Bead modified command 



BEAD Modif ied (TM) 

BEAD Modified reads modified fields from 
a local 3270 device independently of 
action by the display station operator. 

1. Select command 

2. Bead modified command 

BEAD- Modif ie d fr o m Position , (TMP) 

BEAD modified from Position reads modified 
fields from a local 3270 device beginning 
at a specified location in the buffer. 

1. Select command 

2. Write command (to set buffer address) 

3. Bead modified command 



BEAD Buffer reads the entire buffer of 
a local 3270 device. 



1. Select command 

2. Read buffer command 

BEAD Buffer from Position (TBP) 

BEAD Buffer from Position reads the entire 
buffer of a local 3270 device beginning 
at a specified location. 



1. Select command 

2. Write command (to set buffer address) 

3. Bead buffer command 



WRITE MACTO INSTBOCTIONS 

Write Initi al /TI) 

WRITE Initial writes a message to a local 
3270 device. 

1. Select command 

2. Write command 

WRITE Erase (TS) 

WRITE Erase clears the buffer of a local 
3270 device to nulls (binary zeros) and 
then writes a message to the device. 

1. Erase/write command 

WRITE Unportected Erase (TUS) 

WRITE Unprotected Erase clears all 
unprotected fields in the buffer of a 
local 3270 device to nulls (binary zeros) . 

1. Erase all unprotected command 

2. NOP 
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PROGRAMMING CONSIDERATIONS FOR REMOTE COMPUTERS 



This chapter contains miscellaneous pro- 
gramming considerations for communicating 
between a central computer and any of the 
remote computers supported by BTAM as 
remote stations: IBM System/360 (including 
Model 20) , IBM System/3, IBM 1130, and IBM 
1800. These considerations are in addition 
to those shown under General Information in 
the BSC Read and Write Operations chapter 
and under the major sections within that 
chapter covering the three types of line 
configuration (nonswitched point-to-point, 
nonswitched multipoint, and switched 
point-to-point) . 

Except where noted, these considerations 
apply equally to all of the foregoing types 
of remote computers. 



Transmission over Nonswitched 



cally resends the ENQ character, and the 
computer that is to defer executes a Read 
command (or equivalent) in order to listen 
for the ENQ sent by the computer retaining 
control. Transmission begins when one com- 
puter successfully sends the ENQ character 
to the other; that is, receives an ACK-0 
(positive acknowledgment). Thus, the 
direction of transmission is established by 
which computer sends the ENQ. 

When the deferring computer is running 
under BTAM, and contention occurs, BTAM 
immediately ends the operation that sent 
the ENQ character and posts the operation 
complete-with-error (X'41" in the DECSDECB 
field of the DECB) . When the computer 
retaining control is running under BTAM, 
and contention occurs, BTAM automatically 
restarts the operation to resend the ENQ 
character. 



Point-to-Point Line 



Initial contact between the central comput- 
er and the remote computer over a non- 
switched point-to-point line is on a con- 
tention basis. That is, the line remains 
idle until either of the computers sends an 
ENQ character to the other computer, signi- 
fying its intent to begin a transmission. 
Sending the ENQ character is called bidding 
for the line. 

Ordinarily, both computers will not 
simultaneously bid for the line, on rare 
occasions, however, bidding will be simul- 
taneous, when this happens, one computer 
must defer to the other. The control pro- 
grams in the two computers must be coor- 
dinated so that this deferral takes place. 

In BTAM, you accomplish this by coding 
MODE=CNTRL in the DCB macro for the line, 
if you wish the central computer (or the 
remote computer, if it also is running 
under BTAM) to retain control. Conversely, 
you omit MODE=CNTRL if you wish to defer to 
the other computer. The opposite choice 
must then be made for the other computer. 
Assume that both computers are running 
under BTAM. In one BTAM program, MODE= 
CNTRL would be specified; in the other it 
would be omitted. If the remote computer 
is running under a control program other 
than BTAM, the equivalent action must be 
taken to assure coordination between the 
two computers. 

When this coordination is done, the com- 
puter that is to retain control automat i- 



Transmission over Nonswitched Multipoint 
Line 



(Not applicable for System/360 except Model 
20) 

Communication between the central computer 
and a remote computer over a nonswitched 
multipoint line begins when the central 
computer places the line in control mode by 
sending an EOT character, then initiates 
contact with the desired computer by send- 
ing that computer's polling or addressing 
sequence. 

Transmission from remote computer to 
central computer is initiated when BTAM, in 
the central computer, executes an initial- 
type READ macro instruction. This causes 
the polling sequences for each of the 
remote computers to be sent automatically, 
in turn, until either the last computer 
represented in the polling list is polled 
(for an open- type list) or until the last 
computer represented in the polling list is 
polled following execution of a RESETPL 
macro for the line (for a wraparound-type 
list) . 

Transmission from central computer to 
remote computer is initiated when BTAM, in 
the central computer, executes an initial- 
type WRITE macro instruction. This causes 
the addressing sequence for the desired 
remote computer to be sent; the WRITE macro 
specifies the addressing list entry repre- 
senting the desired remote computer. 
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The details of the polling and address- 
ing functions are discussed under BSC Non- 
switched Multipoint Operation in the BSC 
Read and Write Operations chapter. 

The polling and addressing sequences are 
specified identically for all types of 
remote computers. That is, up to seven 
polling or addressing characters may be 
sent. There is, however, a distinction in 
the handling of these characters by the 
System/360 Model 20 and 1800 as opposed to 
the System/3 and the 1130. The System/360 
Model 20 or 1800 hardware itself responds 
to the first two characters of the polling 
sequence. Any further characters, if any, 
in the sequence are merely received by the 
user program; the hardware does not reco- 
gnize them as polling characters. For the 
System/3 and the 1130, however, there is no 
hardware-generated response to the polling 
or addressing sequence; all of the charac- 
ters are received by the program, which 
decides what response to return to the 
central computer. 

As explained under the General Informa- 
tion section of the BSC Read and Write 
Operations chapter, double addressing must 
be used for the System/360, System/3, and 
1800; that is, the first two polling or ad- 
dressing characters must be identical. 
Double addressing, though not required for 
the 1130, is advisable for the reasons men- 
tioned in the General Information section. 
For the System/360 Model 20 and the 1800, 
the first two polling characters are set in 
the hardware at installation time; for the 
System/3 and the 1130, polling characters 
are specified in the program. 



nons witched point-to-point (contention) 
system. The called computer, upon answer- 
ing and successfully receiving the ENQ, 
returns an ACK-0 sequence (positive acknow- 
ledgment) . Unlike a contention system, 
however, you may arrange for either the ENQ 
or the ACK-0, or both, to be preceded by 
from one to 15 identification characters. 
This allows the control program at the com- 
puter receiving the ID characters to verify 
that the computer sending those characters 
is authorized to communicate with it. In 
BTAM, these ID characters are user-defined 
in the terminal list referred to by the 
macro instruction that initiates the trans- 
mission. The action BTAM is to take if an 
invalid ID sequence or a negative 
acknowledgment is received may also be 
user-specified. 

The various alternatives to be used are 
determined by which type of READ or WRITE 
macro instruction you issue to initiate the 
transmission and by which type of terminal 
list you provide for use by that macro. 
See the explanations in the BSC Switched 
Point-to-Point Operation section of the BSC 
Read and Write Operations chapter. Table 8 
summarizes the choices. 



System/3 Notes 



Data Formats : IBM System/3 RPG II support 
uses the following formats for transmission 
of data. These formats must be followed 
when sending data to System/3 from a CPU. 

- Non-transparent, non-ITB (End of Interme- 
diate Transmission Character) : 



Transmission over Switched Point-to-Point 
Line 



Communication between the central computer 
and a remote computer via the switched 
telephone network begins when either com- 
puter calls the other. The call may be 
made manually by the computer operator or 
it may be made automatically, where the 
transmission control unit at the computer 
is equipped with an automatic calling unit. 
Similarly, the operator at the called com- 
puter may answer manually or the TCU may 
answer automatically if it is equipped with 
an automatic answering unit. 

BTAM provides the choice of calling a 
distant computer automatically or manually, 
and of answering calls from a distant com- 
puter automatically or manually. 

Once the line connection is established, 
the calling computer sends an ENQ character 
to bid for use of the line, as is done in a 



STX-data-ETX or ETB 

- Non-transparent, ITB: 

STX-data-ITB-data-ITB-data-ETX or ETB 

- Transparent, non-ITB: 

DLE-STX-data-ETX or ETB 

Data can be either blocked or unblocked but 
must be of fixed length. Fixed record 
length and unblocked implies non-ITB mode 
and requires that all data between ITBs be 
of the same length. 

Conversational Mode ; Only one response to 
conversational data is allowed by System/ 3. 
To maintain proper line discipline. System/ 
3 will send or accept a NULL message (STX- 
ETX sequence), in lieu of a data transfer 
following a conversational response. 

Examples of situations in which this is 
necessary follow: 
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I. 



System/360 Point-to-Point Contention 
BTAM Program (Initiate a Bead) 



READ TI 



1. 
2. 
3. 

4. 



Prepare 
Read ENQ 
Write ACK-0 
Read text 



WRITE TIV 

1. Write ENQ 

2. Read response 

3. Write text 

4. Read text 

READ TT 

5. Write ACK-1 

6. Read NULL message (STX-ETX) 



WRITE TT 

5. Write text 

6. Read response 

WRITE TV 



WR1 


:te tv 


7. 


Write text 


8. 


Read text 



8. 



Write NULL message (STX-ETX 

sequence) 

Read text 



After the conversational transfer of data 
(items 4 and 5), the BTAM programmer must 
write a null message before continuing. If 
item 7 were a Write text, the System/3 
would reply with an EOT. 

II. System/360 Point-to-Point Contention 
BTAM Program (Initiate a Write) 



After the conversational transfer of data 
(items 3 and 4), the BTAM programmer must 
realize that the System/ 3 will be sending a 
null message (item 6) instead of normal 
data. 



WACK and TTD Responses : System/3 will 
transmit WACK or TTD at two second inter- 
vals during a wait time specified by an RPG 
programmer (default of 180 seconds) . An 
EOT (Disc) sequence is sent after the 
elapsed time. 
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IBM 278 DATA TRANSMISSION TERMINAL — PROGRAMMING CONSIDERATIONS 



INITIATING TRANSMISSION TO AN IBM 2780 



Transmission over Nonswitched 



Point-to-Point Line 



Initial contact between the central comput- 
er and an IBM 2780 over a nonswitched 
point-to-point line is on a contention 
basis. That is, the line remains idle 
until either the computer or the 27 80 sends 
an ENQ character to the other, signifying 
its intent to begin a transmission. Send- 
ing the ENQ character is called bidding for 
the line. Ordinarily, the central computer 
and the 2780 will not simultaneously bid 
for the line. On rare occasions, however, 
bidding will be simultaneous. when this 
happens, the central computer must defer to 
the 2780. To cause this to happen, do not 
code MODE=CNTRL in the DCB macro for the 
line, as doing so would cause BTAM to 
retain control. 

When contention occurs, that is, both 
computer and 2780 send ENQ simultaneously, 
BTAM turns on bit 3 in the DECFLAGS field 
of the DECB for the line, posts the Write 
operation that sent the ENQ complete- wit h- 
error (X'41* in DECSDECB) , and returns con- 
trol to the user program. The user program 
should immediately issue an initial-type 
READ macro; this will cause BTAM to detect 
the next ENQ character sent by the 2780, 
respond by sending ACK-0 , and then read 
message text from the 2780. 



Transmission over Nonswitched Multipoint 
Line 



sented in the list is polled following 
execution of a RESETPL macro for the line 
(for a wraparound list). 

Transmission from central computer to 
2780 is initiated when BTAM executes an 
initial- type WRITE macro instruction. This 
causes the addressing sequence for the 
desired 2780 to be sent; the WRITE macro 
specifies the addressing list entry repre- 
senting the 278 0. 

The details of the polling and adressing 
functions are discussed under BSC Non- 
switched Multipoint Operation in the BSC 
Read and Write Operations chapter. 

The polling sequence for an IBM 2780 is 
always 

x 6 ENQ 

where the x may be any uppercase or lower- 

id(3r sss 



... „~j ^.~. 



Ccitie «juciracue.L use<a as 



■ v, c ^ 4- -. 4- -; ^ ,-, 



of the 2780. This address is established 
at the time the 2780 is installed. The 
second character is always a 6 to indicate 
the card reader. 

The addressing sequence for an IBM 2780 
is always 

x 3 ENQ (to address the printer) or 

x 4 ENQ (to address the punch) 

where the x is the station address, as 
described for the polling sequence. 

Polling and addressing examples are 
shown in Figure 22. 



Communication between the central computer 
and an IBM 2780 over a nonswitched multi- 
point line begins when the central computer 
places the line in control mode by sending 
an EOT character, then initiates contact 
with the 2780 by sending the addressing 
sequence for that 2780 or by polling the 
line to which the 2780 is connected. 

Transmission from 2780 to central com- 
puter is initiated when BTAM executes an 
initial-type READ macro instruction. This 
causes the polling sequences for each of 
the remote 2780s to be sent automatically, 
in turn, until either the last 2780 repre- 
sented in the list is polled (for an open- 
type list) or until the last 2780 repre- 



Transmission over Switched Point-to-Point 
Line 



Communication between the central computer 
and an IBM 2780 via the switched telephone 
network begins when either the computer or 
the 2780 calls the other. The call may be 
made manually by the computer or terminal 
operator or it may be made automatically, 
where the 2780 or the transmission control 
unit at the computer is equipped with an 
automatic calling unit. Similarly, the 
operator at the computer or the 2780 may 
answer manually or the computer or 2780 may 
answer automatically if it is equipped with 
an automatic answering unit. 
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Example 1: Card reader polled 

Computer EOT. ,A6 ENQ. 

Sends: 



2780 
Sends: 




Computer Places Line 
in Control Mode 



Polling 
Sequence 



ACK-1 



ACK-0 



.STX-Text-US-Text-ETB, 



Positive Response to Polling 
(First Message Block) 



, STX-Text-US-Texf-ETB, 



Second' Message Block 
from Card Reader 



STX- 



Other 
Message Blocks 



Example 2: Printer addressed 



Computer 
Sends: 



2780 
Responds: 



.EOT. 




A3 ENQ. STX-Text-US ESC S-Text-ETB 



Computer Places Line 
in Control Mode 



Printer 
Addressed 



Positive 
Response 

Example 3: Card Punch addressed 

Computer .A4 ENQ. DLE STX.-Texf-DLE ETB 



Sends: 




Print and 
Single Space 



Print and 
Double Space 



i 



ACK-0 



Print and 
Single Space 



2780 
Responds: 




DLE STX-Text-DLE ETX 




EOT 



Line Placed in 
Control Mode 



.A3 ENQ, 



Punch Addressed 
(Line in Control 
Mode Already) 



Positive Response 



ACK-1 



80-character records 
to be punched 



ACK-0 



Printer 
Addressed 



Figure 22. Multipoint Polling/Addressing Operations for 2780 



Once the, line connection is established, 
the calling station (computer or 27 80) 
sends an ENQ character to bid for use of 
the line, as is done in a nonswitched 
point-to-point (contention) system. The 
called station, upon answering and success- 
fully receiving the ENQ, returns an ACK-0 
sequence (positive acknowledgment) . Unlike 
a contention system, however, you may 
arrange for either the ENQ or the ACK-0, or 
both, to be preceded by from one to 15 
identification characters. This allows the 
2780 operator or BTAM to verify that the 
station sending those characters is 
authorized to communicate with it. In the 
2780 these characters, like the station 
address, are established at the time the 
2780 is installed. In BTAM, these charac- 
ters are user-defined in the terminal list 
referred to by the macro instruction that 
initiates the transmission. The action 
BTAM is to take if an invalid ID sequence 
or a negative acknowledgment is received 
may also be user-specified. 

The various alternatives to be used are 
determined by which type of READ or WRITE 
macro instruction you issue to initiate the 
transmission and by which type of terminal 
list you provide for use by that macro. 
See the explanations in the BSC Switched 
Point-to-Point Operation section of the BSC 



Read and Write Operations chapter. Table 8 
summarizes the choices. 



END-TO-END CONTROL CHARACTERS 



In the character set of the IBM 2780 are 
four characters that provide secondary end- 
to- end control functions required by the 
printer, card reader, and card punch of the 
2780. 

One of these characters, BEL, is not 
used when the 2780 communicates with the 
central computer. (Its function in 
terminal-to-terminal operation is to cause 
the audible alarm to sound.) 

Another end-to-end control character is 
EM (end-of-medium) . When the card reader 
detects this character punched in a card it 
is currently reading, the reader ejects the 
card. When the EM character is sent to the 
card punch, it causes the punch to eject 
the card. These functions occur, however, 
only when the EM appears in nontransparent 
•text. If it appears in transparent text, 
it is ignored. Regardless of whether it is 
in nontransparent or transparent text, 
however, it is punched in the card, when 
sent to the card punch. 
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The remaining two end-to-end characters 
are ESC (Escape) and HT (Horizontal Tab). 
The ESC character is used in component 
selection (except multipoint lines) , in 
vertical forms control, and in horizontal 
formatting. The HT character is used in 
horizontal formatting, when the 27 8 is 
equipped with the Printer Horizontal Format 
Control feature. 



The use of the ESC and HT characters is 
discussed under the functions with which 
they are associated. 



COMPONENT SELECTION 



In communicating with an IBM 27 80 over a 
switched or nonswitched point-to-point line 
(but not a multipoint line) , you must per- 
form component selection when transmitting 
messages to the 2780, if the Mode switch at 
the 2780 is set at Transmit or Receive. If 
the Mode switch is set to Print or Punch, 
the 2/80 ignores component selection mes- 
sages; all messages it receives are auto- 
matically printed or punched. The Mode 
switch is manually set by the 2780 
operator. 

Component selection is accomplished by 
sending a nontransparent message beginning 
with a two-character escape sequence. To 
select the punch, begin the message (fol- 
lowing tne STX character) with ESC 4 . To 
select the printer, begin the message 
(after STX) with any one of the vertical 
forms control escape sequences (e.g., ESC 
/, ESC A, ESC B) . Thus, the vertical forms 
control escape sequences (discussed below) 
perform the dual function of selecting the 
printer and controlling the forms motion 
for the records in which they appear. 

Once a component is selected, you need 
not reselect it in successive records to be 
sent to that component. 

Because the 2780 recognizes component 
selection escape sequences only in nontran- 
sparent messages it receives, the first 
message, and any subsequent messages con- 
taining component selection sequences, must 
always be in nontransparent mode. Inter- 
vening messages can be in transparent mode. 
Figure 23 illustrates the use of component 
selection sequences. 



Nonswitched Point-to-Point Line 



When the 2780 finishes sending messages to 
the central computer, it transmits ETX (or 
DLE ETX) . The computer responds to this 
with a positive acknowledgment (ACK-0 or 
ACK-1) if it detected no errors. Upon 
receiving the positive acknowledgment, the 
2780 sends an EOT to the computer. 

When the 278 is equipped with the Auto- 
matic Turnaround feature, the card punch 
automatically enters ready status after the 
card reader reads a blank card. This per- 
mits the computer, upon receiving EOT, to 
immediately bid for the line (by sending 
ENQ) and select the punch. Without this 
feature, selection of the punch following a 
card reader operation requires operator 
intervention. Automatic selection of the 
printer, however, does not require the pre- 
sence of the Automatic Turnaround feature. 



Switched Point-to-Point Line 



disconnect signal (DLE EOT) to the central 
computer; it thus lets the user program at 
the central computer decide when to break 
the switched line connection after a trans- 
mission. A.s mentioned above, when the 2780 
receives a positive acknowledgment to the 
last message it sends, it returns an EOT to 
the computer. The user program may then 
send the disconnect signal (DLE EOT) or, 
via a WRITE Inquiry macro, bid for use of 
the line. 

When the user program sends an EOT to 
the 2780, the 2780 reacts in one of two 
ways. 

If the card reader is in ready status, 
the 2780 bids for use of the line by send- 
ing ENQ. Upon receiving the ENQ, BTAM 
posts normal completion (X'7F* in the 
DECSDECB field of the DECB) . The user pro- 
gram may, if it is ready to receive, then 
issue a READ Continue (TT or TTL) macro. 

If the card reader is not in ready sta- 
tus, the 2780 does not respond to the EOT. 
Instead, it continues to monitor the line 
for an ENQ from the computer. If it 
receives no ENQ within about 20 seconds, 
the 2780, if equipped with the Automatic 
Answering feature, will then break the line 
connection (go "on- hook") . 
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Example 1: Nontransparent mode 



Computer 
Sends: 



2780 Replies: 



STX ESC 4 — Text — US — Text — ETB 



STX — Text — US ESC A — Text — ETB 




ACK-0 



Punch 
Selected 



80 -character. records 
to be Punched 



Printer 
Selected 



Print and 
Skip to 1 



Print and 
Single Space 



Example 2: Transparent mode 

Computer 
Sends: 



2780 Replies: 



DLE STX — Text — DLE ETB 



DLE STX — Text — DLE ETB 



ACK-1 



ACK-0 



Figure 23 



80 - character records 
to be punched 

Examples of Component Selection for 2780 



Punch 
Selected 




ACK-1 



Printer 
Selected 



Vertical Forms control 



Vertical positioning of forms at the 2780 
printer is controlled by predefined escape 
sequences. These are shown in Figure 24. 



You must place the sequence in the first 
two character positions of each message 
block (print line record) you send to the 
printer. Exception: If you wish single 
spacing arid, for a switched or nonswitched 
point-to-point line, you require no com- 
ponent selection characters, you may omit 
the escape sequence (ESC /, for EBCDIC, or 
ESC Q, for USASCII) . For double or triple 
spacing, or skipping to a channel of the 
printer carriage control tape, you must 
begin the print line record with the appro- 
priate escape sequence. See Example 2 of 
Figure 22 for examples of escape sequences 
for vertical forms control. 



Escape Sequence 


- 1 




EBCDIC, 


Forms Motion | 


USASCII 


Transcode 


After Printinq | 


ESC Q 


ESC 


/ 


Single space j 


ESC R 


ESC 


s 


Double space | 


ESC S 


ESC 


T 


Triple space | 


ESC A 


ESC 


A 


Skip to ch. 1 | 


ESC B 


ESC 


B 


Skip to ch. 2 | 


ESC C 


ESC 


C 


Skip to ch. 3 | 


ESC D 


ESC 


D 


Skip to ch. 4 | 


ESC E 


ESC 


E 


Skip to ch. 5 | 


ESC F 


ESC 


F 


Skip to ch. 6 | 


ESC G 


ESC 


G 


Skip to ch. 7 | 


ESC H 


ESC 


H 


Skip to ch. 8 | 


(In EBCDIC, the ESC character is iden- | 


tical to 


the PRE (Pref 


ix) character.) | 



Figure 24. Vertical Forms Control Escape 
Sequences 



HORIZONTAL FORMAT CONTROL 



The IBM 2780 may be equipped with the 
Printer Horizontal Formatting Control fea- 
ture. This feature allows the printer of 
the 2780 to receive from the line instruc- 
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tions on arranging across the page the text 
contained in subsequent print line records 
it receives. To tell the 2780 the format 
desired, the user program at the central 
computer must send a format record each 
time the format is to be changed. The for- 
mat record most recently received by the 
printer governs the horizontal format of 
all subsequent print line records. (Send- 
ing a format record is equivalent to set- 
ting the tab stops on a typewriter.) 



Each format record must begin with the 
ESC HT sequence. The record contains other 
HT characters, and intervening SP (space) 
characters such that a HT appears at each 
position of the format record corresponding 
to the print line position where a stop is 
to be made (i.e., a tab stop is to be set), 
with SP characters occupying all other for- 
mat record positions. No characters other 
than HT and SP may appear in the format 
record. It is not necessary to make the 
format record as long as the print line; it 
may end at the last HT character. The 
final character of the format record is an 
ETB. See Figure 25 for an example. 

Format records must always be sent in 
nontransparent mode. 

The 2780 printer is governed by the 
last-received format record until: 

• it receives a new format record 

• power is removed from the terminal 

• a card is read by the card reader 
(EBCDIC and USASCII codes only) 

• a record is received by the card 
punch (EBCDIC and USASCII codes only) 



If HT characters appear in nontrans- 
parent text when no format record is in 
effect, or if it appears in the text beyond 
the format record position corresponding to 
the last stop on the print line, an error 
occurs — overrun of the print line. 

If HT characters appear in transparent 
text, the 2780 does not recognize them as 
end-to-end control characters but treats 
them as text characters. 

If the 2780 is not equipped with the 
Printer Horizontal Formatting Control fea- 
ture, the 2780 does not recognize HT chara- 
cters as end-to-end control characters 
regardless of whether they appear in trans- 
parent or nontransparent text. 



STX ESC HT 


SPSPSPSP HT SPSPSPSPSPSP 


HT 


SPSPSP 


HT 


ETB 




1 


2 3 4 


5 


6 


7 




1. 


Two-character sequence introducing the format 


rec 


ord. 






2. 


Indicates 


print positions 1-4 do not contain a stop. 








3. 


Indicates 


a stop at print position 5. 










4. 


Indicates 


no stop in print positions 6-1 1 . 










5. 


Indicates 


a stop at print position 12. 










6. 


Indicates 


no stop in print positions 13-15. 










7. 


Indicates 


a stop at print position 16. 











Figure 25. Example of a 2780 Format Record 



MULTIPLE RECORD TRANSMISSION 



For terminals using Transcode, the 
printer retains the format record even if 
card reading or punching occurs following 
use of the printer. 

Once a format record has been sent to 
the printer, HT characters are used in sub- 
sequent print line records the user program 
sends to the printer to cause skipping to 
the next stop position on the print line. 
This is equivalent to pressing the Tab key 
of a typewriter. 

Example; Assuming that the printer is 
governed by the format record shown in 
Figure 25, if you wished to print the two 
characters A,B at print positions 1 and 2, 
and the three characters C,D,E at positions 
12, 13, and 11, you would send this print 
line record: 

STX A B HT HT C D E ETB 



The 2780 contains a 400-character buffer 
for receiving data from the communications 
line. This buffer can accommodate one, 
two, or more records depending on whether 
the terminal is equipped with the Multiple 
Record Transmission feature and whether 
transparent or nontransparent mode is used. 



2780 without Multiple Record Transmission 
Feature 



Without the feature, the 2780 can receive 
or send two nontransparent records per 
transmission. The first record is ended by 
the unit separator (US) character (also 
called interchange unit separator — IUS — 
in EBCDIC) which provides the ITB function, 
while the second record ends with ETB or 
ETX. Thus, in nontransparent mode, a 
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single transmission apppears on the line 
as: 



STX text US 

ETX) 



text... ETB (or 



Although the 2780 can send two-record 
transmissions in transparent mode* BTAM can 
send the 2780 only one record per transmis- 
sion. The format is: 



DLE STX ...text... DLE ETB (or DLE ETX) 



When received by the 2780, only the text 
is printed or punched. The US and ETB (or 
ETX) cause the punch to eject the card, but 
are not themselves punched into the card 
(unlike EM (end-of-medium) , which is 
punched into the card) . 



2780 with Multiple Record Transmission 
Feature 



The STX character is mandatory at the 
beginning of the first record, and optional 
at the beginning of the second (after US). 



Upon receiving a two-record transmis- 
sion, the 2780 checks each record individu- 
ally. If the first record is valid and the 
second is invalid, it prints or punches 
only the first record. If the central com- 
puter subsequently resends the two- record 
transmission, the 2780 prints or punches 
only the second record, as the first has 
already been successfully printed or 
punched. If in the initial transmission 
the first record is invalid, the 2780 
prints or punches neither record, even 
if the second record is valid. This 
avoids processing records out of sequence. 



The 2780 can send two transparent re- 
cords per transmission, in this format: 



With the feature, the 2780 can send or 
receive up to seven records per transmis- 
sion, in nontransparent mode, and can send 
up to four records, in transparent mode. 
BTAM can send the 2780 only one record per 
transmission in transparent mode. 



The maximum number of records per transmis- 
sion, and the maximum number of data chara- 
cters per record, are shown in Figure 26. 



Although escape sequences cannot perform 
component selection in transparent mode, 
they may be used in transparent-mode trans- 
missions to the printer to perform vertical 
forms control. They are optional in this 
case, however, and do not count as part of 
the fixed record length shown in Figure 26. 
The only case in which the escape sequence 
is mandatory in transparent mode is if the 
first data character in the record coin- 
cides with the ESC character. 



DLE STX 
text . . . 



...text... DLE US DLE STX 
DLE ETB (or DLE ETX) 



(The distinction between ETB and ETX is 
that ETX is used to end the last block in a 
transmission. ) 



r : T T 1 





| Maximum number of 




| Maximum number of 




| records per 




| data characters 1 


Mode 


| transmission 
i 




| per record 




T 

1 




T 

| (variable length record) 


Nontransparent 


|2 without MRT 




| 80 (to punch) 




|7 with MRT 

1 
4. 




| 80 (from reader) 

| print line 2 (to printer) 

0. _ _ _ _ _ 




T 
1 




T 

J (fixed length record) 


Transparent 


|1 (to 2780) 




| 80 (to punch) 




|2 (from 278 w/o 


V1RT) 


| 8 (from reader) 




|<l (from 2780 with 


MRT) 


| print line 2 (to printer) 



h A X J, 

x Not including control characters (STX, US, etc.) or escape sequences. 
2 The print line may be 80, 120, or 1HH positions. 

L . _ j 

Figure 26. IBM 2780 Records: Number and Length 
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PROGRAMMING CONSIDERATIONS 



Maximum Transmission Length 



The maximum number of characters in one 
transmission to the 2780 is 4 00. All 
characters in the transmission, including 
escape sequences, end-to-end control 
characters, US, ETB, and ETX, occupy posi- 
tions in the buffer, with one exception. 
STX characters are deleted by the 2780 con- 
trol unit as they arrive and do not' appear 
in the buffer. The limitation of 4 00 is in 
addition to other restrictions already men- 
tioned, such as print or punch record 
length and number of records per 
transmission. 



Automatic Turnaround Feature 

If the 2780 is equipped with the Automatic 
Turnaround feature, the first blank card 
placed in the card reader hopper behind 
cards being read and transmitted will cause 
the 2780 to stop card reading and send an 
ETX to the central computer. (The blank 
card is not sent over the line). In this 
case the last message block from the 2780 
will be: 

STX text... US ETX 

Nonmixing of Modes within a Transmission 



Within one transmission you cannot send re- 
cords in both transparent and nontrans- 
parent modes. That is, a transmission of 
the form 



STX . . .text.. 
ETB 



US DLE STX text. . 



DLE 



is not permitted. 



Responses by 2780 to Abnormal Conditions 



There are two possible responses by the 
2780 to abnormal conditions occurring when 
the 2780 is receiving a transmission from 
the central computer: NAK and EOT. 

The 2780 sends a response of NAK for 
line errors. For example, the received 
message block may contain a parity error. 
The 2780 returns a NAK to request the 
central computer to retransmit. Another 
kind of line error may result in in a 



received message block containing too many 
characters. (A user-program error could 
produce the same result.) Again, the 2780 
returns a NAK to request retransmission. 
Clearly, if the user program has actually 
sent too many records or characters in one 
transmission, the user program must be 
corrected; no amount of retransmission 
could clear the error condition. 



The 2780 sends EOT in response to cer- 
tain user-program errors that it can 
detect, such as failure to send a format 
record to the printer before sending print 
line records containing horizontal format 
control, or sending too many characters in 
a record. 

The 2780 also sends EOT when it detects 
certain internal errors, such as a punch 
jam, printer forms check, buffer parity 
check, etc. When these conditions occur, 
the 2780 immediately responds to the 
central computer with EOT, signifying that 
the 2780 operator must intervene before 
operation can resume. 

Recovery from such a disruption depends 



<jh oiit 



restart and recover'* 7 



procedures and on the 2780 operator proce- 
dures. The operator's instructions may, 
for example, tell him to prepare the 2780 
to expect retransmission of the message 
block to which the 2780 responded with EOT. 
Or he may be instructed to prepare the 2780 
to receive a new message block, unrelated 
to the previous one. In any event, the 
operator's response and the user program's 
response to these conditions should be 
consistent. 

In certain instances the 2780 will not 
immediately respond with EOT when an inter- 
nal error occurs. This happens only if the 
error condition occurs during the printing 
or punching of the last record in a 
received message block. Upon verifying 
that the last record in a block is free of 
error, the 2780 responds with the appropri- 
ate acknowledgment to the central computer 
and overlaps processing of the last- 
received record with receipt of the next 
block. If an internal error occurs during 
processing of the last record, the 2780 
responds to the next block with an EOT. 
The 2780 operator can intervene to process 
the record on which the error actually 
occurred without retransmission of that 
record. The user program would then 
retransmit the next message block. 

A description of internal errors and 
operator procedures may be found in the 
publication IBM 2780 Data Transmission Ter- 
minal Component Description , GA27-3005. 
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In sending to the central computer, the 
2780 makes special use of the ENQ character 
to indicate the occurrence of an internal 
error. If a buffer parity or overrun error 
occurred in the message block it is send- 
ing, the 2780 sends a message block of the 
form: 



If an internal error occurs during pro- 
cessing of a record being readied for 
transmission to the central computer, it 
sends STX ENQ (with no text). The central 
computer and 27 80 then exchange NAK and 
EOT, as above. 



STX ...text... US text ENQ 

(or) 
STX text . . . ENQ 

A message ending with ENQ is invalid, and 
BTAM error recovery procedures automati- 
cally respond to the 2780 with a NAK char- 
acter. The 2780 then sends EOT to indicate 
that it is aborting transmission until the 
operator corrects the error condition. 



When it receives the EOT, BTAM turns on 
bit 7 of the DECFLAGS field of the DECB and 
posts abnormal completion, with a code of 
X'41'. Subsequent transmission by the 
2780, after communication with the central 
computer is resumed, normally begins with 
the record on which the error occurred. 
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IBM 279 DATA COMMUNICATIONS SYSTE A 



BTAM supports Binary Synchronous communica- 
tion between a System/360 and an IBM 2790 
Data Communications System (via an IBM 2715 
Transmission Control Unit) over point-to- 
point (switched and nonswitched) and multi- 
point nonswitched line configurations. 

The 2715 is available in two models: 
local and remote. The local 2715 (2715 
Model 1) is attached directly to the multi- 
plexer channel of a System/360. A Binary 
Synchronous Module is provided in the 2715 
Model 1 to simulate a Binary Synchronous 
Communications Adapter, operating on a 
point-to-point nonswitched line. The 
remote 2715 (2715 Model 2) can be connected 
to an IBM 2701 Data Adapter Unit attached 
to a System/360 multiplexer or selector 
channel, or to an IBM 2703 Transmission 
Control attached to a System/360 multiplex- 
er channel. Communication between the 
System/360 and the 2715 (local and remote) 
follows the line control conventions of 
Binary Synchronous Communications. To the 
System/360 programmer, a local 2715 is 
indistinguishable from a remote 2715 
(operating on a point-to-point nonswitched 
line) . 

For detailed descriptions of the 2790 
system, see the IBM 2790 Component Descrip- 
tion manual, GA27-3015. 

The transmission code supported is 
transparent EBCDIC. When communicating 
with a System/360, the 2715 sends error 
information and diagnostic messages to the 
system. The type of message (error infor- 
mation or diagnostic) is indicated in a 
special header that precedes the message 
text and is transparent to the user. 

• Diagnostic messages are operator 
awareness messages that are printed on 
the System/360 console or the 2740, if 
available. These messages are the 
result of the 2715 completing 
diagnostics. 

• Error information messages are recorded 
on disk. These messages are sent when 
the 2715 has filled a sector of its 
integral disk with error information 
data or by user request. 

Note : If one of these diagnostic or error 
information messages is received by BTAM on 
a READ Initial operation, BTAM changes the 
optype to READ Continue and restarts the 
operation. The initial flag bit in the 
DECB is left on in this case. If one of 
these messages is received on a multipoint 



READ Initial operation, the input area may 
contain the index byte and EOT. 

The READ, WRITE, and CONTROL options 
available for the 2715 are listed in Table 
6. 

ETAM provides a set of macro instruc- 
tions to enable the user to describe the 
processinq that must be performed on his 
input. The 2715 cannot be programmed by 
the user. IBM-supplied microcode in the 
2715 interprets processinq requirements 
throuqh a set of tables generated by the 
user-coded macros. There are 18 user 
macros that can be used with the 2790 
System. Seven of the macros are for the 
basic system four are for the Pulse Count 
feature, and seven are for the 2798 Guidance 
Display Unit. The 18 macros, when assembled 
by the System/360 Assembler, generate 
21 types of tables. The tables are 
transmitted in object form to the 2715 
by the users BTAM program. These tables 
contain pointers and index values, as 
well as parameters used by the microcoded 
routines. (See Appendix M for a sample 
2790 program.) 



2715 PULSE COUNT FEATURE 



The 2790 Data Communications System is a 
data collection and data communication sys- 
tem. The 2715 Pulse Count feature is pro- 
vided to allow the 2790 system user to 
dynamically control and monitor production 
work flow. This feature adds another major 
capability to the 2790 system. 

Some of the highlights of the 2715 Pulse 
Count feature are: 

• The 279 3 Area Station is the only area 
station in the 2790 system on which 
pulse counters can be attached. 

• Up to 63 counters are allowed on a 2793 
area station. 

• Up to 1008 counters are allowed on a 
2790 system. 

• These counters can have a decimal count 
from to 29,999. 

• The READ/WRITE capability is available 
for all counters. 

• The overflow interrupt capability is 
available on all counters. 
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• Implicit/explicit counter addressing at 
the DEU level is permitted. 

• Count testing can be performed on up to 
504 counters in the system. 



• Schedule readout capability is avail- 
able for up to SOU counters in the 
system. 

The 2715 Pulse Count feature has many 
possible uses. Some of the functions that 
can be performed with it are: 

• Appending counts automatically to 
transactions entered on a 2795/2796/ 
2797 Data Entry Unit. 

• Monitoring the current progress of 
counters by requesting readouts of 
counters for printing at the 2740, the 
area station 1053 printer, or the 
System/ 360. 

• Setting counters to predetermined 
counts, and when these counts are 
reached, automatic printouts of the 
counters are routed to the 2740, the 
area station 1053, or the System/360. 

• Monitoring for unassigned production 
with printout notification at the 2740, 
the area station 1053, or the 
System/360. 

• Monitoring counters on a scheduled 
basis and informing the user when a 
counter is not advancing. Printouts 
can be directed to the 2740, area sta- 
tion 1053, or the System/360 to alert 
the user of such "no-count" production 
conditions. 

• Readout of counters on a scheduled 
basis for analysis by users. 

• Scheduling up to 15 user-selected time 
schedules for flexibility in implement- 
ing the "count test" and "scheduled 
readout" functions described above. 



Counter Testing 



Two types of counter testing can be auto- 
matically performed by the 2715 if the user 
so desires. The user specifies one of 15 
possible test schedules for each of 504 
counters by means of the user table. He 
can also specify the type of count testing 
that is to be automatically performed on 
each of up to 504 counters. The 2715 will 
scan the counter table and perform one of 
two count tests, "no count" or "unassigned 



production," depending on what the user 
specifies in the tables and also whether or 
not count testing is enabled. 

The user has the ability to enable or 
disable count testing from either the 
System/360 or the 2790 DEUs via user- 
specified transaction lists. When 
initiated from a DEU, the desired action 
must be specified in the transaction list 
(CTRLIST macro) . If explicit counter ad- 
dressing is specified, this address must be 
within the data entry. Implicit counter 
addressing at a DEU implies counters 1 
through 32 only. All count test entries 
must be the last data entry from the DEU. 



The user can enable or disable count 
testing from the System/360 or the 2715 
operator's console for all counters on an 
area station, or all counters on the sys- 
tem. If the user disables count testing 
for all counters on the system, he can 
enable all counters and either have the 
2715 continue from the previous stop point 
in the timing of the schedules, or have the 
2715 re- initialize all schedules and start 
again. 

Three possible count testing actions can 
be initiated on an individual counter 
basis: 

1. No-count test can be started. The 
2715 automatically stops unassigned 
production testing in this case. 

2. Unassigned production test can be 
started. The 2715 automatically stops 
no- count test in this case. 

3. All count testing can be stopped. 

The no-count test informs the user that 
a counter is not advancing. The no- count 
test is executed on a user- defined schedule 
on an individual counter basis. When the 
2715 detects that a counter is not advanc- 
ing, a message signifying a no-count condi- 
tion is generated and routed to the 
destination defined by the user in the 
ROUTE operand of the ASCTR macro instruc- 
tion. The message indicates which counter 
has not advanced when it should have. The 
2715 then disables further no-count testing 
for that counter until the user has 
corrected the situation and has enabled 
further testing. Count testing for all 
other counters remains in progress. 

The unassigned production test informs 
the user that a counter is advancing when 
it should not. The unassigned production 
test is executed on a user- defined schedule 
on an individual counter basis. When the 
2715 detects a counter advancing, a message 
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signifying an unassigned production test 
condition is generated and routed to the 
destination designated by the user, in the 
ROUTE operand of the ASCTR macro instruc- 
tion. This message indicates which counter 
has advanced when it should not. The 2715 
then disables further unassigned production 
testing for that counter until the user has 
corrected the situation and has enabled 
further testing. Count testing for all 
other counters remains in progress. 

Scheduled Counter Readout 

An individual counter readout function is 
provided so that the 2715 will automati- 
cally read up to 50 4 counters on user- 
defined schedules if the user so desires. 
The user specifies one of 15 possible sche- 
dules for each of up to 50 4 counters in the 
table macros (CTRGROUP and CTRSCHED). As 
the 2715 reads a counter, the transaction 
header is attached and the transaction is 
stored automatically on disk as deferred 
data. The transaction header contains the 
counter address and associated time stamp. 

The user can enable or disable scheduled 
readout from the System/360 or the 2715 
operator's console for all counters on an 
area station or all counters on the system. 
He can also enable or disable scheduled 
readout for a single counter from the 
System/3t>0. If the user disables scheduled 
readout for all counters on the system, he 
can enable scheduled readout on all coun- 
ters and either have the 2715 continue from 
the previous stop point in the timing of 
the schedules or have the 2715 re- 
initialize all schedules and start again. 

DEU Set Counter Capability 

The initiating transaction from a DEU con- 
sists of one or more data entries. For 
multiple data entries, the set counter 
function is contained within the last data 
entry. There is no set counter capability 
on the 2795 DEU. Only the 2796 and 2797 
DEUs have this capability. The user 
selects the proper transaction list by set- 
ting the top left knob on the 2796 or the 
left knob on the 2797. (Transaction expan- 
sion may not be used. ) The last step in 
the transaction list must be the counter 
appendage. The counter control byte in the 
counter appendage step of the transaction 
list specifies the set counter operation 
and also specifies whether or not implicit 
or explicit counter addressing is to be 
used. For implicit addressing, the user 
does not have to specify the counter 
address. The DEU address is automatically 
translated to a counter address. The user 
specifies the high-order byte of the 5- 
digit value to which the counter is to be 
set by turning the top right knob on the 
2796 or the right knob on the 2797 to the 



high-order digit of the value. This digit 
must be 0,1, or 2, because the value cannot 
exceed 29,999. The user specifies the low- 
order four digits of the counter value in 
the four digit-rocker switches on the 2796 
or by keying them in on the manual entry 
digit keys of the 2797. 

Note : There are 6 possible manual entry 
positions on the 2797. Only the 4 low- 
order positions are used for the low-order 
value of the set counter operation. 

Explicit addressing requires that the 
counter address be contained in the data 
entry. Explicit addressing may be accomp- 
lished by DEU manual entry or by manual 
entry and card or badge entry. If manual 
entry is used, the lower left and lower 
right knobs on the 2796 or the two high 
order positions of the 2797 manual entry 
field specify the counter address. If 
manual and card or badge entry are used, 
columns 77 and 78 of the card or columns 19 
and 20 of the badge must contain the count- 
er address. 

The status of a DEU-initiated set count- 
er operation is indicated via normal status 
reporting. Unsuccessful set counter tran- 
sactions initiated by a DEU are signified 
by raising the red error flag on the DEU. 
Set counter functions may not be routed to 
ASLOG printer. 

DEU Read Counter Capability 

The initiating transaction from the DEU 
consists of one or more data entries. For 
a transaction that contains multiple data 
entries, the last data entry must contain 
the information necessary to initiate a 
read counter. The 2795, 2796, and 2797 
DEUs have the read counter capability. The 
user selects the proper transaction list by 
setting the left knob on the 2795 or 2797 
or the top left knob on the 2796. The last 
step in the transaction list must be the 
counter appendage. The counter control 
byte in the counter appendage step of the 
transaction list specifies the read counter 
operation to be performed, and also speci- 
fies whether implicit or explicit counter 
addressing is to be used. Read counter 
values are appended to the normal transac- 
tion and routed according to the user- 
defined routing designation in the transac- 
tion list. 

The read counter capability includes 
both implicit and explicit counter 
addressing for all read operations except 
Read Group and Read Group Residual, for 
which explicit counter addressing must be 
used. The following read operations may be 
defined in the last step of the transaction 
list: 



IBM 2790 Data Communications System 169 



• Read (single or group) 

• Read Residual (single or group) 

• Read and Reset (single counter) 

• Read and Set* (single counter) 

♦For 2796 and 2797 only. 

For implicit counter addressing, the 
user does not have to specify the counter 
address. The DEU address is automati- 
cally translated to the counter address. 
For explicit counter addressing, 
the user may manually set the lower-left 
and lower- right knobs on the 2796 to the 
counter address, or he may put the counter 
address in columns 77 and 78 of the card or 
columns 19 and 20 of the badge. For the 
2797, the user may manually enter the two 
digits for the counter address in the manu- 
al entry digit keys (these two digits must 
be left justified ) , or he may put the coun- 
ter address in columns 77 and 7 8 of the 
card or columns 19 and 20 of the badge. 
Explicit counter addressing for the 2795 
may only be specified from columns 77 and 
78 of the card or columns 19 and 20 of the 
badge. Manual entry is not possible on the 
2795. 

For explicit counter addressing on the 
Read Group or Read Group Residual, the user 
may manually set the lower- left and lower- 
right knobs on the 2796 to the starting 
counter address, and the first two digit- 
rocker switches to the ending counter 
address, or he may put the starting and 
ending counter addresses in columns 77-80 
of a card or 19-2 2 of a badge. For the 
2797, the user may manually enter the two 
digits for the starting counter address 
followed by the two digits for the ending 
counter address in the manual entry digit 
keys (these four digits must be left justi- 
fied ) , or he may put the starting and end- 
ing counter addresses in columns 77-80 
of a card or columns 19 through 22 of a 
badge. For the 2795, the user must specify 
the starting and ending counter addresses 
in columns 77-80 of a card or columns 
19 through 22 of a badge. For a Read and 
Set operation, the user specifies the set 
counter value in the same way as for the 
set counter operation (transaction expan- 
sion may not be used), with the top right 
knob and the four digit-rocker switches on 
the 2796, or the right knob and the four 
low-order digits from the manual entry 
digit keys on the 2797. 

The counter transaction and count value 
may be logged at any area station for 1053 
display Oy message routing, but the counter 
transaction must consist of only one step 
in addition to the counter appendage. Any 



of the read operations (except Read Group 
and Read Group Residual) may be routed to 
an area station 1053 printer by implicitly 
or explicitly specifying the output 
destination. Read and Set operations 
(READSET) may not be routed to the AS LOG 
printer. The implicit routing address is 
in the transaction list, while the explicit 
routing address is from the card or badge 
entry. Implicit message routing is done by 
using both the left and right knobs on the 
2795 and 2797 or the upper left and right 
knobs on the 27 96 to address the transac- 
tion list. For explicit message routing to 
an area station 1053, the user must specify 
the 1053 address in columns 71 and 72 of 
the card or columns 13 and 14 of the badge. 
This applies to any DEU. 

Note: Transaction expansion is a prerequi- 
site to message routing. Storage expansion 

(32K) is a prerequisite to transaction 
expansion. 

Setting a counter to a certain value 
implies that the user wants to know when 
the counter reaches that value. The set 
counter function sets a counter to a value 
of 29,999 minus the value specified, so 
that when the user-specified count is 
reached, the user is alerted to an overflow 
interrupt for that counter. The read coun- 
ter function allows the actual value of the 
counter to be read. The read residual 
counter function allows the value of the 
counter to be subtracted from 29,999, so 
that the residual difference is read. 

For example, if a user sets a counter to 
a value of 10 and immediately performs a 
read counter function, the value read will 
be 29,989. If he immediately performs a 
read residual function on the counter, the 
value read will be 10. 



2715 TABLES 

The types of tables are: 

• Table Definition Block. 

• Area Station Table. 

• Data Entry Unit Table. 

• Transaction Group Tables. 

• Transaction List Tables. 

• Area Station Sequence Table. 

• Area Station Counter Table. 
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• Counter Table. 

• Schedule Table. 

• Data Entry Dnit Sequence Table. 

• Data Entry Dnit Index Table. 

• System Parameter Table. 

• Transaction Table. 

• GDU List Table. 

• Parameter List Number Table. 

• Parameter List Table. 

• Display Guidance Table. 

• GDD Area Station Table. 

• GDU Sequence Table. 

• Identification Table. 

• Translate Table. 



Descriptions of these tables and the 
macros that generate them follow. 

Note: The user must assemble all his 
macros at the same time since the relation- 
ship among the tables is established by 
labels. 



Table Definition Block ; The Table Defini- 
tion Block contains a pointer to each of 
the other tables. It is defined by the 
CONFIGUR macro instruction. 



Area Station Table (AS Table) : The Area 
Station Table contains one entry per area 
station. Each entry is one byte and con- 
tains a numeric pointer that relates the 
specified area station to a particular 
transaction group within the Transaction 
Group Table. The maximum size of the AS 
Table is 100 bytes for a 2715 having 32K 
bytes of storage and 64 bytes for a 2715 
having 16K bytes of storage. The AS Table 
is defined by the AS macro instruction. 



Data Entry Unit Table (DEU Table) ; The 
Data Entry Unit Table contains one entry 
for each area station defined in the sys- 
tem. This entry (0-99) is used for all 
data entry units attached to the designated 
area station. If there are no attached 
data entry units, the entry contains a 
value to indicate this condition. The DEU 
table is defined by the AS macro 
instruction. 



The position of the entry in the table 
is relative to the position of the area 
station address within the valid range of 
addresses. For example, the first entry in 
the DEU Table is for the data entry units 
attached to the area station with ID=0; the 
second for those attached to the area sta- 
tion with ID=1; etc. 

Each entry in the DEU Table is one byte 
and is used to gain access to the transac- 
tion group associated with all the data 
entry units attached to the area station. 
This indicates that all data entry units 
attached to an area station must use a com- 
mon transaction group. 



Transaction Group Table (TGROUP Table) ; 
Each transaction group consists of nine 
halfword (two-byte) entries that contain 
pointers to a transaction list or to anoth- 
er transaction group. Each entry corres- 
ponds to a transaction code (a transaction 
key on an area station or the value of the 
left rotary knob on a 2795 or 2797 or the 
top left rotary knob on a 2796 Data Entry 
Unit). Each entry contains a pointer to a 
transaction list that defines the operating 
procedure associated with the specified 
transaction code. If nine transaction 
lists are not sufficient, an indication can 
be set in one or more of the transaction 
group entries to permit a transaction 
expansion function in which a secondary 
value (the first digit of input from an 
area station or the value of the right hand 
rotary knob on a data entry unit) is used 
to index another transaction group. There- 
fore, it is possible for an area station or 
data entry unit to refer to nine TGROUP 
entries, any or all of which may indicate 
secondary indexing. This allows a data 
entry unit to perform a maximum of 81 dis- 
tinct transaction functions, while allowing 
81 functions for area stations (see TGROUP 
in the Macro Descriptions section) . 

All area stations that have the same 
operating characteristics must refer to the 
same transaction group, using the area sta- 
tion address and the corresponding entry in 
the AS Table. The same is true for data 
entry units, using the area station address 
and the corresponding entry in the DEU 
Table. There can be up to 63 transaction 
groups, each of which uniquely specifies an 
area station or data entry unit capability. 
The transaction groups are defined by 
TGROUP macro instructions. 



Transaction List Tables (TRLIST Tables) : 
Each Transaction List Table consists of a 
three-byte identification and routing head- 
er field and either an internal message or 
from one to sixteen data entry steps. The 
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header field determines the destination of 
the completed transaction. Each data entry 
step is generated by an ASLIST or DEULIST 
macro and determines whether checking is to 
be performed on the input. If an ASLIST 
macro generated a data entry step, the step 
contains the number of the next guidance 
light to be turned on (more than one gui- 
dance light number is included if the user 
chooses to include error checking in his 
transaction step, for example, via LENGTH 
and DIGIT operands of the ASLIST macro) . 

A TRLIST Table is defined in any one of 
three ways: 

• A TRLIST macro followed by one or more 
ASLIST macro instructions, 

• A TRLIST macro followed by one or more 
DEULIST macro instructions, 

• A TRLIST macro followed by one or more 
ASLIST (DEULIST) macro instructions with 
specification for message routing with 
an internal message. 

The first Transaction List Table always 
refers to all IBM 1035 Badge Readers, if 
there are any on the system. 



Area Station Sequence Table (AS-SEQ Table) : 
A transaction from an area station may com- 
prise a discrete number of processing steps 
(for example, badge, card, card). The AS- 
SEQ Table keeps track of the last step of 
the transaction entered from each area sta- 
tion. The AS-SEQ Table has one entry per 
area station. Each entry is one byte and 
contains the step number (0-15). The maxi- 
mum size of the AS-SEQ Table is 100 bytes, 
one byte for each of the 100 possible area 
stations. The AS-SEQ Table is defined by 
the AS macro instruction. 

Area Station Counter Table (ASCTR Table) : 
The Area Station Counter Table contains one 
entry per area station. Each entry is two 
bytes and contains a displacement to the 
group of counters in the Counter Table for 
that particular area station. Each entry 
also contains routing information for coun- 
ter overflow and count test response mes- 
sages. All counters attached to an area 
station nave counter overflow and count 
test response messages routed to the same 
destination. 



Each entry in the Area station Counter 
Table is used to gain access to the coun- 
ters in the Counter Table associated with 
this area station. The displacement in 
each entry, plus the counter address, 
allows the 2715 to index to individual 
counters. Scheduled readout and count 
testing are performed at the individual 
counter level. 

The maximum size of the Area Station 
Counter Table is 202 bytes: 2 bytes for 
each of 100 area stations, plus 2 addition- 
al control bytes. This table is truncated 
at the highest assigned area station. 
Unassigned area stations below the highest 
assigned area station require 2 bytes of 
unused main storage. However, the highest 
assigned area station with counters can be 
any assigned area station less than or 
equal to the highest assigned area station 
defined by the AS macro operand ID=n. The 
Area Station Counter Table is defined by 
the ASCTR macro instruction. 

Counter Table (CTR Table) : The Counter 
Table consists of 2 bytes of control infor- 
mation for each counter in the system that 
requires testing. This table is organized 
on a group basis. Each area station that 
has one or more counters (to be tested) 
constitutes a group. Each group is trun- 
cated at the highest counter address. 



Counters for which scheduled readout and 
count testing are not to be done require 2 
bytes each in the counter table if their 
addresses are less than the highest counter 
address. Only 50 4 counters can be defined 
in the Counter Table. The Counter Table is 
defined by CTRGROUP macro instructions. 
Each CTRGROUP macro defines a single 
counter. 

Schedule Table : The Schedule Table con- 
sists of 2 bytes for each user-defined 
count test schedule or readout schedule. 
The maximum number of schedules that can be 
defined is 15, so the maximum size of the 
Schedule Table is 30 bytes. These sche- 
dules determine the frequency (in minutes) 
with which the Counter Table entry will be 
tested. Scheduled readout and count test 
operations can refer to any of the 15 sche- 
dules that are defined. The maximum fre- 
quency that can be specified is 2047. 
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System Parameter Tab le; The System 
Parameter Table has a fixed core location 
and maintains an index of other 2798 GDO 
table locations. The System Parameter 
Table contains the following information: 

System error quidance: 

Invalid function error quidance 

Premature termination error quidance 

Monitor key error quidance 
Table pointers: 

GDU Sequence Table pointer 

Transaction Table pointer 

Parameter List Number Table pointer 

Identification Table pointer 

Translate Table pointer 

GDO AS Table pointer 

Identification characters: 

"Get" identification character 
"Store" identification character 

Counts: 

GDO list count 
Identifier count 

The System Parameter Table is qenerated by 
the CONFIGUR macro. The information in the 
table is determined from the CONFIGUR macro 
operands. There is only one System Para- 
meter Table per 2790 System with 2798 GDDs. 

Transaction Table: The Transaction Table 
is used to index the desired GDO list from 
a GDU operator entered transaction code. 
Each entry in the Transaction Table may 
contain a pointer to a GDU list associated 
with a transaction code. There are 100 
possible transaction codes so there are 
100 possible entries in the Transaction 
Table. Each entry in the table is 2 bytes 
lonq for a maximum table size of 200 bytes. 
The table is truncated at the hiqhest 
assiqned transaction code. But for each 
entry skipped between zero and the hiqhest 
assiqned value two bytes of core are re- 
served, iust as if this value had been 
assiqned. Each entry in the Transaction 
Table is qenerated by a GDUTRANS macro. 

GDU List Table: The GDU List Table 
contains up to 100 GDU lists. Each GDU 
list entry will contain a transaction 
header, a variable number of GDU steps 
(up to 16), an all zero byte, and implicit 
text (if specified) . Each GDU list entry 
is qenerated ty a combination of the TRLIST 
macro and from 1 to 16 GDULIST macros. The 
TRLIST macro qenerates the transaction 
header. Each GDULIST macro qenerates a 5 
byte GDU step with the followinq information 

• A one-byte parameter list number. 

• Two bytes of normal quidance to be sent 
to the operator quidance panel on the 



GDU. This quidance is used to liqht a 
combination of 16 liqhts. 
• A two-byte display guidance pointer 
used to: 

a. Point to a display quidance messaqe 
in the Display Guidance Table, or 

b. Point to an identifier in the 
Identifier Table 

Implicit text is defined in the last GDULIST 
macro in the GDU list entry. Each GDU list 
entry can contain a minimum of 10 bytes and 
a maximum of 85 bytes plus implicit text. 

P arameter List Number- Table : The Parameter 
List Number Table contains up to 127 ad- 
dresses of the parameter lists. Each entry 
in the table is two bytes for a maximum 
table size of 254 bytes. This table is 
qenerated by PARAMNUH macros, each of which 
qenerates a two byte entry. The table is 
truncated at the hiqhest defined parameter 
list number defined by the ELN operand of 
the PARAMNUM macro. 

Parameter Li st Table : The Parameter List 
Table contains up to 127 entries. The data 
in each parameter list entry defines the 
types of checks that are performed on a 
data entry. The first two bytes of a pa- 
rameter list contain a check field and a 
function field in which the checks and/or 
functions associated with this list are 
denoted. Following these two bytes are 
the check lists if any are required. 
These check lists provide the test 
information and error guidance for the 
checks performed on a data entry. The 
check lists are variable lengths, depending 
on the tests to be done. The parameter 
lists are packed decimal. Each parameter 
list is generated by a PARMLIST macro. 

Disp lay Guidance Table: The Display 
Guidance Table contains the various 
messaqes used as display quidance for the 
GDUs on the loop. Each entry in the 
Display Guidance Table contains a lenqth 
byte and from 1 to 16 data bytes. Each 
entry in the table is qenerated by a 
DISPGUID macro. 

Guidance Display Unit Area Station Table 
S Table): The Guidance Display Unit 
Station Table, in conjunction with the 
evice address, contains pointers 

provide entries into the GDU Sequence 
Each entry is two bytes and is 
ated by the GDUAS macro. The maximum 
of the GCUAS table is 200 bytes. This 

is truncated at the hiqhest assiqned 
station. Unassiqned area stations 

the hiqhest assiqned area station 
re two bytes of unused main storaqe. 

G uidance Display U nit Sequence Table: The 
Guidance Display Unit Sequence Table con- 
sists of one byte of zeroes for each GDU 
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on the 2790 system. Each byte is used for 
inquiry display and GDU sequence. This 
table is qenerated by the GDUTRANS macro. 

I dentification gable : The Identification 
Table contains the areas to maintain the 
GDU identifiers. Fourteen bytes are qen- 
erated for each identifier. The total 
number of identifiers is specified in the 
System Parameter Table. This table is 
qenerated by the STEND macro. 



write a BTAM routine to load these tables 
into the 2715. During transmission of the 
object text from the System/360 to the 
2715, the user must include two headers 
before each card's data: a message header 
and a transaction header (Figure 28). The 
user must provide DLE STX in front of the 
message (see format below) . BTAM provides 
the ending characters. All cards must be 
transmitted, one at a time, to the 2715. 



Translate- Table: The Translate Table is 
used in conjunction with the translate 
function and contains a maximum of eight 
entries. Each entry contains a translate 
character, the length of the text into 
which it is tc be translated, and from 1 
to 14 bytes of text. One byte of zeroes 
follows the last entry in the table. 
The maximum table size is 129 bytes. Each 
entry in this table is qenerated by a 
TRANSLAT macro. 

Data Entry Unit Sequence Table (DEO-SEQ 
Table) : A transaction from a data entry 
unit may comprise a discrete number of 
steps. The DEU-SEQ Table keeps track of 
the last step entered from each data entry 
unit on the system. Each one-byte entry 
contains the step number (0-15) of the 
transaction initiated by each data entry 
unit. The maximum size of the DEU-SEQ 
Table is 1,024 bytes (one byte for each of 
the 1,024 data entry units available on the 
2790 system) . The DEU-SEQ Table is defined 
by the AS macro instruction. 

Data Ent ry Unit Ind ex Table (DEU- INDEX 
T able) : When a data entry is received from 
a data entry unit, the 2715 receives the 
area station address and the data entry 
unit address. The area station address is 
used as an index to the desired entry in 
the DEU-INDEX Table. (There is one entry 
per area station. ) The one-byte entry in 
the DEU-INDEX Table contains a pointer to 
the desired entry in the DEU-SEQ Table. 
However, since the DEU-SEQ Table can be up 
to 1,024 bytes long, two additional bits 
are necessary. Using bits 6 and 7 of the 
corresponding entry in the DEU Table 
extends the addressing capability of the 
DEU-INDEX Table entry to the full 1,024 
possible entries of the DEU-SEQ Table. Use 
of the data entry unit address allows 
indexing to the specific counter associated 
with the data entry unit sending the tran- 
saction. The DEU-INDEX Table is defined by 
the AS macro instruction. 

Loading the Tables 



The assembly output of the user macros is a 
set of tables, in object form, needed for 
the 2715 internal operation. The user must 



r t t t 1 

| D S | Message | Transaction | Object Card| 
| L T | Header | Header | | 

| E X | 2 bytes | 8 bytes | 80 bytes | 
l x x x J 



When loading the tables, the user must 
first be sure that the 2790 systerc is inac- 
tive. This is accomplished by using the 
defined control transactions to "stop 2790 
input" and to purge the disk of all 
deferred data ("Read deferred data"). When 
activity at the 2715 has ceased, the user 
must initially send a "table load start" 
control transaction. This is followed by 
the transmission of the table object cards 
as "table load data" control transactions 
(see the Message Format section). 

Columns 73-80 of the object deck contain 
a program identification and a sequence 
number, which are checked by the 2715. The 
program identification (columns 73-76) is 
determined from a named TITLE card 
generated by the CONFIGUR macro instruc- 
tion. Both the identification and the 
sequence are checked by microcoded routines 
in the 2715. The completion of the data 
load is signaled by the END card (END in 
columns 2-4). After transmitting the END 
card, the user must send a "table load end" 
control transaction. If an error is found 
in either the program identification or the 
sequence field of any card, the table load 
is rejected. 

When transmitting the tables, the maxi- 
mum message length is 128 bytes. When the 
last message of the table load has been 
sent, the user should transmit an EOT. The 
2715 bids for the line and then transmits a 
message indicating the status of the table 
load (see the Message Format section) . The 
table load is rejected if any of the fol- 
lowing conditions occurs: 

1. Invalid program identification 
sequence field. 

2. Improper control field in transaction 
header . 

3. 2715 table size exceeds storage 
available . 

4. Data has not been purged from the 2715 
integral disk. 

5. The system is active. 
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MACRO INSTRUCTIONS 

The macros coded for the 2790 System must 
be in the following order: 



CONFIGUR 

AS 

GDUAS (optional) 

TGROUP 

ASCTR (optional) 

CTRGROUP (optional) 

CTRSCHED (optional) 

GDUTRANS (optional) 

PARAMNUM (optional) 

PARMLIST (optional) 

DISPGOID (optional) 

TP.ANSLAT (optional) 

TRLIST 

ASLIST 

DEULIST (optional) 

CTRLIST (optional) 

GDDLIST (optional) 

STEND 



Configu ration Macro (CONFIGUR) : The Confi- 
guration macro generates the table defini- 
tion block that contains pointers to the 
other user tables. 

Area Station Definition Macro (AS) : The 
Area station Definition macro permits 
building an exhaustive list of all area 
stations present in the system. In addi- 
tion, each macro logically attaches area 
stations and data entry units to their 
associated transaction groups. 



Guidance Displ a y Unit Area Station Macro 
(GDUflS) i The GDUAS macro is used to build 
an entry in the GDU Area Station Table. 



Transaction Group Macro (TGROUP) : By cod- 
ing the Transaction Group macro, the user 
establishes a pointer to a set of transac- 
tion lists that can be associated with the 
transaction keys of a group of area sta- 
tions, with the left-hand knob positions of 
a group of 2795 or 2797 Data Entry Units, 



or with the top left-hand knob positions of 
a group of 2796 Data Entry Units. 

With each of the nine transaction keys 
on an area station, the operator can select 
up to nine transaction lists. With each 
position of the left-hand knob on a 2795 or 
2797 or of the top left-hand knob on the 
2796 Data Entry Unit, the operator can also 
select up to nine transaction lists (posi- 
tion is reserved) . Normally, each tran- 
saction key or position of the left-hand 
knob is associated with only one transac- 
tion list. Since groups of area stations 
and groups of data entry units usually have 
the same operating procedure, a given set 
of area stations must have corresponding 
transaction keys associated with identical 
transaction lists. 

Area Station Counter Macro (ASCTR) : By 
coding the ASCTR macro, the user defines 
each area station that has pulse counters, 
and establishes a displacement to the coun- 
ter group in the Counter Table associated 
with each particular area station. In 
addition, the user defines routing informa- 
tion for counter overflow and count test 
response messages for all the counters on 
each area station. 

Counter Group Macro (CTRGROUP) ; By coding 
the CTRGROUP macro, the user can define two 
bytes of control information for each coun- 
ter on an area station for which scheduled 
readout or count testing is to be done. 

Counter Schedule Macro (CTRSCHED) : The 
CTRSCHED macro defines the count test sche- 
dules and the readout schedules that can be 
used by all the counters on the system. 

Gui danc e- Display Uni t Transactio n Mac ro 
(GDUTRANS) : The GDUTRANS macro is used to 
build an entry in the Transaction Table. A 
GDUTRANS macro must be coded for every 
transaction code that will be used in 
communication with the 2798 GDUs. 

Parameter-List Number Macro (PARAMNUM) : 
The PARAMNUM macro is used to define an 
entry in the Parameter List Number Table 
for use with 2798 GDUs. 

Parameter^List Macro {PARMLIST) : T he 
PARMLIST macro is used to qenerate an 
entry in the Parameter List Table. The 
data in this entry defines the types of 
checks that are performed on a data entry 
from a 2798 GDU. 

Displ ay Gui dance Ma cro (DISPGUID) : The 
DISPGUID macro is used to define a display 
quidance message in the Display Guidance 
Table. 

Trans late- Table Macro- {TRANSLAT) : The 
TRANSLAT macro is used to build an entry 
in the Translate Table. 



IBM 2790 Data Communications System 173 



Transaction List Macro (TRLIST) : The 
Transaction List macro is used with the 
Area Station List macro or the Data Entry 
Unit List macro to define a transaction, or 
it is used to define a user-specified mes- 
sage. The TRLIST macro enables the user to 
control the destination of the completed 
transaction or a predefined message. Each 
transaction list has a DEU or AS transac- 
tion code associated with it. 



Area Station List Macro (ASLIST) : When the 
transaction is to be initiated by an area 
station, the Transaction List macro is fol- 
lowed by one or more Area Station List 
macros. The ASLIST macro is used to define 
one step of a transaction for a 2791 Area 
Station; the transaction code is the value 
of the transaction key pressed by the 
operator . 

Data Entry Unit List Macro (DEULIST) ; When 
the transaction is to be initiated by a 
data entry unit, the Transaction List macro 
is followed by one or more Data Entry Unit 
List macros. The DEULIST macro is used to 
define one step of a transaction for a data 
entry unit; the transaction code is the 
value of the left-hand rotary knob of a 
2795 or 2797 and of the top left-hand 
rotary knob of a 2796. 

Guidance Display Unit List Macro (GEULIST) : 
The GDULIST macro is used to define one 
step of a GDU transaction list for a 2791 
or 2793 Area Station with 2798 GDOs attached. 

Counter List Macro (CTRLIST) ; When the 
transaction is to be initiated by a data 
entry unit, the TRLIST macro is followed by 
one or more DEULIST macros, and, optional- 
ly, by a CTRLIST macro instruction. The 
CTRLIST macro defines the last step of a 
transaction for a data entry unit that is 
attached to a 2793 Area Station using pulse 
counters. 



Statement End Macro (STEND) : The Statement 
End macro indicates the end of all user 
macros. 



CONFIGUR (Configuration) Macro Instruction 



The CONFIGUR macro is used to generate the 
table definition block, which contains 
pointers to the 2715 tables. The format of 
the CONFIGUR macro? is: 



r _ , ( , 

j Name j Operation j Operand ' 

! [symbol] | CONFIGUR j [CORE^yj}] [ ' Pc= {^" S H ! 

I ' I r ' J N0 T , ' 

! j ! ,[' GDU =\Y£s.fi ! 

j j- j [,FUNCERR= (absexp, ...) ] J 

ii I [, ENDERR= (absexp, ...) ] " 

J J ! [ ,MONERR= (absexp, ...) ] \ 

| j j [ ,GETID=absexp] [ 

i i i [ ,STORID=absexp] I 

{ j j [,IDCOUNT=absexp] j 

| | ! [,INQDISP=^|§s; ] | 



symbol 

The name of the macro is optional. 



CORE 



PC 



Macro Descriptions 



The macros are arranged in the following 
section in the same order as they must 
appear in the assembly. 

The macros must be assembled together. 
The first assembly statement must be the 
CONFIGUR macro (there must not be a TITLE, 
CSECT, or START card). The last assembly 
statement must be the END card. There must 
not be any other macros or code inserted 
into the assembly of the user tables. 



The CORE parameter specifies the 2715 
storage size. The only valid values 
are 16 and 32. If an invalid value is 
specified, an MNOTE is issued and no 
code is generated, if the CORE param- 
eter is omitted, 16 is assumed. 

If C0RE=16 is coded, then the size of 
all tables built must not exceed 1,280 
bytes. If C0EE=32 is coded, then the 
size of all tables built must not 
exceed 4,096 bytes. The size of all 
tables built is calculated by using 
Table 8.1. The size will be the total 
of all macros used. 



The PC operand indicates whether pulse 
count macros are coded in this assemb- 
ly. If PC=YES is specified, pointers 
to the Area Station Counter Table, the 
Counter Table, and the Schedule Table 
are included in the Table Definition 
Block. Coding PC=YES adds six bytes 
to the Table Definition Block. If 
PC=NO is coded, the pointers to the 
Area Station Counter Table, the Count- 
er Table, and the Schedule Table are 
omitted, but two bytes of zeros are 
added. If the PC operand is omitted, 
PC=NO is assumed. 

The PC operand is valid only if CORE= 
32 is specified. If PC=YES is coded 
and CORE=16 (or the CORE operand is 
omitted) , an MNOTE is issued and no 
code is generated. 
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Table 8.1 2715 Macro Storage Size Estimates 



i MACRO 
l 


^MIN. 
BYTES 
L USED 


ADDITIONAL 
CONSIDERATIONS 


| CONFIGUR 


22 


it- 
Add 
Add 
Add 


4 if PC=YES. 

22 If GDU=YES. 

14 times the number coded if IDCOUNT=n. 


IAS 


4 


Add 
Add 


4 

1 


for each skipped ID in sequence, 
for each DEU attached. 


1 GDUAS 


1 


Add 


1 


for each skipped ID in sequence. 


J TGROUP 


18 








! ASCTR 


2 


Add 
Add 


2 
2 


for each skipped ID in sequence, 
after last ASCTR macro. 


! CTRGROUP 


2 


Add 


2 


for each skipped counter in sequence. 


J CTRSCHED 


2 


For 


each schedule. 


! GDUTRANS 


2 


Add 


2 


for each skipped TRCODE operand. 


! PARMLIST 


2 


Add 3 for CKLNGTH=. 

Add 3 for CKMODll=. 

Add 3 for CKMOD10== 

Add 8 for CKOR=. 

Add 3 for CKNONUM=. 

Add 3 for CKNUM=. 

Add 5 for CKRANGE= plus 1 for each position 

in CKRANGE field. 

Add 3 for CKAND= plus 1 for each position 

in CKAND field. 


J DISPGUID 


1 


Add 


1 


for each text character. 


1 TRANS LAT 


16 








1 TRLIST 


5 








j ASLIST 


5 


Add 


1 


for each implicit text character. 


! DEULIST 


5 


Add 


1 


for each implicit text character. 


j GDULIST 


5 


Add 


1 


for each implicit text character. 


j CTRL I ST 


5 


Add 


1 


for each implicit text character. 


! STEND 
1 





Add 

if : 


1 for each area station in system 
[NQDISP=YES in CONFIGUR macro. 



FUNCERR 

This operand indicates the error 
quidance that will be returned to the 
2798 GDO when the following invalid 
functions are recognized: 



condition in its function field. 
An invalid length occurs when more 
than two characters are entered 
for the identifier address foi- 
ling the 'Get ID 1 character. 



• An invalid length is specified on a 
Get Identifier function. Normally, 
the GDU operator keys the 'Get ID' 
character, the two digit identifier 
address, and the ENTER key upon 
entering a GDO step havinq a get 



• An invalid length on a Translate 
function. This error occurs when a 
GDU step is entered that has a 
translate function associated with 
it and more than one keyed char- 
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• An invalid address on a Get Identi- 
fier or Store Identifier function. 
This error occurs when the two 
digit identifier address is not in 
the Identifier Table, or the two 
diqit identifier address has not 
been specified. 

• A non-translatable character is 
specified on a Translate function. 
This error occurs when the char- 
acter to be translated is not found 
in the Translate Table. 

• A non-numeric character is recog- 
nized during a range check. 

The value of each suboperand in this 
operand may range from 1 to 16 and up 
to 16 suboperands may be coded. This 
operand indicates exactly which lights 
on the Guidance Display Panel the user 
wants to turn on when the error occurs. 
(See Figure 27. 1) . 

ENDERR 

This operand indicates the error guid- 
ance that will be returned to the 2798 
GDO when a premature termination occurs. 
A premature termination occurs when the 
number of characters received in a data 
entry from a 2798 is not sufficient to 
complete all of the checks specified by 
this GDOLIST macro (with exception of 
the CKLENGTH check specified by the 
PARMLIST macro). The value of each 
suboperand in this operand may range 
from 1 to 16 and up to 16 suboperands 
may be coded. This operand indicates 
exactly which lghts on the Guidance 
Display Panel the user wants to turn 
on when the error occurs. (See 
Figure 27. 1) . 



MONERR 

This operand indica 
guidance that will 
2798 GDU when a Mon 
error occurs. The 
suboperand in this 
range from 1 to 16 
suboperands may be 
operand indicates e 
on the Guidance Dis 
user wants to turn 
occurs. (See Figur 



tes the error 
be returned to the 
iter key check 
value of each 
operand may 
and up to 16 
coded. This 
xactly which lights 
play Panel the 
on when the error 
e 27.1) 



STORID 

This operand specifies the Store identi- 
fication character that is used for the 
Store Identifier function. The value 
of this operand is the hexadecimal 
equivalent of any of the characters: 
A-Z, 0-9, and any of the special char- 
acters: .$&-/, #3"=:?!;* 
+ TAB NEWLINE SPACE LINEFEED. (See 
Table 9.1) 

IDC00NT 

This operand specifies the number of 
identifiers that will be used. The 
value of this operand may be from 
to 100. This operand must be coded 
if GD0=YES. Everytime the 2715 is 
ICPLed, the predefined text 'NOT USED* 
will be defined in every identifier 
in the identifier table. The user 
should use the Store Identifier func- 
tion prior to using the Get Identi- 
fier function after an ICPL if he 
expects useful information to be in 
the identifier table. 

INQDISP 

This operand indicates whether Inguiry 
Display will be used on the 2715. If 
this operand is omitted, INQDISP=NO 
is assumed. If INQDISP=YES is coded, 
CORE=32 must also be coded. 



AS (Area Station) Macro Instruction 



The AS macro is used to build an entry in 
the Area Station Table and the Data Entry 
Unit Table, and a corresponding entry in 
the Data Entry Unit Index Table. In each 
table, the position of the entry to be 
built relative to the beginning of the 
table is determined from the ID parameter. 
Each AS macro requires (4 + absexp) bytes 
of 2715 storage (absexp is the value of the 
DEGROUP operand). The format of the AS 
macro is: 

r t t 1 

| Name | Oper- | Operand | 

| J ation | J 

I- + -+ -h 

| [ symbol] | AS | ID=absexp [ , ASGROUP= symbol] j 
| j | ( , DEGROUP= ( symbol , absexp ) ] j 
l_ x x J 



GETID 

This operand specifies the GET Identi- 
fication character that is used for the 
GET Identifier function. The value of 
this operand is the hexadecimal equiv- 
alent of any of the characters : A-Z, 
0-9, and any of the special characters: 
$6-/, #3" =:?!;*+ TAB 
NEWLINE LINEFEED SPACE. (See Table 9.1) 



symbol 

The name field is optional. 



ID 



Each area station is assigned a spe- 
cific address (X^O' - X*E3») at sys- 
tem installation time, and the value 
of "absexp" is the decimal representa- 
tion of that address (see Table 9). 
ID is used to determine the position 
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of an entry in the AS Table, DEU 
Table, and DEU-INDEX table. The value 
of the ID parameter must be from to 
99 when CORE=32 in the CONFIGUR macro; 
however, all values in this range need 
not be specified. The value of the ID 
parameter must be from to 63 when 
C0RE=16 or when the CORE operand is 
omitted in the CONFIGUR macro; howev- 
er, all values in this range need not 
be specified. If one is omitted, a 
warning message is generated. The 
values 100 through 128, which would 
generate hexadecimal values EU through 
FF, are not valid. The AS macros must 
be in ascending sequence by ID. An AS 
macro found to be out of sequence or 
in error terminates the assembly of 
this macro instruction. The ID of a 
macro in error is subsequently handled 
the same as an omitted ID. 



area station are then defined with a value 
indicating there are no DEUs. The DEGROUP 
parameter must be coded for the 2793. 



G DUA S ..{Guidance Displ aj 
Macro Ip s tr ue tig.n 



Unit Area Station) 



The GDU Area Station macro instruction is 
used to build an entry in the GDU Area 
Station Table. The position of the entry 
to be built relative to the beginning of 
the table is determined from the ID operand. 
Each GDUAS macro requires 2 bytes of 2715 
storaqe. The format of the GDUAS macro is: 

, , T j 

'Name j Operation j Operand J 

J [symbol]] GDUAS j ID=absexp,GDUNUMB=absexp J 

i 1 a. \ 



ASGROUP 

The ASGROUP parameter is valid for the 
2791 only. The value of "symbol" is 
the name of the transaction group for 
this area station and must appear in 
the name field of a TGROUP macro. If 
the name does not appear, an assembly 
error occurs. The ASGROUP parameter 
builds an entry in the AS table. 



DEGROUP 
symbol 

The name of the transaction group 
with which the data entry units 
on this area station are associated is 
specified by "symbol". It must appear 
in the name field of a TGROUP macro; 
if not, an assembly error occurs, 
■symbol" builds an entry in the DEU 
Table, "symbol" must be identical to 
the name of the first (or only) TGROUP 
macro that defines a transaction group 
for data entry units. That is, "sym- 
bol" must be the same as the name of 
the transaction group for the 2795s 
connected to this area station, or of 
the dummy transaction group that pre- 
cedes the transaction group for the 
2796s connected to this area station 
(see Figure 27 for examples) . 

absexp 

The value of the absolute expression 
is the number of data entry units 
attached to this area station. This 
number must not exceed 32, since this 
is the maximum number of data entry 
units that can be attached to any one 
area station. The value is used to 
build an entry in the DEU- INDEX table . 

The DEGROUP operand may be omitted if no 
data entry units are attached to this area 
station. The entries in the DEU table and 
the DEU-INDEX table corresponding to this 



symbol 

The name field of this macro is op- 
tional. 



ID 



Each area station with attached 279 8 
GDUs is assigned a specific address 
(X'80 1 - X*E3') at system installation 
time, and the value of 'absexp' is the 
decimal representation of that address 
(see Table 9). ID is used to determine 
the position of an entry in the GDUAS 
Table. The value of the ID operand 
must be from to 99. The GDUAS macros 
must be in ascending sequence by ID. A 
GDUAS macro found to be out of sequence 
or in error terminates the assembly of 
this macro instruction. 



GDUNUMB 

This operand specifies the number of 
GDUs on this area station. The value 
of this operand can be from 1 to 16 for 
a 2793 and from 1 to 12 for a 279 1 
Model 3. 



Note: The GDUAS macro should only be coded 
for an Area Station with 2798 GDUs attached. 
The GDUAS macro must be coded once for 
every area station with 2798 GDUs attached. 



TGROUP (Transaction Group) Macro 
Instruction 



The TGROUP (Transaction Group) macro 
defines entries in a TGROUP Table. Each 
keyword operand associates a transaction 
list with a transaction code. The maximum 
number of TGROUP macros allowed is 63. The 
TGROUP macro instructions must follow the 
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last AS macro instruction coded. A macro 
sequence error occurs if they do not. Each 
TGROUP macro requires 18 bytes of 2715 
storage. 

The three types of data entry units 
(2795, 2796 r and 2797) require separate 
transaction groups, one for all 2795s con- 
nected to an area station, followed by one 
for all 2796s connected to the same area 
station, and immediately followed by one 



for all 2797s connected to the same area 
station. 

If all three types of DEUs are connected 
to the same area station, the user must 
code three TGROUP macro instructions. The 
first defines the transaction group for the 
2795s, the second defines the transaction 
group for the 2796s, and the third defines 



r 1 
JValue of ID 

Iparameter in 

Ias or GDDAS 

IMacro (Dec- 

iimal) 

1 o 


r 

Valid 

Addresses of 
Area Stations 
(Hexadecimal) 


80 


lvalue of ID i 
Iparameter inl Va l*-^ 
IAS or GDUAS I Addresses of 
1 Macro (Dec- l Area Stations 
Iimal) 1 (Hexadecimal) 
_ + L + 

| 33 j Al 


T 1 

'Value of ID 
•Parameter in 
AS or GDUAS 
•Macro (Dec- 
imal) 

-T — 1 

| 66 


r i 

Valid Addresses j 
of Area j 
Stations | 
(Hexadecimal) | 

i 

C2 | 


1 1 


81 




| 34 | A2 




1 67 


C3 | 


1 2 


82 




| 35 | A3 




| 68 


C4 | 


1 3 


83 




| 36 | A4 




1 69 


C5 | 


| 4 


84 




| 37 | A5 




1 70 


C6 | 


1 5 


85 




| 38 | A6 




1 71 


C7 | 


1 8 


86 




| 39 | A7 




| 72 


C8 | 


1 7 


87 




| 40 | A8 




1 73 


C9 | 


1 8 


88 




| 41 j A9 




| 74 


CA j 


1 9 


89 




| 42 j AA 




1 75 


CB | 


1 io 


8A 




| 43 | AB 




1 76 


CC | 


| 11 


8B 




j 44 | AC 




| 77 


CD | 


1 12 


8C 




| 45 | AD 




| 78 


CE | 


1 13 


8D 




| 46 j AE 




| 79 


CF j 


1 1" 


8E 




| 47 | AF 




| 80 


DO | 


1 15 


8F 




| 4 8 j B0 




1 81 


Dl | 


1 l^ 


90 




j 49 j Bl 




| 82 


D2 | 


1 17 


91 




| 50 | B2 




| 83 


D3 | 


| 18 


92 




| 51 | B3 




| 84 


D4 | 


1 l^ 


93 




| 52 | B4 




| 85 


D5 | 


| 20 


94 




| 53 | B5 




| 86 


D6 | 


1 21 


95 




| 54 | B6 




| 87 


D7 | 


| 22 


96 




| 55 | B7 




| 88 


D8 | 


| 23 


97 




| 56 | B8 




| 89 


D9 | 


| 24 


98 




| 57 | B9 




| 90 


DA | 


j 25 


99 




j 58 | BA 




1 91 


DB | 


1 26 


9A 




| 59 | BB 




| 92 


DC j 


j 27 


9B 




j 60 j BC 




1 93 


DD | 


| 28 


9C 




| 61 j BD 




| 94 


DE | 


( 29 


9D 




| 62 j BE 




1 95 


DF | 


| 30 


9E 




j 63 j BF 




1 96 


E0 | 


1 31 


9F 




| 64 j CO 




| 97 


El | 


| 32 


A0 




| 65 j CI 




| 98 
| 99 


E2 | 
E3 | 



Table 9. AS Macro ID Parameter Decimal and Hexadecimal Equivalents 
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the transaction group for the 2797s. If 
only 2797s are connected to the area sta- 
tion, three TGROUP macros must still be 
coded. The first two define dummy transac- 
tion groups and the third defines the 
transaction group for the 2797s. If only 
2796s are connected to the area station, 
two TGROUP macros must be coded. The first 
will be a dummy and the second will define 
the transaction group for the 2796s. If 
only 2795s are connected to the area sta- 
tion, one TGROUP macro must be coded. The 
dummy groups are required because the 2715 
microcoded routines expect to find the 
groups for the three types of DEUs in the 
same relative main storage position from 
the beginning of the user tables. 



Where two or more TGROUP macros are 
coded for the same area station, the name 
of the first macro must appear in the 
DEGROUP operand of the AS macro for that 
area station. The first operand of any 
dummy TGROUP macro must be identical to the 
first operand of the following non- dummy 
TGROUP macro for the same area station. 
Only one operand need be coded for dummy 
TGROUP macros. 

Figure 27 shows examples of how TGROUP 
macros may be coded . 

The format of the TGROUP macro is: 



r t t i 

| Name | Operation | Operand | 

,. x + < 

| symbol | TGROUP | [TCn=( symbol n[,E] )] j 
l x x J 



symbol 

The name field is required for this 
macro instruction. 



TCn 



If TCn=symboln is coded, the transac- 
tion code "n" is associated with the 
transaction list referred to by "sym- 
boln". At least one TCn operand must 
be present. An MNOTE is issued if all 
operands are omitted. The value of 
"a" must be between 1 and 9 inclusive. 
If TCn=(symboln,E) is coded, it indi- 
cates that this is a transaction 
expansion entry and that the transac- 
tion is associated with the transac- 
tion group referred to by "symboln". 
The transaction group referred to by 
"symboln" must have transaction code 1 
defined. When using the transaction 
expansion function, the format of the 
TGROUP referred to varies for area 
stations and data entry units. The 
first character of data received indi- 
cates the desired entry in the TGROUP 
Table. 



r — t • r 

I Name (Operation | Operands 



h 



H 



* DEFINING TRANSACTION GROUPS FOR BOTH 2795 AND 2796 DATA ENTRY UNITS 



| AS 
GROUP1 j TGROUP 
GROUP2 | TGROUP 



|ID=59,DEGROUP=(GROUP1,5) (TOTAL OF 5 DEU'S) 
|TC1=ATTENDNC,TC2=SETUP,TC3=PR0DN,... <2795 , S) 
|TC1=MESSAGE,TC2=RECEIPT,TC3=ISSUE, ... (2796'S) 



* DEFINING TRANSACTION GROUP FOR 2796 AND DUMMY 
TRANSACTION GROUP FOR 2795 

I I 

| AS |ID=59,DEGROUP=(GROUPl,2) (TOTAL OF 2 2796* S) 

GROUP1 | TGROUP |TC1=MESSAGE (DUMMY TABLE FOR 2795* S) 

GROUP3 JTGROUP | TC1=MESSAGE,TC2=RECEIPT,TC3=ISSUE, . . . (2796* S) 

I I 

* DEFINING TRANSACTION GROUP FOR 2795 ONLY 



GROUP1 



JAS jlD=59,DEGROUP=(GROUPl,3) (TOTAL OF 3 2795*S) 
JTGROUP |TC1=ATTENDNC,TC2=SETUP,TC3=PR0DN, ... (2795 f S) 



* DEFINING TRANSACTION GROUP FOR 2797 AND DUMMY TRANSACTION 
GROUP | FOR 2795 AND 2796 

I I 

JAS |ID=59,DEGROUP=(GROUPl,3) (TOTAL OF 3 2797 f S) 
GROUP1 JTGROUP |TC1=MESSAGE (DUMMY TABLE FOR 2795* S> 
GROUP2 JTGROUP |TC1=MESSAGE 'DUMMY TABLE FOR 2796*S> 
GROUP3 JTGROUP |TCl=MESSAGE,TC2=RECEIPT,TC3=ISSUE, . . . ( 2797 »S) 
X L ; . -. 



Figure 27. Examples of Defining Transaction Groups For Data Entry 
Units 
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Each entry in the transaction group 
referred to points to a transaction 
list. If the transaction expansion is 
for an area station, the first step of 
each of these transaction lists must 
be identical. Transaction expansion 
must be used when generating the tran- 
saction list in which message routing 
is to be specified. A transaction 
expansion entry must not refer to 
another transaction expansion entry. 



ASCTR (Area Station Counter) Macro 



Instruction 



The ASCTR macro is used to generate the 
Area Station Counter Table. The Area Sta- 
tion Counter Table requires two bytes of 
control information for each of up to 100 
area stations, plus two additional bytes, 
for a maximum of 202 bytes. This table is 
truncated at the highest assigned area sta- 
tion, that is, the area station with the 
highest ID. Unassigned area stations below 
the highest assigned area station will each 
have two bytes defined in the Area Station 
Counter Table by BTAM at assembly time. 
The highest assigned area station with 
counters can be any assigned area station 
less than or equal to the highest assigned 
area station that is defined by the AS 
macro operand ID=n. 

Associated with each area station with 
counters is a displacement that provides 
for scanning of the counter table. This 
displacement is used with the counter 
address to provide an index to individual 
counter level control, schedule readout 
and count testing are performed at the 
individual counter level. 

This macro also allows routing specifi- 
cation to be specified for counter overflow 
and count test response messages. All 
counters attached to an area station must 
have these messages routed to the same 
destination. 

The format of the ASCTR macro instruc- 
tion is: 



r t t 

| Name | Oper at ion | Operand 
t _ + + . 




ID=absexp, 
HIGHCTR=absexp, 
ROUTE=yTfCPUT| 
DISKfl 



w 



[,LOG] 
[,ASLOG] 
[,EXTALRM] 
[,NEXTAS=absexp] 



.) 



The macro is coded once for each area sta- 
tion with pulse counters. The maximum num- 
ber of ASCTR macros that can be coded is 
100. 

symbol 

The name field is optional. 

ID 

specifies the decimal representation 
of the address of the area station on 
which pulse counters are available. 
The ID operand is not required for all 
area stations, but the ID operands 
must be in ascending sequence. An ID 
operand out of sequence causes an in- 
valid table assembly. The ID operand 
may have values from to 99. 

BIGHCTR 

specifies the number of the highest 
counter on this area station that 
scheduled readout or count testing may 
be performed on. Values for the 
HIGHCTR operand may range from to 
63, since only 63 counters are allowed 
on any given area station. A value of 
indicates that no area station coun- 
ters use scheduled readout or count 
testing . 



ROUTE 



specifies the destination of counter 
overflow and count test response mes- 
sages. At least one destination must 
be specified, and if only one is spec- 
ified, the parenthesis are not coded. 
The CPU and DISK suboperands are mutu- 
ally exclusive. 



specifies that counter overflow and 
count test response messages should be 
routed directly to the CPU. 



specifies that counter overflow and 
count test response messages should be 
routed to the 2715 integral disk. 



specifies that counter overflow and 
count test response messages should be 
routed to the 27 U0 attached to the 
2715, 

ASLOG 

specifies that counter overflow and 
count test response messages should be 
routed to the area station 1053 print- 
er from which the overflow was 
initiated. 

EXTALRM 

specifies that counter overflow and 
count test response messages should be 
routed to the 1053 printer on the area 
station from which the overflow was 



CPU 



DISK 



LOG 
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initiated, and that the external alarm 
contact closure at the area station 
should be activated. 

The above suboperands specifying routing 
information for counter overflow and count 
test response messages need not be coded in 
any given order. 

NEXTAS 

specifies the decimal representation 
of the address of the next higher area 
station with pulse counters on which 
count testing or readout functions may 
be scheduled. The NEXTAS operand may 
have values from to 99. This 
operand must be coded when HIGHCTR=0 
is coded, but is not necessary for any 
other HIGHCTR value. NEXTAS=0 must be 
coded if there is no higher area sta- 
tion that has pulse counters on which 
count testing or readout functions may 
be scheduled. Unless NEXTAS=0 is 
coded, the NEXTAS operand must be 
greater than the ID operand for this 
ASCTR macro. If the NEXTAS operand is 
greater than 0, the ASCTR macro 
referred to by the value of the NEXTAS 
operand must have a HIGHCTR operand 
value greater than 0. 



CTRGROUP (Counter Group) Macro Instruction 



The CTRGROUP macro is used to generate the 
Counter Table. The macro must be coded 
once for each counter in the system on 
which schedule readout or count test func- 
tions are to be performed. A CTRGROUP 
macro must be coded for the counter whose 
value was specified in the HIGHCTR operand 
of the ASCTR macro instruction for this 
area station. The counter Table is 
organized on a group basis. Each group 
consists of the highest counter with sche- 
duled readout or testing and all counters 
(whether scheduled or unscheduled) below it 
on the same area station. Each group is 
truncated at the highest counter scheduled 
for readout or testing, with a maximum of 
63 counters allowed per area station. The 
Counter Table consists of two bytes of con- 
trol information for each of these counters 
(scheduled and unscheduled) plus two addi- 
tional bytes at the end of the table. Up 
to 50 4 counters may be scheduled for the 
entire system. Each CTRGROUP macro defines 
two bytes of control information for a par- 
ticular counter. 

The format of the CTRGROUP macro in- 
struction is: 



r t t 

| Name | Oper a t ion | Ope rand 
j. + ___ + 



[symbol ] | CTRGROUP 



ctrno, 
tsro] , 
[cttest] , 
ID=absexp 
[ , SROENAB=J 



fNO*!] 
I^YES/ 



f NULL ^ 
(,CTINIT=< NCT ) ] 
LuNASPj 



symbol 

The name field is optional. 



ctrno 



sro 



identifies the counter on which sche- 
dule readout or count testing is to be 
done. The value of the ctrno operand 
must be from 1 to 63; however, all 
values in this range need not be spec- 
ified. All counters must be specified 
in ascending sequence. 

indicates which readout schedule is to 
be used for this particular counter. 
The value of the sro operand must be 
from to 15. A value indicates 
that schedule readout is not to be 
performed for this counter. If the 
sro operand is omitted, no schedule 
readout will be performed. This 
operand must not specify a test sche- 
dule greater than the highest test 
schedule defined by the CTRSCHED macro 
instruction. 



cttest 

indicates which count test schedule is 
to be used for this particular count- 
er. The value of the cttest operand 
must be from to 15. A value indi- 
cates that count testing is not to be 
done. If the cttest operand is 
omitted, count testing is not per- 
formed. This operand must not specify 
a test schedule greater than the high- 
est test schedule defined by the 
CTRSCHED macro instruction. 

ID 

specifies the decimal representation 
of the address of the area station on 
which this particular counter is 
defined. This operand is required. 

SROENAB 

specifies whether or not schedule 
readout is to be automatically started 
by the 2715 at ICPL time. If SROENAB= 
YES is coded, this indicates that 
schedule readout is to be 
automatically started by the 
2715. Coding SROENAB=NO indicates 
that schedule readout is not to be 
automatically started by the 2715; the 
user can initiate schedule readout 



IBM 2790 Data Communications System 179 



with a control request at a later 
time. SROENAB=YES must not be coded 
if the sro operand is or is omitted. 
If the SROENAB operand is omitted, 
SROENAB=NO is assumed. 

CTINIT 

specifies an initial count test condi- 
tion that is to be started by the 2715 
after an ICPL for this counter. Cod- 
ing CTINIT=UNASP indicates that unas- 
signed production testing is to be 
started by the 2715. Coding CTINIT= 
NCT indicates that no-count testing is 
to be started by the 2715. Coding 
CTINIT=NULL indicates that neither 
unassigned nor no-count testing is to 
be started by the 2715 for this count- 
er. CTINIT=UNASP or CTINIT=NCT must 
not be coded if the cttest operand is 
or is omitted. If the CTINIT 
operand is omitted, CTINIT=RESET is 
assumed. Count testing can be 
initiated later by a control request 
if it is not automatically started at 
ICPL time. 



CTRSCHED (Counter Schedule) Macro 
Instruction 



The CTRSCHED macro defines the count test 
schedules and the readout schedules to be 
used by all the pulse counters in the 2790 
System. The count test and readout sche- 
dules may be any of 15 possible schedules 
in the Schedule Table. 

The format of the CTRSCHED macro in- 
struction is: 



« t t 1 

| Name | Operation | Operand I 

I + __ „ + 1 

| [symbol ] | CTRSCHED j sched , . . . | 

L X A J 

symbol 

The name field is optional. 

sched 

specifies a count test schedule or 
readout schedule in minutes. This 
operand must be coded once for each 
schedule interval to be defined, but 
the maximum number of schedules that 
can be coded is 15. The value of this 
operand must be between 1 and 2047. 

GDUTRANS ^Guidance Display Unit Transaction ) 
Macro Instruction 



to the beginning of the table is determined 
from the TECODE operand. A GDUTRANS macro 
must be coded for every transaction code 
that will be used in communication with 
the 2798 GDUs. Each GDUTRANS macro re- 
quires two bytes of 2715 storage. The 
format of the GDUTRANS macro is: 



Name 



Operation 



[symbol]! GDUTRANS 



Operand 



TRCODE=absexp,TRLIST=symboln j 



symbol 

The name field of this macro is op- 
tional. 

TRCODE 

This operand is the value of a trans- 
action code. Each transaction code is 
associated with a particular GDU List. 
The TRCODE operand is used to deter- 
mine the position of an entry in the 
Transaction Table. The value of the 
TRCODE operand must be from 00 to 99. 
However, all values in this range need 
not be specified. The GDUTRANS macros 
must be in ascending sequence by TRCODE 
operands. A GDUTRANS macro found to be 
out of sequence or in error terminates 
the assembly of this macro instruction. 

TRLIST 

This operand associates a GDU trans- 
action list with the transaction code 
indicated in the TRCODE operand. The 
transaction list (TRLIST) referred to 
by •symboln* is associated with the 
TRCODE operand. 

PARAMNUM {Parameter List Number) Macro 
Jjastruction 

The PARAMNUM macro is used to define an 
entry in the Parameter List Number Table 
for use with 2798 GDUs. The Parameter 
List Number macro is coded once for every 
parameter list defined by the user with 
the PARMLIST macro. Up to 127 PARAMNUM 
macros can be coded. This macro requires 
two bytes of 2715 storage. The format 
of the PARAMNUM macro is: 

| Name \ Operation' Operand j 

i j j j 

i [symbol] i PARAMNUM i PLN=absexp,PARMLST=symboln i 



symbol 

The name field of this macro is op- 
tional. 



The GDU Transaction macro is used to build 
an entry in the Transaction Table. The 
position of the entry to be built relative 



PLN 



This operand specifies the parameter 
list number that is to be associated 
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Name , Operation' Operand 



symbol PARMLIST 



L 



f CKLNGTH= (length-absexp, 
errquidance-absexp,...) ] 

/is \ 

r ,CKM0NKY= \ YES / 1 

r ,CKH0D11= (length-absexp, 

posit ion- absexp, 

errquidance-absexp,. .. ) 1 
r ,CKEANGE=(positiona1-absexp, 

position2-absexp , 

hilovchars-absexp, . . .) ] 
r ,LOiGOTD=(absexp,...) ] 
r ,HIGUID= (absexp,...) ] 

/EEBOR) 
T ,ENGETST= (DATA J ] 
T ,CKMOD10= (length-absexp, 

posit ion-absexp, 

errquidance-absexp,. . . ) 1 
T ,CKOB=(position-absexp, 

checkchar 1-hexchar , . . . 

checkcharn-hexchar) ] 
T ,OHGUID=(absexp, .. .) ] 
T ,CKAND= (positionl-absexp, 

posit ion2- absexp, 

checkchar 1-hexchar,. . . 

checkcharn-hexchar) ] 
r,ANDGUID= (absexp,...) ] 
f ,CKNONOM= (positionl-absexp, 

posit ion2-absexp, 

errquidance-absexp ,...)] 
f ,CKKOM= (positionl-absexp, 

posit ion2-abse xp , 

errcrui dance-absexD . . . .\ 1 
(SO) 

r ,TRANSL= \ YES/ 1 

/IS- I 
r ,IDENT=.| YES/ ] 



with the parameter list referred to by 
the PARMLST operand. The value of this 
operand must be between 1 and 127. The 
PARAMNOM macros must be in ascending 
sequence ty PLN. A PARAMNUM macro 
found out of sequence or in error 
terminates the assembly of this macro 
instruction. The value of the PLH 
operand must be 1 greater than the PLN 
operand of the previous PARAMNOM macro. 

PARMLST 

This operand specifies the name of a 
parameter list defined by a PARMLIST 
m aero . 



PARMLIST {Parameter List] 

The PARMLIST macro is used to generate an 
entry in the Earameter List Table. The 
data in the parameter list detfines the 
types of checks that are to be performed on 
a data entry from a 2798 GDO. The entries 
in the Parameter List Table to be used by 
the 2715 are selected by a pointer from 
the Parameter List Number Table. Every 
PARMLIST macro must be referred to by a 
PARMLST operand in the^ FARAMNUM macro. 
The size of the Parameter List entry is 
variable depending on the type of tests 
requested. The format of the PARMLIST 
macro is : 
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symbol 

The name field must be specified and 
must be the same name as defined by the 
PARHLST operand in the PARAMNOM macro. 

CKLNGTH 

This operand causes the 2715 to check 
the data entry to determine if it is 
the length specified. 



length 

This subo 
the data 
from 1 to 
the data 
byte that 
Therefore 
length su 
more than 
entered b 
example, 
any chara 
GDO key bo 
1 to the 



perand specifies the 
entry and its value 

17. Note: The fir 
entry is the Operati 

is generated by the 
, the value specifie 
boperand will always 

the number of chara 
y the GDO operator, 
if the user doesn't 
cters to be entered 
ard he must assign a 
length suboperand. 



length of 
may be 
st byte in 
onal Status 

2715. 
d by the 

be one 
cters 

For 
expect 
from the 

value of 



errguidance 

This suboperand specifies the error 
guidance that is returned to the 2798 
GDU if the data entry length is incor- 
rect. The value of each suboperand 
may be from 1 to 16 and up to 16 
suboperands may be coded. Each sub- 
operand represents a light on the 
guidance panel that is turned on when 
a CKLNGTH error condition exists. (See 
Figure 27.1) Example: If the user 
coded CKLNGTH=(8,2,4,16) and the GDO 
operator entered any number of char- 
acters other than 7, then the error 
guidance lights for lines 2 and 4 on 
the left panel and line 16 on the 
right panel will be turned on. 

CKMONKY 

This operand indicates whether the 
2715 will check to determine if the 
279 8 Monitor key is on. If CKMONKY=YES 
is coded, the 2715 checks that the 
?4onitor key is on. If a Monitor key 
error is encountered when CKMONKY=YES , 
the error guidance, as specified by 
the MONERR operand in the CONFIGUR 
macro, is returned to the 2798 GDU. 
CKM0D11 

This operand causes the 2715 tc perform 
a modulus 11 check on the field speci- 
fied and tests the data in the field to 
ensure that it is numeric. The last 
position in the specified field must 
contain the self-check character. A 
detailed description of modulus 11 
checking can be found in Component 
Description: IBM 2790 Data Com- 
muni c ation System . GA27-3015. 

lenqth 

This suboperand specifies the length 
of the modulus 11 check field. The 



value of this suboperand may be from 1 
to 15. The length does not include the 
self-check character. 

position 

This suboperand specifies the starting 
position of the modulus 11 check field. 
The value of this suboperand may be 
between 2 and 16. 

errguidance 

This suboperand specifies the error 
guidance that is returned to the 2798 
GDO if the modulus 11 check is not 
satisfied. The value of each sub- 
operand may be from 1 to 16 and up to 
16 suboperands may be coded. Each 
suboperand represents a light on the 
guidance panel that is turned on when 
a CKMOD11 error condition exists. (See 
Figure 27. 1) 

Example: CKM0D1 1= (6,2,2,10, 14) will 
result in a modulus 11 check of a 7 
digit field (the seventh digit is the 
self-check digit) starting at GDO data 
entry position 2. If the self-check 
digit does not satisfy the modulus 11 
check, the error guidance lights for 
line 2 on the left panel and lines 10 
and 14 on the right panel will be 
turned on. 

CKRANGE 

This operand causes the 2715 to check 
the specified field to ensure that it 
is neither less than the specified low 
test value nor higher than the speci- 
fied high test value. This check also 
tests the data to ensure that it is 
numeric. 

positionl 

This suboperand specifies the starting 
position of the field for which the 
range check is performed. The value 
may be from 2 to 17. 

position2 

This suboperand specifies the last 
position of the field for which the 
range check is performed. The value 
may be from 2 to 17. 

hilowchars 

This suboperand specifies the high and 
low test digits (0-9) for each char- 
acter in the field. Op to 16 'hilow- 
chars 1 may be coded. If the high and 
low test digits coded for a position 
of a field are the same digit, the 2715 
will check that the test position is 
indeed that digit. 

Example: CKRANGE= (8, 10 ,9 1 ,80,63) will 
cause the 2715 to check for a 3 digit 
number starting in data entry position 



180.2 OS BTAM SRL 



8 and ending in position 10. The 3 
diqit number in positions 8 through 10 
must be greater than or equal to 10 3 
and less than or equal to 986. 

LOWG0ID 

This operand specifies the error 
quidance that is returned to the 2798 
GDO if the specified field in the 
CKRANGE check is lower than the low 
test value. The value of each sub- 
operand may be from 1 to 16 and up to 
16 suboperands may be coded. Each 
value represents a liqht on the 
quidance panel that is turned on when 
the low test condition exits. (See 
Fiqure 27.1) 

Example : From the example associated 
with the CKRANGE operand, the user may 
code L0WG0ID=(8,9) to inform the GDO 
operator if the number he entered at 
the 2798 GDO is less than 103. If the 
number is less, the error quidance 
liqhts for line 8 on the left panel 
and line 9 on the right panel will be 
turned on. 

HIGOID 

This operand specifies the error 
quidance that is returned to the 
2798 GDO if the specified field in 
the CKRANGE check is hiqher than the 
hiqh test value. The value of each 
suboperand may be from 1 to 16 and 
up to 16 suboperands may be coded. 
Each value represents a liqht on the 
quidance panel that is turned on when 
the hiqh test condition exists. (See 
Fiqure 27.1) 

Example : From the example associated 
with the CKRANGE operand, the user may 
code HIGHG0ID= (10,12) to inform the 
GDO operator if the number he entered 
at the 2798 GDO is qreater than 986. 
If the number is qreater, the error 
quidance liqhts for lines 10 and 12 
on the riqht panel will be turned on. 

RNGETST 

This operand indicates the action to 
be taken when the data entry fails to 
comply with a CKRANGE check. If 
RNGETST=EBROR is coded and the CKRANGE 
fails, the data entry is not accepted 
and the desired error quidance is 
returned to the 2798 GDU. If RNGETST= 
DATA is coded and the CKRANGE fails, 
the data entry is accepted and the 
desired error guidance is returned with 
the normal guidance for the next step. 
RNGETST is the only error condition 
for which data can be accepted. 



CKMOD10 

This operand causes the 2715 to perform 
a modulus 10 check en the field speci- 
fied and tests the data in the field to 
ensure that it is numeric. The last 
position in the specified field must 
contain the self-check character. A 
detailed description of modulus 10 
checkinq can be found in Componen t 
D escription: IBM 2790 Data Com- 
munica tion System * GA27-3015 

lenqth 

This suboperand specifies the length 
of the modulus 10 check field. The 
value of this suboperand may be from 1 
to 15. The length does not include 
the self check character. 

position 

This suboperand specifies the starting 
position of the modulus 10 check field. 
The value of this suboperand may be 
from 2 to 16. 

errguidance 

This suboperand specifies the error 
guidance that is returned to the GDU 
if the E ,v -du 1 us 1 ch^^k is n^t £ a ti°— 
fied. Each value of this suboperand 
may be from 1 to 16 and up to 16 
suboperands may be coded. Each sub- 
operand represents a light on the 
guidance panel that is turned on when 
CKMOD10 error condition exists. (See 
Figure 27.1) 

Examp le: CKMOD10= (4,1, 16) will result 
in a modulus 10 check of a 5 digit field 
(the -fifth digit is the self-check 
digit) starting at GDO data entry 
position 1. If the self-check digit 
does not satisfy the modulus 10 check, 
the error guidance light for line 16 
on the right panel will be turned on. 

CKOR 

This operand causes a check by the 2715 
to ensure that the character received 
in the position specified in the data 
entry is one of the check characters 
specified by the user. There may be 
one to five unigue check characters 
associated with this test and enly one 
must compare. 

position 

This suboperand specifies the position 

in the data entry that is checked for 

the character comparison. The value 

of this suboperand may be from 2 to 17. 

checkchar 1 , checkc harn 

Each suboperand defines a check char- 
acter. From 1 to 5 of these sub- 
operands may be coded. The value of 
the suboperand may be the hexadecimal 
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equivalent of any of the characters: 
A-Z, 0-9, or any of the special char- 
acters: .$&-/, #"9=:?!;* + 
SPACE TAB NEWIINE LINEFEED. (See Table 
9.1) 

Example: CK0R=(3,D3,F5,7C,61) will 
check the fourth data entry position 
(the third character entered by the 
operator) to ensure that it contains one 
of the characters: L, 5,9, or /. If the 
character is not one of the four speci- 
fied, the user may code the following 
operand. 

ORGUID 

This operand specifies the error 
guidance that is returned to the 2798 
GDO if the CKOR check indicates an error. 
The error occurs when the character in 
the specified data entry position does 
not equal any of the check characters. 
The value of each suboperand may be 
from 1 to 16 and up to 16 suboperands 
may be coded. Each value represents a 
light on the guidance panel that is 
turned on when a CKOE error condition 
exists. (See Figure 27.1) 



Example : 
with the 
code ORG 
operator 
entered 
to one o 
If the c 
error gu 
4 on the 



From the example associated 
CKOR operand, the user may 
0ID= (2,3,4) to inform the GDU 

if the third character he 
at the 2798 GDU is not equal 
f the specified characters, 
haracter is not equal, the 
idance liqhts for lines 2,3, 



and 



left panel will be turned on. 



CKAND 

This operand causes the 2715 to check 
the characters received in the con- 
secutive positions specified to ensure 
that they match all of the specified 
check characters. 

positionl 

This suboperand specifies the startinq 

position of the field for which the 
x CKAND compare is started. The value 

of this suboperand may be from 2 to 17. 

position2 

This suboperand specifies the last 
position of the field for which the 
CKAND compare occurs. The. value of 
this suboperand may be from 2 to 17. 

checkcharl ,checkcharn 

Each suboperand defines a check char- 
acter and from 1 to 16 characters may 
be coded. The value of the suboperand 
may be the hexadecimal equivalent of 
any of the characters: A-Z, 0-9, or 
any of the special characters: . $ & 
-/,#a "=:?!;*+ SPACE TAB 
NEWLINE LINEFEED. (See Table 9.1) 



E xample : CKAND= (7, 10,C2,E3,C1, E4) will 
check the consecutive data entry posi- 
tions 7 throuqh 10 to ensure they con- 
tain the characters E, T, A, and M in 
that order. If an error occurs, the 
user may code the following operand. 
If the hexadecimal value X'00 1 is used 
as a check character, the character in 
the corresponding position of the data 
field will not be checked. 

Example : CKAND=(2, 5,C1,C2,00,C3) will 
check data entry positions 2, 3, and 5 
to ensure they contain the characters 
A, B, and C in that order. The char- 
acter in data entry position 4 will 
not be checked. 

ANDGOID 

This operand specifies the error 
guidance that is returned to the 2798 
GDO if the CKAND check indicates an 
error. This error occurs when the 
characters received in the consecutive 
positions specified do not match all of 
the specified check characters. The 
value of each suboperand may be from 1 
to 16 and up to 16 suboperands may be 
coded. Each value represents a light 
on the guidance panel that is turned 
on when a CKAND error condition exists. 
(See Figure 27.1) 

Example : From the example associated 
with the CKAND operand, the user may 
code ANDG0ID=9 to inform the GDO 
operator if the specified characters do 
not match. If the characters do not 
match, the error guidance light for 
line 9 on the right panel will be 
turned on. 



CKNCNOM 

This operand causes the 2715 to check 
a specified field to ensure that no 
numeric characters are received. 

positionl 

This suboperand specifies the starting 
position of the field to be checked. 
The value may be from 2 to 17. 

position2 

This suboperand specifies the last 
position of the field to be checked. 
The value may be from 2 to 17, but 
must be greater than or equal to the 
'positionl* suboperand. 

errquidance 

This suboperand specifies the error 
quidance that is returned to the GDO 
if a numeric character is received and 
a CKNONUM check is performed. The 
value of each suboperand may be from 
1 to 16 and up to 16 suboperands may 
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be coded. Each value represents a 
light on the guidance panel that is 
turned on when the CKNONUM error 
condition exists. (See Figure 27.1) 

Example ; CKNONUM= (2, 17, 3,6) causes the 
2715 to check positions 2 through 17 of 
the GDU data entry to ensure that all 
the characters are non-numeric. If any 
of the characters in the specified 
positions are numeric, the error guid- 
ance lights for lines 3 and 6 on the 
left panel will be turned on. 

CKNUM 

This oeprand causes the 2715 tc check 
a specified field to insure that all 
numeric characters are received. 

positionl 

This suboperand specifies the starting 
position of the field tc be checked. 
The value may be from 2 to 17. 

position2 

This suboperand specifies the last 
position of the field to be checked. 
The value may be from 2 to 17, but 
must be greater than or egual to the 
•positionl* suboperand. 
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IDENT 
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Note: Only three of the following 
seven check operands can be coded on a 
PARMLIST macro: 

• CKM0D11 



errguidance 
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if a non-numeric cha 
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ifies the error 
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• CKRAN6E 

• CKHOD10 

• CKOR 

• CKAND 

• CKNCNOH 

• CKNUM 



E xample : CKNUM= (8,8,15) causes the 2715 
to check position 8 of the GDU data 
entry to ensure that the character in 
this position is numeric. If the char- 
acter in the specified position is non- 
numeric, the error guidance light for 
line 15 on the right panel will be 
turned on. 



TRANSL 

This operand indicates if the translate 
function will be performed on the trans- 



The CKLNGTB and CKMONKY operands may be 
coded on any PARMLIST macro, regardless 
of how many other check operands are 
coded. 
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DISPGUID {Display Gu i dance! Macro 
Instruction 



! Name 



-i I 

j Operation' Operand 



The DISPGUID macr 
display guidance 
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guidance address 
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DISPGUID macro re 
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ty the 2715 to address 
lay guidance messaqe 
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Name 



i Operation Operand 



i I I 

[ f symbol 1 j DISPGUID J DISEMSG='textT , SOPPRES; 



(111) 
= \ NO /] 



symbol 

The name field of this macro is op- 
tional. 

DISPMSG 

This operand defines a user specified 
display guidance message. The text 
must not exceed 16 characters. 

SUPPRES 

This operand indicates whether the 
display guidance message is returned 
to the 2715 after it is displayed at 
the GDU display guidance and the 
operator presses the GDU Enter Key. 
Coding SUPPEESS=YES or, omitting the 
operand indicates that the defined 
data that was written to the GEU by 
the 2715 is net to be returned with 
the operator added data to the 2715. 
Only that data inserted by the GDU 
operator will be returned. Coding 
SUPPRES=NO will cause the defined 
data and operator inserted data to 
be returned, up to a maximum of 16 
characters. If the operator inserted 
data plus the defined data exceed 16 
characters, the defined data will be 
moved to the left and the right most 
characters lost. 

The maximum number of DISPGUID macros 
that can te issued depends only on the 
user table size limitation. 

TRANS LAT -(Tra n s late T able) Macro Inst r uction 

The TRANSLAT macro instruction builds an 
entry in the Translate Table. A maximum 
of eight TRANSLAT macros may be coded and 
3 to 16 bytes of 2715 storage are required 
for each. This macro is coded once for 
each character that is translated. The 
format of the TRANSLAT macro is: 



[symbol]j TRANSLAT J TRANSCH=hexchar ,TRANTXT= ' text' | 



symbol 

The name field of this macro is op- 
tional. 

TRANSCH 

This operand defines the character 
that is translated. The value for 
this operand is the hexadecimal 
eguivalent of any of the characters: 
A-Z, 0-9, and any of the special char- 
acters: .$£-/, #3"=:?!;* + 
SPACE TAB NEWLINE LINEFEED. (See 
Table 9.1) 

TRANTXT 

This operand defines the user specified 
translate text. 



Example : An asse 
reguired to enter 
a 2798 GDU each t 
tests a specific 
mer coded the fol 
macro: TRANSCH=C 
CLUTCH' . The 271 
entered for this 
and replaces the 
SPEED CLUTCH 1 . T 
played at the 279 



mbly line worker is 

the character C from 
ime he builds and 
clutch. The program- 
lowing in the TRANSLAT 
3,TBANTXT= ! 4 SPEED 
5 checks the character 
Translate transaction 
C with the text '4 
he text is now dis- 
8. 



Note : Each character assigned to a 
text must be unigue, that is assign a 
different character to each text. 



TRLIST (Transaction List) Macro Instruction 

The Transaction List macro is used with the 
Area Station List macro, the Data Entry 
Unit List macro, and the GDU list macro to 
define a transaction. When the transaction 
is initiated by an area station, the Trans- 
action List macro is followed by one or 
more ASLIST macros. When the transaction is 
initiated by a data entry unit, the TRLIST 
macro is followed by one or more DEULIST 
macros. The DEULIST macros may be followed 
by a CTRLIST macro. When a transaction is 
initiated by a 279 8 GDU, the Transaction 
List macro is followed by one or more GDULIST 
macros. The first transaction list must be 
for all of the IBM 1035 Badge Readers. This 
consists of a TRLIST macro instruction 
followed by one DEULIST macro instruction. 

The Transaction Lists created by the 
TRLIST, ASLIST, DEULIST, GDULIST and 
CTRLIST macro instructions are composed 
of two elements: a header, and either 
an internal message or from one to sixteen 
data-entry steps. The header information 
is provided in the TRLIST macro 
instruction. The TRLIST macro must follow 
the last TGROUP macro. 
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The TRUST macro is used to qenerate 
the transaction headers for GDU lists and 
can be referred to by the GDUTRANS macro. 

Message routing can be specified (NULL 
or absexpl coded) only when the TRLIST is 
part of a transaction expansion. Message 
routing means that explicit or explicit/ 
implicit text is to be routed to a 1053 
printer on an area station. The only ways 
the user can specify message routing are to 
code ROUTE=NULL or ROUTE=absexpl in the 
TRLIST macro. Coding ROUTE=DISK, CPU, or 
LOG does not imply message routing, but 
that the transaction is to be routed tp the 
specified ROUTE parameter. Transaction 1 
routing does not mean routing to an area 
station 1053 printer. 

Each TRLIST macro requires [5 ♦ (text 
length +1)] bytes of 2715 storage. The 
format of the TRLIST macro is: 



Name 
[symbol] 



Operation 



TRLIST 



Operand 



TRID=absexpl 



[,ROUTE=[{^ K }] [,LOG] [{;^ xp }]j 
lYESJJ 



TEXT={yesD[' 



INQDISP= 



DEMOD10 



CYESjJ 



DEMOD11: 



= lYEsiJ 



TRID=absexp1 

specifies a trans 
The user assigns 
to "absexpl," and 
value in the tran 
of the transactio 
and deferred data 
"absexpl" must be 
with the other TR 
in the program; h 
omitted (a warnin 
qenerated at asse 
the user receives 
header with a mes 
identifier allows 
which TRLIST macr 
in the 2715. 



action identif 
a value from 

the 2715 plac 

sacticn contro 

n header for p 

The value c 

in ascending 
ID parameters 
owever, values 
g messages is 
mbly time) . S 

the transacti 
sage, the tran 

him to determ 
o processed th 



ler. 

to 159 
es this 
1 byte 
riority 
f 

order 
coded 

may be 

ince 
on 

saction 
ine 
e data 



symbol 

The name field is required for this 
macro instruction. 

ROUTE 

The ROUTE operand specifies the 
destination of the data records 
(transactions) that originate on one 
of the devices attached to the 2715. 
At least one destination must be spec- 
ified, and if only one is specified 
the parentheses are not coded. 



DISK 



CPU 



LOG 



NULL 



absexp2 



TEXT= 



WO 
YES 



specifies that the transaction 
should be routed to the 2715 
integral disk; that is, the 
message is a deferred message. 

specifies that the transaction 
should be routed directly to 
the CPU; that is, the message 
is an inquiry or a priority 
message. 

specifies that the transaction 
is to be routed to the 2740 
attached to the 2715. 

specifies that the first data 
entry of the transaction is 
the destination address of the 
message, that is, the hexadec- 
imal address of an area sta- 
tion. The message is to be 
routed to the printer attached 
to that area station. 

specifies the decimal repre- 
sentation of the address of an 
area station (see Table 9) . 
The message is to be routed to 
the printer attached to that 
area station. 

Note : The suboperands of the 
ROUTE parameter may be coded 
in any order. If one is 
omitted, commas need not be 
coded to indicate the 
omission. 



specifies that a mesi?anp ri*»finpd in a 

subsequent ASLIST, DEULIST, GDULIST or 
CTRLIST macro is to be routed. 
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INQDISP 

The INQDISP operand indicates whether 
this transaction is an Inquiry Display 
transaction. Coding INQDISP=YES speci- 
fies that inquiry display will be used 
in this transaction. Codinq INQDISP=YES 
requires that INQDISP=YES be coded in 
the CONFIGDE macro. Codinq INQDIST=YES 
requires one extra GDOLIST macro to end 
this transaction list. See GDDLIST 
macro description for details. 

DEMOD10 

The DEMOD10 operand indicates whether 
the 2715 will perform a Modulus 10 
self check on all or part of a data 
entry from an area station or data entry 
unit. Coding DEMOD10=YES specifies 
that Modulus 10 self checking will be 
performed on a data entry in this trans- 
action. Codinq DEMOD10=YES requires 
CORE=32 to te coded in the CONFIGUR 
macro. This operand is mutually 
exclusive with the DEMOD11 operand. 
This operand does not apply to the 
2798 GDU. 



checkinq resumes with the new identi- 
fiers which may or may not be unique 
identifiers. If non-unique identifiers 
exist, the user must also check the 
device address in the transaction 
header to determine if the transaction 
is for a 2798 GDU. All TRLIST macros 
for GDD transactions and the associated 
GDDLIST macros should be the last 
macros coded before STEND. (See 
Appendix M) 



Example -; This example represents a 
series of 260 TRLIST macros with all 
other macros omitted: 

TRLISTO TRUST TRID=0 , ROUTE=DISK 
TRLIST1 TRLIST TRID=1, ROUTE=CPU 
TRLIST2 TRUST TRID=2, EOUTE=DISK 



TRLST159 TRLIST TRID=1 59 ,R0UTE=CPU 
GDUTRO TRLIST TRID=0, ROUTE=DISK, GD0=YES 



DEMOD11 

The DEMOD11 operand indicates whether 
the 2715 will perform a Modulus 11 self 
check on all or part of a data entry 
from an area station or data entry unit. 
Codinq DEM0D11=YES specifies that 
Modulus 11 self checkinq will be per- 
formed on a data entry in this trans- 
action. Codinq DEM0D11=YES requires 
CORE=32 to be coded in the CONFIGUR 
macro. This operand is mutually 
exclusive with the DEMOD10 operand. 
This operand does net apply to the 
2798 GDU. 



GDUTR99 TRLIST TRID=99 , ROUTE=CPU , GDU= YES 



GDU 



This operand 
transactions 
specified by 
range of iden 
and the addit 
from to 99. 
the TRID oper 
for a maximum 
identifiers t 



allows for 100 additional 
identifiers (TRID) to be 
the user. The normal 
tifiers is from to 159 
ional identifiers ranqe 
Codinq GDU=YES resets 
and checkinq and allows 

of 100 more transaction 
o be specified. The 



ASLIST (Area Station List) Macro 
Instruction 



The Area Station List macro instruction is 
used to define one step of a transaction 
list for a 2791 Area Station. One to six- 
teen ASLIST macros may follow a TRLIST 
macro. If more than sixteen are used, the 
excess macros are flagged as errors in the 
assembly. Each ASLIST macro requires 5 
bytes of 2715 storage. If the message 
operand is coded, the ASLIST macro requires 
additional storage of length-of-text-plus- 
one bytes. The format of the ASLIST macro 
instruction is: 



t r 

i Operation | Operand 



r symboll I ASLIST 
I 



device-code , N0RH= absexp 

|",LENGTH=(absexp1,absexp2) ] 

[ ,BIGIT=(absexp1,absexp2,absexp3) ] 

r ,ENTRY=\_a}ir ,MSG='text« ] 

T ,INQDISP=absexp 

[ ,BODOL0S= (absexp 1,absexp2, absexp 3) ] 



[ ,SELTRAN= 



m 
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symbol 

The name field of this macro instruc- 
tion is optional . 

device- code 

This operand indicates the device to 
be activated at the 2791 Area station. 
The accepted values are: 

B - Badge 

C - Card 

M - Manual entry 

- OEM input 

NORM 

This operand indicates which guidance 
light on the area station should be 
switched on if no error is recognized 
in the previous step of the transac- 
tion (see Table 10 ). (The first step 
is considered to be the acceptance of 
the transaction code.) This value 
must be from 1 to 31. 

LENGTH 

absexpl - specifies the significant 
length of the data entry (the number 
of data characters excluding blanks) . 
This may be any value from to 81; 
the maximum length depends on the 
input device — card reader, badge 
reader, manual entry, OEM entry. 

absexp2 - specifies which guidance 
light should be switched on if the 
number of characters received is dif- 
ferent from the value specified by 
"absexpl". The value of "absexp2"- 
must be from 1 to 31. (See Table 10.) 

No length error checking takes place 
if the LENGTH parameter is not coded. 
If the LENGTH parameter is omitted, or 
if zero is specified, no significant 
length checking is done. 



DIGIT 



absexpl - specifies the position or 
column of the value in the data entry 
that is to be compared with the value 
specified in "absexp2". The value of 
"absexpl" must be from 1 to 15. 



Note ; The actual position of the 
first byte of data received from the 
input devices depends on the device. 
For the local badge reader, card read- 
er, keyboard, and OEM devices on the 
2791, the first byte of data is in 
position 2. (Position 1 is the Mon- 
itor key. ) 



absexp2 - specifies a value, from to 
9, to be compared with a specified 
value in the data entry. 



absexp3 - indicates which guidance 
light should be switched on if the 
specified values do not match. This 
value must be from 1 to 31. (See 
Table 10.) 



If this operand is omitted, no error 
checking takes place. 

The DIGIT operand can not be coded if 
EEMOD10=YES or DEM0D11=YES in the 
TRUST macro. 



ENTRY 

This operand allows a processing step 
to accept multiple input data entries 
until the operator calls for the next 
step to be activated. If the ENTRY 
operand is omitted, or if ENTRY=1 is 
coded, there will be only one data 
entry for this step. If ENTRY=M is 
coded, this step may be repeated until 
ended by the operator. User- 
documented instructions to the opera- 
tor must reflect the fact that the 
total number of bytes of data entered 
must not exceed the maximum transac- 
tion length of 247. This operand must 
not be coded on the first or only 
ASLIST macro following a TRLIST macro. 



INQDISP 

This operand specifies which guidance 
light on the area station is turned on 
when an Inquiry Display transaction is 
received by the 2715 and routed to the 
CPU as priority data. This is a user 
specified guidance such as "Inquiry in 
Process." The value of the operand 
must be from 2 to 31 (0 is reserved for 
Select Transaction and 1 is reserved 
for an aborted inquiry) . Coding this 
operand requires INQDISP=YES to be coded 
in the TRLIST macro for this transaction. 

MODULUS 

This operand indicates the field in this 
data entry for which the 2715 performs 
either a Modulus 10 or Modulus 11 self 
check algorithm. Error guidance is also 
specified when the self check fails. 

absexpl- Specifies the starting position 
of the field for the modulus check. 

absexp2- Specifies the length of the field 
on which the modulus check is performed. 
The value can be from 1 to 15. This length 
does not include the self check character. 

absexp3- Specifies which guidance light 
is turned on if the modulus check fails. 
This value must be from 1 to 31. 
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Note : The MODULUS operand can not be 
cocted unless DEMOD10=YES or DEM0D11=YES 
is coded in the TRLIST macro. This 
operand is mutually exclusive with the 
DIGIT operand. 

SELTRAN 

This operand allows the Select Trans- 
action light on the 2791 Area Station 
to be turned on at the completion of 
a transaction, instead of the first 
guidance light. Coding SELTRAN=YES 
on any ASLIST macro after the first 
ASLIST macro in any transaction causes 
the Select Transaction light to be 
turned on at the completion of a 
transaction. If the operand is 
omitted or if SELTRAN=NO is coded, 
the first guidance light is turned on 
at the completion of the transaction. 
SELTRAN-YES can not be coded on the 
first ASLIST macro in a transaction. 



MSG= , text t 

Defines a user-specified message to be 
routed. The text must not exceed 127 
characters. The destination of the 
message was specified in the preceding 
TRLIST macro instruction. This 
operand may only be specified for the 
last ASLIST macro associated with any 
TRLIST macro. TEXT=YES must have been 
coded in the TRLIST macro. 



H 



1 


31 




30 




29 


| 28 


1 


27 




26 




25 


| 24 


1 


23 




22 




21 


| 20 


i 


19 




18 




17 


|16 


i 


15 




14 




13 


|12 


i 


11 




10 




9 


18 


i 
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6 
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| SELECT 


i 


3 
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| TRANS- 
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| ACTION 


i 
i 


ON 
LINE 




REPEAT 
CLEAR 




IN 
PROCESS 


|CARD 
|IN 

















DEULIST (Data Entry Unit List) Macro 
Instruction 



The Data Entry Unit List macro is used to 
define one step of a transaction list for a 
data entry unit or to define a transaction 
for the 1035 Badge Reader. For a 2796 and 
2797 DEU one to thirteen DEULIST macros and 
for a 2795 DEU one to sixteen DEULIST 
macros may follow a TRLIST macro. If more 
than sixteen are used, the excess macros 
are flagged as errors in the assembly. 
Each DEULIST macro requires 5 bytes of 2715 
storage. If the MSG operand appears, the 
DEULIST macro requires additional storage 
of length-of-text-plus-one bytes. The for- 
mat of the DEULIST macro instruction is: 



rr t t - - - 1 

j Name 'Operation' Operand j 


! [symbol] ! DEULIST [ [DIGIT= (absexpl,absexp2) ] J 
| | j [,LENGTH=absexpl] J 
i » i [,MSG='text'] i 
j ! ! [,MODULUS=(absexpl,absexp2) ] \ 
J [ j [,DIGIT2=(absexpl,absexp2) ] ' 



Table 10. ASLIST Operand Values for Gui- 
dance Lights by Position on the 
Area Station 



SytiusGx 

The name of the DEULIST macro is 
optional. 

DIGIT 

absexpl - specifies the position or 
column of the value in the data entry 
that is to be compared with the value 
specified in "absexp2". The value of 
"absexpl" must be from 1 to 15. If 
the specified values do not match, 

the red error button on the data entry 
unit pops up, and the operator must 
reenter correct data. 

Note : The actual position of the 
first byte of data received varies 
depending on the device. For a data 
entry unit (2795, 2796, 2797), the 
first byte of data is in position 3. 
Positions 1 and 2 are the Monitor key 
and setting of the right-hand knob. 
For a 1035 badge reader, the first 
byte of data is in position 1. 

absexp2- Specifies a value, frcm to 
9, to be compared with a specified 
value in the data entry. 

The DIGIT operand can not be coded 
if DEMOD10=YES or DEMOD1 1=YES is coded 
in the TRLIST macro for this trans- 
action. 
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LENGTH 

absexpl — specifies the significant 
length of the data entry (the number 
of data characters excluding blanks) . 

To determine the required data entry 
length, use the following formulas 
(see Programming Notes for data entry 
format) : 



1035: Reads a badge = value from 1 to 
10 or 

2795: ID+RK+CDBD = value from 2 to 12 
or 

2796: MON+TRK-frCDBD+BLK+BRK+ROCK = 
value from 8 to 18 or 

2797: MON+RK+CDBD+MAN = value from 8 
to 18 or 
BLK = bottom left knob (1 byte) 
BRK = bottom right knob (1 
byte) 

CDBD = card or badge (0 to 10 
bytes) 

ID = ID code (1 byte) 
MAN = manual entry (6 bytes) 
MON = Monitor key (1 byte) 
RK = right knob (1 byte) 
ROCK = digit-rocker switches (4 
bytes) 
TRK = top right knob (1 byte) 

If zero is specified or if the LENGTH 
parameter is omitted, no significant 
length check is performed. If an in- 
valid length is detected, the red 
error button pops up . 

MODULUS 

The MODULUS operand indicates the field 
in this data entry for which the 2715 
performs either a Modulus 10 or Modulus 
11 self check algorithm. The MODULUS 
operand can not be coded unless either 
DEMOD10=YES or DEM0D11=YES is coded in 
the TBLIST macro for this transaction. 
This operand is mutually exclusive 
with the DIGIT operand, but not the 
DIGIT2 operand. 

absexpl- Specifies the starting position 
of the field for which the modulus check 
is performed. The value can be from 2 
through 16 corresponding to the last 
data positions in the data entry. 

absexp2- Specifies the length of the 
field for which the modulus check is 
performed. The value can be from 1 
to 15. This length does not include the 
self check character. 

DIGIT2 

The DIGIT2 operand specifies a position 
in the data entry that is checked by 
the 2715 for a specified value. This 
operand can be coded when either the 
DIGIT operand or the MODULUS operand 
is coded or when neither is coded. 



absexpl- Specifies the position of the 
value in the data entry that is compared 
with the value specified in "absexp2." 
The value of "absexpl" must be from 1 
to 15. If the specified values do not 
match, the red error button on the data 
entry unit pops up and the operator must 
reenter the correct data. 

absexp2- Specifies a value from to 9 
that is compared with a specified value 
in the data entry. 



MSG 



Defines a user-specified message to be 
routed. The text must not exceed 127 
characters. The destination of the 
message was specified in the preceding 
TRLIST macro instruction. This 
operand may be specified only for the 
last DEULIST macro associated with any 
TRLIST macro. TEXT=YES must have been 
coded in the TRLIST macro. If a 
CTRLIST macro is coded, the MSG 
operand may be specified only in the 
CTRLIST macro. 



GDULIST (Guidance Display Unit List) Macr o 
Instruction 

The GDULIST macro instruction is used to 
define one step of a GDU transaction list 
for a 2791 or 2793 Area Station with 2798 
GDUs attached. One to sixteen GDULIST 
macros may follow a TRLIST macro. If more 
than sixteen are coded, the excess macros 
are flagged as errors in the assembly. 
Each GDULIST macro reguires 5 bytes of 
2715 storage. If the MSG operand is 
coded, the GDULIST macro reguires 
additional storage egual to the length 
of the MSG text. If an inguiry display 
transaction (INQDISP=YES in the TBLIST 
macro) is coded, one extra GDULIST macro 
must be coded as the last entry of the 
transaction list. This macro supplies 
normal guidance light number and display 
message number cnly and initiates no 
checking or parameter list references. 

The format of the GDULIST macro is: 




Operation i Operand 



r- 



PARABNO=absexp[ , (NOBGUID=absexp,. 
DISPHSG=sy«bol) ] 
IDENT=absexp /If ,HSG=' text' ] 

[,EHTRY= M ] 



ran* 



.)] 



symbol 

The name field in this operand is 
optional. 
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PARAMNO 

This operand indicates the parameter 
list number to be used by the 2715 to 
qet to a parameter list that defines 
the type of checks to be performed on 
the data entry for this GDD step. 
The value of this operand must be 
defined in a PLN operand of the 
PARAMNUM macro. The value of the 
PARAMNO operand must be from 1 to 127. 



NORGUID 

This operand 
quidance that 
operator quid 
when this ste 
of this opera 
and up to 16 
Each subopera 
the quidance 
on when this 
entered. 



indicates the normal 
will be sent to the 
ance panel on the GDD 
p is entered. The value 
nd can be from 1 to 16 
suboperands can be coded, 
nd represents a liqht on 
panel that will be turned 
particular step is 



DISPMSG 

This operand specifies the name of the 
DISPGOID macro that defines the message 
to be displayed on the 2798 Display 
Guidance Panel when this step in the 
GDU transaction is entered. 

I DENT 

This operand specifies an identifier 
in the Identifier Tatle to be displayed 
on the 2798 Display Guidance Panel 
when this step in the GDU transaction 
is entered. The value of this operand 
must be between and 99 and must be 
less than the value of the IDCCUNT 
operand of the CONFIGUR macro (except 
when the IDCOUNT=0. The DISPMSG 
and IDENT operands are mutually 
exclusive. Every time the 2715 is 
ICPLed, the predefined text 'NOT USED' 
will be defined in every identifier in 
the identifier table. The user should 
use the Store Identifier function prior 
to usinq the Get Identifier function 
after an ICPL if he expects useful 
information to be in the identifier 
table. 



Exam ple; If the 
CONFIGUR macro in 
identifiers in th 
(IDC0UNT=6) , and 
display the fifth 
step associated w 
entered, then he 
this macrc (IDENT 
identifier availa 



IDCOONT operand of the 
dicates there are 6 
e Identifier Table 
the user wants to 

identifier when the 
ith a GDULIST macro is 
must code IDENT=H in 
=0 is the first 
ble) . 



N ote : The user is made aware of the 
fact that he has not stored any text 
in a particular Identifier since he 
performed his table load by havinq 
the text »NOT USED 1 defined in every 
Identifier in the Identifier Table at 
assembly time. When the user displays 
a particular Identifier as specified 
by the IDENT operand of a GDULIST 
macro and sees the text 'NOT USED," 
he should realize that he has never 
stored any text in the Identifier. 



MSG 



Defines a user-specified message to be 
routed. The text must not exceed 127 
characters. The destination of the 
messaqe was specified in the precedinq 
TRLIST macro instruction. This operand 
may be specified only for the last 
GDULIST macro associated with any TRLIST 
macro. TEXT=YES must have been coded in 
the TRLIST macro. If a CTRLIST macro is 
coded, the MSG operand may be specified 
only in the CTRLIST macro. 

ENTRY 

This operand allows a processing 
step to accept multiple input data 
entries until the operator calls for 
the next step to be activated. If 
the ENTRY operand is omitted, or if 
ENTRY=1 , there will be only one data 
entry for this step. If ENTRY=M, 
this step may be repeated until 
ended by the operator. User doc- 
umented instructions to the operator 
must reflect the fact that the total 
number of bytes of data entered must 
not exceed the maximum transaction 
length of 247. This operand must 
not be coded on the first or only 
GDULIST macro following a TRLIST 
macro. 



CTRLIST (Counter List) Macro Instruction 



The CTRLIST macro is used to define the 
last step of a transaction for a data entry 
unit that is attached to a 2793 Area Sta- 
tion with pulse counters. This macro 
generates a five-byte data entry step for 
pulse count. The counter appendage step 
must be the last step in a transaction. 
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The format of the CTRLIST macro instruc- 
tion is: 



r t t 

| Name | Operation | Operand 




DEVCOD= (B 

CTRADR=jIMP( , 

CTRRD= tSINSLEJ , 

'GROUP J 
CTTEST= (NULL ) , 
JSETNCT f 
)SETUNAS( 
' RESET ' 
CTROP= /READ 
SET 

READSET ' 
READRST* 

rdresid' 

NULL 
[,MSG='text v ] 



symbol 

The name field is optional. 



DEVCOD 

indicates the way the data entry is 
entered at the DEU. If DEVCOD=B is 
coded, a badge will be used; if 
DEVCOD=C, a card will be used; and if 
DEVCOD=M, manual entry will be used. 
M may not be specified for a 2795 DEU. 

CTRADR 

indicates whether implicit or explicit 
counter addressing is to be used. 
Coding CTRADR=EXP indicates that 
explicit counter addressing is to be 
used. Explicit counter addressing is 
entered within the last data entry. 
This entry is retained as data in 
normal transaction assembly. Address- 
ing is specified as decimal digits 
with values from 1 to 63. 

Coding CTRADR=IMP indicates that 
implicit counter addressing is to be 
used. Implicit counter addressing is 
valid only from a DEU and implies that 
only the first 32 counters can be 
used. For implicit counter address- 
ing, the device address of the DEU 
initiating the request (from X'CO* to 
X«DF*) will be converted to a counter 



182.4 OS BTAM SRL 



device address (from X'l* to x'20') 
and used as the implied address. 

CTRRD 

indicates how counters are to be read. 
If CTRRD=SINGLE is coded, the counters 
are to be interrogated individually. 
Coding CTRRD=GROUP indicates that 
counters are to be interrogated on a 
group basis. Group reads are done on 
a from/to basis with a 16- counter 
maximum. 

CTTEST 

specifies the count test options. 
Coding CTTEST=NULL indicates that 
there is no change in the present 
count test condition. Coding CTTEST= 
SETNCT indicates that no-count test 
will be enabled and the unassigned 
production test will be disabled. 
Coding CTTEST=SETUNAS indicates that 
the no-count test will be disabled and 
the unassigned production test will be 
enabled. Coding CTTEST=RESET disables 
all testing conditions. 



CTROP 



indicates the type of counter request 
to be performed, coding CTROP=READ 
indicates that the counters are not to 
be reset after a single or group read. 
Coding CTROP=SET indicates that the 
counters are to be set to the value 
specified by the user at the DEU. 
Coding CTROP=READSET indicates that 
the counters are set to the value 
specified by the user at the DEU after 
a single or group read. SET and READ- 
SET are valid only for 2796 and 2797 
DEUs and may not be routed to the 
AS LOG printer. Coding CTROP=READRST 
indicates that the counters are to be 
reset to zero after a single or group 
read. Coding CTROP=RDRESID indicates 
a read residual function, after which 
the counters are not reset. Coding 
CTROP=NULL indicates that no read or 
set counter functions will be per- 
formed in this transaction. 



defines a user-specified message to be 
routed. The text must not exceed 127 
characters. The destination of the 
message was specified in the preceding 
TRLIST macro instruction. This TRLIST 
macro must also have specified 
TEXT=YES. 



STEND (Statement End) Macro Instruction 



The Statement End macro instruction is used 
with or without a name and must have no 
operands. It is used to indicate the end 



MSG 



of all user macros. This must be the last 
card processed before the assembler END 
card. The STEND macro instruction compares 
the total number of bytes generated for the 
2715 tables with the maximum allowable size 
for the user's particular 2715 (see CONFI- 
GUR) . If the size of the tables exceeds 
the maximum, an MNOTE is issued indicating 
the assembly is invalid. 

r t t 1 

| Name | Operation | Operand | 

|. + + < 

| (symbol ] | STEND | j 

i x ± J 

symbol 

The name field of this macro is 
optional. 

Note ; A warning MNOTE is generated by this 
macro. 



PROGRAMMING NOTES 



The following general operational charac- 
teristics should be remembered when com- 
municating with a 2715: 

• When priority data has been read to 
exhaustion (EOT received) , the user 
should write a control message to the 
2715 requesting deferred data and then 
read that data until an EOT is 
received. 

• When a data message has been accepted 
by the 2715 but cannot be routed to its 
ultimate destination, the 2715 sends 
the message back to the System/360 with 
the transaction control byte unchanged, 
ani an error code in the zone field of 
the second byte of the time field of 
the transaction header. The error 
codes are: 

2740 not attached 1110 

274 not operational 1101 

Incomplete transaction 1100 

1053 not attached 1011 

1053 not operational 1010 

2710 overload 1001 

MSG routine overload 1000 

Invalid request from CPU 0111 
Counter not attached (Pulse 

Count feature) 0101 
Device not operational (Pulse 

Count feature) 0011 

• The devices attached to a 2790 system 
may vary in their ability to transmit 
blanks. This may affect the length of 
data entered, that is, data from local 
card reader, badge reader, etc. 
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• A 2715 data entry consists of the 
following: 

2795 Data Entry Unit 

| LEFT | 10 | RIGHT | 

| KNOB | CODE j KNOB j 10 DATA BYTES | 

I I | _j__ I 

, "~ , 

I 12 BYTES J 



2796 Data Entry Unit 



r t t r t t t ri 

| TOP JMON-JTOP j 10 j BOT-j BOTTOM j 4 DIGIT1 
j LEFT j ITOR j RIGHT | DATA | TOM | RIGHT j ROCKER j 
| KNOB | KEY JKNOB | BYTES | LEFT | KNOB | SWITCH- j 
I I * I I |KNOB| |ES | 
L .j. X X X_ J -X -j 



L 1 8 BYTES— •» 

* Has a value of 1, 2, or 3. 

2797 Data Entry Unit 

| LEFT | MON- | RIGHT | 10 | 6-DIGIT MANUAL | 
j KNOB j ITOR | KNOB | DATA | ENTRY BUFFER | 
j | KEY | | BYTES | | 

I I** I I I I 

L .j. X . X L j 



L 18 -BYTES 

** Has a value of 4, 5, or 6. 

2798 Guidance Display Unit 



j TRANS- 


I OPERA- 


MAXIMUM 


OF 


16 


DATA 


BYTES 


I ACTION 


TIONAL 












| CODE 


[STATUS 












• BYTE 


• BYTE 













■17 bytes- 



2791 Area Station 

r t t 1 

j TRANSACTION! MONITOR j I 

| CODE j KEY* | 1 TO 80 DATA BYTES** j 
t X X i 

I I 

I 1 TO 81 BYTES J 

♦Not included with data entries from 1035 
Badge Readers 
X'FO* = Key off 
X'Fl 1 = Key on 
**Card reader-80 bytes 
Badge reader- 10 bytes 
Manual entry- 6 bytes 
OEM entry-10 bytes 

The Monitor key on an area station or a 
data entry unit allows the operator to add 
an approval to a given transaction. 
Approval is accomplished through the trans- 
mission of a unique character that is acti- 



vated by placing a key in a two-position 
lock switch for the 2791 Area Station and a 
three position lock switch for a 2796 or 
2797 Data Entry Unit. 

Note : The 2715 removes the first charac- 
ter, which is the transaction code (from a 
transaction key on an area station or the 
value of the left-hand knob on a 2795 or 
2797 or of the top left-hand knob on a 2796 
Data Entry Unit). 

• The user must provide input /output 
areas or buffers of at least 640 conti- 
guous bytes to allow for the maximum 
message length that can be received 
from the 2715. 

• A separate assembly of the following 
macros is required for table 
generation: 

CONFIGUR 

AS 

TGROUP 

ASCTR (optional) 

CTRGROUP (optional) 

CTRSCHED (optional) 

TRLIST 

ASLIST (DEULIST) 

CTRLIST (optional) 

STEND 

• The first assembly statement must be 
the CONFIGUR macro (there must not be a 
TITLE, CSECT, or START card). The last 
assembly statement must be the END 
card. 

Notes: 

1. When transaction expansion is speci- 
fied, all TRLISTs referred to by this 
group must be such that the device 
selection and normal guidance in the 
first data entry of each of these 
transaction lists are identical. 

2. Storage expansion (32K) is a pre- 
requisite to transaction expansion. 

3. Transaction expansion is a prerequi- 
site to message routing. 

4. A transaction expansion entry must not 
refer to another transaction expansion 
entry. 

5. The first transaction must be for all 
of the IBM 1035 Badge Readers. 

6. Chaining data entries is not allowed 
for the IBM 1035 Badge Reader. 

7. The value coded in the LENGTH param- 
eter must be equal to the number of 
data characters (nonblank) plus 1. 

8. MSG operand may only be specified for 
the last ASLIST, DEULIST or CTRLIST 
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macro associated with any TRLIST 
macro. 



9. The last entry of a transaction cannot 
be a multiple entry. 



10. The maximum transaction length on a 
multiple entry is 247 bytes. 



11. All DEUs attached to an area station 
must use a common transaction group 
(TGROUP). If 2795, 2796, and 2797 
DEUs are attached to the same area 
station, three TGROUP macro instruc- 
tions must be coded, but only one 
DEGROUP operand is coded in the AS 
macro for this area station. See 
Figure 27 for examples and the discus- 
sion of the TGROUP macro instruction for 
details. 



MESSAGE FORMAT 



The user communicates with the 2715 using 
BTAM READ and WRITE macro instructions and 
BSC line control procedures. When reading 
from the 2715, the length of the message is 
text length plus 3 (DLE STX is received at 
the beginning of the message and ETX is 
received at the end). The maximum length 
for text received is 640 characters. 



When writing to the 2715, the number of 
bytes coded in the length operand of the 
WRITE macro instruction is text length plus 
2 (the user must insert DLE STX in front of 
the text) . The total number of bytes writ- 
ten is text length plus 4 (BTAM inserts DLE 
ETX at the end of the text) . The maximum 
length for text written is 128 characters. 



Each message transmitted or received is 
composed of one or more transactions, pre- 
ceded by a message header. Each of the 
transactions is composed of a transaction 
header and data. When transmitting to the 
2715, these headers must be provided by the 
user in correct format. 



MESSAGE 
HEADER 



f*-5 byt« 



TRANSACTION 1 



TRANSACTION n 



TRANSACTION 
HEADER 



DATA 



■8 bytes 



I 



-1 to 247 bytes- 



2715 to System/360 



up ro 612 bytes- 



MESSAGE 
HEADER 


TRANSACTION 1 


TRANSACTION n 


r 2 Me*— * 


\ 

""-- 




TRANSACTION 
HEADER 


DATA 








. 






up to 128 bytes 


» 



System/360 to 2715 

Figure 28. Message Formats 

Message Header — System/360 to 2715 



The message header is two bytes and has the 
following format: 



Byte 
Byte 1 



Message length 
Message control byte 



Message Length : The message length is a 
one-byte count, in hexadecimal, of the num- 
ber of characters in the message, including 
headers and data. The BSC framing control 
characters are not included in this count. 
For transmission from the System/360 to the 
2715, the message length should not exceed 
128 bytes. 

Message Control . Byte : The message control 
byte is~used to indicate one of three 
possible destinations for output data, as 
shown below. 



Message formats are shown in Figure 28. 



| MESSAGE DESTINATION 



"T 1 

j CONTROL BYTE | 



| 1053 Printer or Pulse Count 

I 

J2715 Control 

I 

| 2740 Terminal 

l 



X'01« 
X , 02 t 
X , 04 t 
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Message Header — 2715 to System/360 

The message header is five bytes and has 
the following format: 

Bytes 0-2 Work day number 

Bytes 3-4 Restart number 

Work Day Number ; The work day number is a 
three-byte EBCDIC field used as a date 
field. The date may be omitted, in which 
case the field is undefined. 

Restart number : The restart number is a 
two-byte field that defines the type of 
data and associated restart information. 
The format of this field is: 

Byte 3: bits 0-4 Low-order bits of 
cylinder address. 

bit 5 Track. 

bits 6-7 Sector. 

Byte 4: bit Reserved. 

bit 1 If on, indicates 
deferred data. 

bit 2 If on, indicates 
priority data. 

bits 3-4 Reserved. 

bits 5-7 High-order bits of 
cylinder address. 

Transaction Header 



The transaction header is eight bytes and 
has the following format: 



Byte 
Byte 1 
Byte 2 
Byte 3 

Bytes 4-7 



Transaction length 

Transaction control byte 

Area station address 

Device address 
(counter address) 

Time stamp 



Transaction Length : For transmission from 
the 2715 to the System/ 360, the transaction 
length is a hexadecimal count of the number 
of bytes in a transaction, including the 
header. The count may not exceed 255; 
therefore, the maximum number of bytes of 
data is 247. 

For transmission from the System/360 to 
the 2715, the transaction length is a user- 



provided hexadecimal count of the number of 
bytes in a transaction, including the tran- 
saction header. The count must not exceed 
126; therefore, the maximum number of bytes 
of data is 118. The 2715 checks the summa- 
tion of all transaction lengths against the 
message length. If they do not agree, the 
2715 transmits an EOT, aborting the 
transmission. 

Transaction Control Byte : The transaction 
control byte is a binary code that speci- 
fies the type of transaction. Values for 
the transaction control byte are shown in 
Table 11. If the value in a control 
transaction is not recognized by the 2715, 
a message is returned to the System/ 360. 

Note : When a data message has been 
accepted by the 2715 but cannot be routed 
to its ultimate destination, the 2715 sends 
it back to the System/360 with an error 
code inserted in the zone field of the 
second byte of the time stamp. See the 
Time Stamp description for definition of 
the error codes. The transaction control 
byte still contains the "System/360 to 
2715" indication. 

A rea Station Address : For transmission 
from the 2715 to the System/360 the Area 
Station Address field usually contains the 
area station address. The field contains a 
hexadecimal value (see Table 9) . 

• For priority data and deferred data, 
the field contains the area station 
address. 

• For responses to control transactions, 
the field is undefined. 

For transmission from the System/360 to 
the 2715, the field normally contains the 
area station address. The user must speci- 
fy the address in hexadecimal (see Table 
9). When the field contains an invalid 
area station address, the transaction is 
returned intact with an error code (see 
Programming Notes). The area station 
address field should be zero for control or 
2740 operations. 

D evice A ddres s: For transmission from the 
2715 to the System/360 the Device Address 
field identifies the sending data entry 
unit, 1053 Printer, 1035 Badge Reader, OEM 
device, or 2791 resident card, badge, or 
manual entry, or the actual counter 
address. This field is zero if it is con- 
trol information. Addresses in this field 
are represented in hexadecimal form. 

For transmission from the System/360 to 
the 2715, the field usually contains the 
address of the printer on the area station. 
The field is zero for the 2740 or control 
transactions. 
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Time Stamp : The time stamp is a four-byte 
field that contains the value of the clock 
when the data was received. It is carried 
in conventional form, in hours and minutes, 
as EBCDIC characters. The field may be 
omitted on output to the .2715. If the 
field is omitted, four zero EBCDIC charac- 
ters (X'F0 ( ) must be inserted. 

An error condition will be encoded into 
the zone bits of the second byte to pre- 
serve the original time stamp. Note that 
the zone bits of the first time byte may 
also be changed. 

The following error codes are assigned: 

X'E* 2740 not attached — The 2740 is not 
attached to the system, and the 2740 
was specified in a user table entry. 
The trans act ion- list number in the 
header identified the incorrect user- 
table entry. 

X*D* 2740 intervention required — The 

2740 requires intervention because it 
has power off, is out of paper, or is 
in improper mode. 

X'C Incomplete transaction — This tran- 
saction is incomplete due to one of 
several causes: 

• Operator aborted the transaction. 

• Byte count was exceeded on a repeat 
transaction. 

• Stop loop was executed and transac- 
tion was not completed in the time 
allowed. 

• Incomplete communication with a 
counter for any request. 

X*B* 1053 not attached — The transaction 

was addressed to an area station that 
did not have a 1053 attached. This can 
be due to CPU program problems if the 
CPU originated the transaction, due to 
user table problems in the case of mes- 
sage routing with implicit addressing, 
or due to operator errors in message 
routing with explicit addressing. 

X*A* 1053 not operational — The addressed 
station has a 1053 attached, but for 
some reason it is not operational. 

X'9* 2740 overload — The 2740 was speci- 
fied in so many transactions that a 
significant part of 2715 buffering 
was queued for the 2740 and system 
operation was affected. In this 
case, the 2715 will flag transactions 
with this error code, bypass the 
2740, and send them to the processor 
as priority data. Transactions 
already on the 2740 queue are not 
affected and print out at the 2740. 
When the 2740 queue clears, the sys- 



tem will revert to its normal 
operation. 

X'8* Message-routing overload — The out- 
put queue contained so much of the 
2715 buffering that system operation 
was affected. The 2715 will flag 
transactions with this code and route 
them to the processor as priority 
data. Transactions already on the 
output queue are handled normally. 
When the output queue clears, the 
system will return to normal 
operation. 

X*7 f Invalid request from CPU — The orig- 
inal transaction from the CPU is 
returned to the CPU due to one of the 
following causes : 

• An improper command. 

• Wrong transaction length. 

• An invalid value specified from a 
DEU to set a counter (Pulse Count 
feature) . 

X*5* Counter not attached — The counter 
specified is not present on the area 
station (Pulse Count feature). 

X*3* Device not operational — The speci- 
fied counter is present, but is not 
operational due to a bus^ lition 
in the counter adapter (Pulse Count 
feature). 



Note : In the X'8* and X*9' cases, the user 
program still has access to the 2740 or 
1053 output within normal output limita- 
tions. Thus the user may reroute this 
traffic under control of his program as he 
wishes. 

It is the user's responsibility to 
restore the zone bits in the first and 
second bytes of the time-stamp field 
whenever he detects an error if he wishes 
to restore the time field to true EBCDIC 
representation (for example, if he were to 
reroute the transaction) . 

Data with- 2798 Transactions 

The first byte of data of every step in a 
transaction from a 2798 indicates whether 
the monitor kev was on or off at the 2798 
from which the transaction was entered. 
This monitor key byte is either X^A' 
indicating monitor key off, or X'FB' 
indicating monitor key on. Following the 
monitor key byte can be a data field 
containing from to 16 data characters 
received from the 2798 GDO. When the user 
is analyzing a 2798 transaction, he can 
separate each step by ccmparinq for a X'FA' 
or X'FB* (or both) in the transaction 
depending upon whether or net he expects 
the monitor key to be on or off. 
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Data with Counter Control 



The first byte of data is the counter con- 
trol byte indicating the type of pulse 
counter operation this transaction results 
from. The counter control byte can be the 
response to any of the read functions 
(Read, Read Residual, Read and Reset, Read 
and Set, Read Group) , or one of the follow- 
ing operations: 



Counter Control 
Operation 



Counter Control 
Byte (in Hex) 



Scheduled Readout F4 

No-Count Test Failure F2 
Unassigned Production 

Test Failure Fl 

Overflow Interrupt F6 

Power Interrupt F7 

Invalid Transaction From AS FO 

The second byte of data always contains 
a blank character (X'aO*). The third and 
fourth bytes contain the address of the 
counter that the operation resulted from. 
In the case of the Read Group operation, 
the third and fourth bytes contain the 
address of the first counter in the group. 
The fifth byte of data is another blank 
character. The next five bytes contain the 
counter value. Except for the following 
operations, there is no more data in the 
data area. 



• Read Group. 

• Read Group Residual. 

• No-Count Test Failure. 

• Unaligned Production Test Failure. 

• Overflow Interrupt. 

• Power Interrupt. 



For the Read Group and Read Group Resi- 
dual operations, all the remaining counter 
values are contained in the data area, and 
each is separated by a blank character 
(X*i*0'). For other operations, the follow- 
ing EBCDIC messages are in the data area, 
preceded by a blank character: 



OPERATION 



No-Count Test Failure 
Unassigned Production Test 

Failure 
Overflow Interrupt 
Power Interrupt 



Message 



NCTF 

UPTF 
OVFL 
POWR 
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System/360 to 2715 

- Data transactions 

- 1053 printer data 

- 2740 terminal data 

- Control transactions 

- Bypass area station; causes the speci- 
fied area station to go offline. 

- Restore area station; causes the speci- 
fied area station to go online. 

- Bypass segment; causes the specified 
segment of the transmission line to be 
bypassed . 

- Restore segment; causes the specified 
segment of the transmission line to be 
restored to operation. 

- Read deferred data; causes deferred 
data to be sent from the 2715 disk to 
the System/360. 

- Stop 2790 input. 

- Start 2790 input. 

- Alarm messages: 

• Text; sends user error message to 
the area station 1053. 

• Alarm; causes alarm bell to ring at 

• Alarm and text; sends alarm and 
user error message to area station. 

- User table load start. 

- User table load data; defines the data 

that follows as 2715 tables. 



User table load end. 

CPU restart; recovers deferred data 

that was received subsequent to the 

specified restart number (used with the 

checkpoint/restart capability) 

2715 restart; attempts to recover data 

that has been buffered at the 2715 and 

not yet transmitted to the System/360 

after a 2790 or 2715 irrecoverable 

error or stop 

Sort area station errors; causes the 
2715 to scan the error logout file and 
extract error statistics for the ad- 
dress specified in the fourth byte of 
the transaction header. 
Read partial error log; causes error 
data in the 2715 error logout file to 
be transmitted to the System/360. 
Reinitialize 2715 disk (will not be 
initiated unless all 2790 input is 
stopped and all deferred data is trans- 
mitted to the System/360). 





| control 


Data Entry Bytes | 


|Byte 


(dj.,d a , ... *d n ) | 


J. .-.-_— ,J 


L __„ J 






|X*FA' 


dj.-d n (max =11 8 bytes) | 


JX^B' 


3i-a. n (max=118 bytes) | 


|X , Cl t 


d t =area station ad- j 




dress in hexadecimal j 


1X^2* 


d x =area station | 




address in hex j 


WC3 1 - 


dj.=segment to be by- | 




passed in EBCDIC j 


| x« en • 


d x =segment to be re- | 




stored in EBCDIC j 


IX'CS' 


none j 


|X'C6 f 


none j 


1X^7' 


none j 


IX'CD* 


d ± -d n =user error j 




message in EBCDIC | 


IX'CE* 


none j 


| X« CF* 


d 1 -d n =user error j 




message in EBCDIC j 


|X'D1" 


none j 


|X , D2» 


di-dg^fone object | 




card from the user's j 




assembly of 2715 j 




macro instructions j 


|X f D3' 


none j 


IX'DU* 


d i -d a =restart number j 




that was checkpointedj 




(in hexadecimal) | 


IX'DS* 


3i-d a =deferred re- j 




start number log j 




(in hexadecimal) j 




d 3 -d 4 =priority re- j 




start number log j 




(in hexadecimal) j 


\X'D6* 


none j 


|X , D7« 


none j 


IX'DS' 


none j 



Table 11. Transmission Control Byte Usage (Part 1 of 2) 
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I — 



Message Type and Function 



Set day stamp. 

Monitor day number; causes the previ- 
ously set day stamp to be monitored. 
Monitor time; causes Real-Time clock 
to be monitored. 

Reset deferred data mode; causes the 
2715 to stop queuing deferred data from 
the disk to be transmitted to the 
System/360 (the 2715 will continue to 
transmit the deferred data already 

queued) . 
All Pulse Count transactions: 

• Read Group functions; reads the 
contents of one or more counters. 



• Set functions and Read and set 
functions; sets the counter to a 
predetermined count. 

2715 to System/360 

- Data Transactions 

- Control Transactions 

- Positive response to CPU request 

- Negative response to CPU request 

- Invalid response to CPU request 

- Positive response to 2715 request 

- Negative response to 2715 request 

- Response to invalid 2715 request 

- User defined 

- Automatically initiated response 

- Unsolicited 2715 response 

- Special pulse counter transactions 

- Positive response to CPU request 

- Invalid response to CPU request 

- Positive response to operator 
initiated pulse counter request 



- Pulse count transactions for CPU 

- CE-initiated response for pulse 
counters 



Control 
Byte 

L 


iData Entry Bytes | 

|(d2fd2*«..dh) | 

l --__>„ _i 


X'E2 i 


r ~| 

none | 


X'ES* 


| none | 


X'EH* 


[none j 


X^* 


| none j 


X'FC* 


d x =counter control | 




byte in EBCDIC j 




d a -d 3 =EBCDIC value j 




of last counter in j 




the group | 
d a -d6=EBCDIC value | 




to which the counter j 




is to be set. j 


X*00 f 




X'7F'* 




X'CA* 




X^B* 




X^C* 




X*DA f 




X^B* 




X'DC* 




X* FO * 




X*F9 f 




X' FF* | 




X , FD» 




X*CA* 


cl aL =counter control | 




request j 
d a =control definition! 


X'CC* | 


same as X'CA' j 


X*DA | 


d x =counter control j 




request j 
d a =control definition! 


X'ED' 




X'EF ,a | 


i 



*This is the value of the transaction identifier. 

a A CE can run diagnostics on a counter or counters for a specific 
area station while the system is still active with normal customer 
transactions, if the user wants to save the counter values, the 
CE can issue a diagnostic code to route all the counter values 
to the System/360. After the CE has returned the counters to the 
system, they may be restored to the original values by the user program. 



Table 11. Transmission Control Byte Usage (Part 2 of 2) 
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CONTROL TRANSACTIONS 



transparent to the user (i.e., non-user 
data) . 



Control transactions are formatted the same 
as other types of transactions, using the 
transaction control byte of the transaction 
header to indicate the action to be per- 
formed. The data field of the message is 
used to identify the specific object of the 
action, for example, the identification 
number of the area station to be restored 
(the data field may or may not be present, 
depending on the nature of the transaction 
control type). 



Error records are recorded by BTAM on 
a disk file; and 

Diagnostic information (automatic or 
resulting from Customer Engineer 
intervention at the 2715 local) is 
printed by BTAM on the System/360 Con- 
sole or the 2740, if available. Diag- 
nostic information from the 2715 
remote goes to the 2740 Data Communi- 
cations Terminal. 



The control transaction types, as pre- 
sently defined, are: 

• System/360 to 2715 (sent by the user 
program) : 

Bypass area station. 

Restore area station. 

Bypass segment. 

Restore segment. 

Stop 2790 input. 

Start 2790 input. 

User table load start. 

User table load data. 

User table load end. 

CPU restart. 

2715 restart. 

Sort area station errors. 

Read partial error log. 

Reinitialize disk. 

Set day stamp. 

Monitor day number. 

Monitor time. 

Reset deferred data mode. 

Read deferred data. 

All pulse count transactions. 

Alarm. 

Text. 

Alarm and Text. 

• 2715 to System/ 360 (sent to user 
program): 

Positive response to CPU request. 
Negative response to CPU request. 
Response to invalid CPU request. 
Positive response to 2715 request. 
Negative response to 2715 request. 
Response to invalid 2715 request. 
User defined. 

Automatically initiated response. 
CE- initiated response. 
Unsolicited 2715 response. 
Pulse count responses to 2715 

operator-initiated requests. 
Pulse count transactions destined 

for CPU 
CE- initiated response for pulse 

counters . 

In addition to the above transactions, 
there are two types of messages that are 



Pulse Count Transactions 



All pulse count transactions initiated from 
a System/360 have a control byte of X'FC 
in byte 1 of the 8-byte transaction header. 
Byte 2 contains the area station address 
and byte 3 the counter address (in hexadec- 
imal) . Particular kinds of pulse counter 
operations are specified in the transaction 
text or data. The first byte of the 
transaction text is the counter control 
byte. This byte specifies the counter 
operation requested. Only one data byte 
(the counter control byte) is required for 
all counter operations except the Set func- 
tions, the Read and Set functions, and the 
Read Group functions. 

For the Read Group and Read Group Resi- 
dual operations, two additional data bytes 
must follow the counter control byte. 
These two bytes are the EBCDIC value of the 
last counter in the group. The upper limit 
of the last counter is 63, since there can 
be only 63 counters on a single area 
station. 

For the Set functions and the Read and 
Set functions, five additional data bytes 
must follow the counter control byte. 
These five bytes contain the EBCDIC value 
to which the counter is to be set. The 
value must be between and 29,999 in 
EBCDIC. These five additional data bytes 
are required for the following operations: 

• Set Counter 

• Set Counter and Set No-Count Testing 
and Reset Unassigned Production Testing 

• Set Counter and Reset No-Count Testing 
and Set Unassigned Production Testing 

• Set Counter and Reset all count testing 
functions 

• Read and Set 

• Read and Set and Set No-Count Testing 
and Reset Unassigned Production Testing 

• Read and Set and Reset No-Count Testing 
and Set Unassigned Production Testing 

• Read and Set and Reset all count test- 
ing functions 
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The counter control operations and the 
hexadecimal representation of the counter 
control bytes are shown in the following 
table: 

Counter Control Operation 

Set no-count testing (NCT), reset unassigned production testing (UNASP) 

Reset NCT, set UNASP 

Reset all count testing functions 

Set counter 

Set counter, set NCT, reset UNASP 

Set counter, reset NCT, set UNASP 

Set counter, reset all count testing functions 

Read counter 

Read counter, set NCT, reset UNASP 

Read counter, reset NCT, set UNASP 

Read counter, reset all count testing functions 

Read residual 

Read residual, set NCT, reset UNASP 

Read residual, reset NCT, set UNASP 

Read residual, reset all count testing functions 

Read and reset counter 

Read and reset counter, set NCT, reset UNASP 

Read and reset counter, reset NCT, set UNASP 

Read and reset counter, reset all count testing functions 

Read and set counter 

Read and set counter, set NCT, reset UNASP 

Read and set counter, reset NCT, set UNASP 

Read and set counter, reset all count testing functions 

Read group , 

Read group residual 

Disable schedule readout (single counter) 

Enable schedule readout (single counter) 

Disable schedule readout and count testing (all counters on an AS) 

Enable schedule readout and count testing (all counters on an AS) 

Disable all schedule readouts (on 2790 System) 

Enable all schedule readouts (on 2790 System) 

Disable all count testing functions (on 2790 System) 

Enable all count testing functions (on 2790 System) 

Disable all schedule readouts and count test functions (on 

2790 System) 

Enable all schedule readouts and count test functions by continuing 

from stop point 

Enable all schedule readouts and count test functions by 

re- initializing all schedules 



Counter Control 
Byte (in hex) 

01 
02 
03 
20 
21 
22 
23 
80 
81 
82 
83 
A0 
Al 
A2 
A3 
CO 
CI 
C2 
C3 
E0 
El 
E2 
E3 
88 
C8 
B0 
Bl 
B2 
B3 
B4 
B5 
B6 
B7 

BB 

BC 

BO 



Table 12. Counter Control Operations 



Overflow Interrupt 



An overflow interrupt message is trans- 
mitted to the user-defined routing indica- 
tion (specified in the ASCTR macro) 
whenever any counter reaches a value of 
30,000. 



to the user-defined routing indication 
(specified in the ASCTR macro). Until the 
power interrupt is reported from the area 
station, all counter transactions will be 
incomplete transactions. 



EXTERNAL ALARM CONTACT FEATURE 



Power Interrupt 



The reporting of initial power-up or power 
failure at an area station results in a 
power interrupt message being transmitted 



The Area Station External Alarm Contact 
feature is provided as a method of alerting 
the operator at the area station level that 
an alarm condition exists in his area. 
This feature on a 2791-1 or 2793-1 Area 
Station allows the attachment of an 
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external device at the area station 1053 
printer, which can make use of a contact 
closure to operate some kind of external 
alarm whenever the EBCDIC character for 
BELL (X'2F* ) is received at the area sta- 
tion 1053 printer. 



Three types of alarm messages can ori- 
ginate from either the System/360, the 2740 
attached to the 2715, or an area station or 
data entry unit. 



1. Alarm 

2. Text 

3. Alarm and text 

The alarm message causes the 2791/2793 
alarm hardware to be activated. The text 
message consists of data that is printed on 
the 1053 printer. The alarm and text mes- 
sage consists of data that causes the 2791/ 
2793 alarm hardware to be activated and 
that causes the data to be sent to the 1053 
printer. If the 1053 is not available, 
alarm or alarm and text messages are routed 
to the CPU. The 2791/2793 alarm hardware 
is activated for the alarm or alarm and 
text messages whether or not the 1053 
printer is available. Text messages 
initiated at the System/360 or 2740 must be 
supplied by the user with the transaction 
request. Area station and data entry unit 
requests may have text supplied as explicit 
or implicit text. 

The alarm messages initiated from the 
System/360 are handled as normal System/360 
to area station 1053 printer output mes- 
sages. The transaction control byte 
defines the type of alarm message, as 
follows: 



Control Byte Value 

X'CD' 
X'CE* 
X'CF" 



Alarm Message Type 

Text 

Alarm 

Alarm and text 



The data can be any normal user data. 
For alarm or alarm and text messages, the 
2715 generates the alarm character to send 
to the 1053 (the user does not have to do 
this) . 

The alarm message initiated from the 
2740 is handled as a special control requ- 
est. This request must be coded as 
follows: 



r t — t — t — t t 1 

I I I I I II 
| BIDJ Dl J D2 1 D3 1 Text | EOT| 
i x x — x — x x J 



where : 

BID is the 2740 BID key. 

Dl is the type of request and can have 
the following values: 

Y for alarm message. 

Z for text message. 

X for alarm and text message. 

D2 and D3 represent the area station 
address to which the message is to be 
sent (decimal 00 to 99). 

Text is any user text up to 127 
characters . 

EOT is the 2740 EOT key. 
Messaqes originating at an area station 
or data entry unit are initiated by an 
input transaction in conjunction with the 
2715 user tables. The implicit or explicit 
area station address, if other than the 
area station address of the originating 
station, indicates that two messages will 
be created by the 2715. One message will 
be the alarm message that will be sent to 
the area station than initiated the trans- 
action. The second message will contain 
the data to be routed tc some other area 
station 1053 printer. This second message 
will normally not be an alarm message. If, 
however, the user desires to send alarm and 
text to another area station, the first 
two characters of the text must be the 
alarm, text, or alarm and text characters. 
If the implicit or explicit area station 
address is the address of the transaction 
initiator, then only an alarm message will 
be generated by the 2715. Message routing 
and implicit text will be specified in the 
transaction list header for messages origi- 
nating at an area station or data entry 
unit. The first two bytes of implicit text 
must define the type of alarm message 
desired. For alarm messages, these bytes 
will be deleted from text sent to the 1053. 
The following table shows the format of the 
first two bytes of the implicit text for 
alarm messages. Implicit text is specified 
in the 2715 user tables in the MSG operand 
of the last ASLIST or DE0LIST macro or the 
CTBLIST macro in a defined transaction. 
The user must multipunch a 0-7-8-9 sequence 
for the EBCDIC BELL character specified in 
the table. The SPACE character indicates 
that nothing is punched in this column of 
the card. 

Message Type First By te Second Byte 

Alarm BELL SPACE 

Text SPACE BELL 

Alarm and Text BELL BELL 
2740 TRANSACTIO NS 

The 2740 Communications Terminal is a stan- 
dard feature on the 2715 remote and an 
optional feature on the 2715 local, it is 
used with the 2715 as both an input 
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(inquiry, control) and output (response, 
error logging) device. 

A message originated by the System/360 
and destined for the 2740 terminal has a 
maximum length of 128 bytes (two-byte mes- 
sage header, eight- byte transaction header, 
118 bytes of text) . These messages have 
the following format: 

• Bytes 1 and 2: Message header (these 
bytes are not printed on the 2740). 

• Bytes 3 through 10: Transaction header 
(Bytes 4, 5, and 6 are printed in hex. 
Following these six printed characters 
(two for each byte] is a space. Bytes 
7 through 10 are printed as they appear 
in main storage. There will be a total 
of 11 characters printed, including the 
space . ) 

• Data: The maximum length of the actual 
data text is 118 bytes if the margins 



of the 2740 are set to maximum printing 
space. 



A message entered from the 2740 may be 
formatted by the 2715 as a normal 2740- 
initiated request and routed directly to 
the System/360 user or will be treated as c 
control request. The 2715 will format a 
standard eight-byte transaction header, 
inserting the first character entered from 
the keyboard in the control byte of the 
header. If this byte is numeric, a four- 
byte time stamp will be added, subsequent 
characters from the 2740 will be inserted 
as text, and the message will be routed to 
the System/360. 



If the first character entered from the 
2740 is not numeric, the 2715 will not add 
a time stamp and will treat the message as 
a control request. 
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IBM 2770 DATA COMMUNICATION SYSTEM — PROGRAMMING CONSIDERATIONS 



SYSTEM CONFIGURATION 



An IBM 2770 can communicate with a System/ 
360 over a nonswitched line (point-to-point 
or multipoint) or a switched line. The 
2772 Control Unit must be equipped with the 
Multipoint Data Link Control feature for 
use on a multipoint line. A control unit 
for use on a switched line can be equipped 
with an Automatic Answering feature, if 
desired. 



other terminal types. The specific 
adapter-to-device correspondence is estab- 
lished by the customer engineer when the 
2770 system is installed. You must be 
aware of the correspondence in order to 
select correctly the character sequences 
you need. These sequences are given below. 



Point- to- Point 



TRANSMISSION CODES 



The IBM 2770 communicates with the System/ 
360 using either of two transmission codes, 
EBCDIC or USASCII, as selected when the 
2770 is ordered. If the 2770 is equipped 
with the EBCDIC Transparency feature, text 
data can contain any of the 256 EBCDIC bit 
patterns. That is, when text data is sent 
in transparent mode, the EBCDIC bit pat- 
terns representing data link control and 
terminal control characters are treated 
simply as data, and do not cause the con- 
trol functions usually effected by these 
bit patterns to occur. This feature allows 
transmission of various kinds of raw data, 
such as packed decimal numbers, floating- 
point numbers, and machine- language pro- 
grams, when transmission is in nontrans- 
parent mode, however, the data link and 
format control characters are recognized as 
such, and thus cannot appear as normal 
text. 



TERMINAL POLLING AND SELECTION 



In point-to-point communication, you may 
perform component selection by one of two 
methods. The output device may be selected 
by the Job Select Switch on the 2770 opera- 
tor control panel, or it may be selected by 
the transmission of a device control char- 
acter. If more than one device is assigned 
by the Job Select Switch, the device con- 
trol character is mandatory. DC1, DC2, and 
DC3 are the device control characters for 
output devices attached to output adapters 
1, 2, and 3. 

Device control characters for point-to- 
point lines may be sent as separate message 
blocks, or accompanied by text data, in the 
format STX DCx [text] ETB, or STX DCx 
[text] ETX. You code this message block in 
the Qutput area referenced by a WRITE macro 
instruction. A device control character 
can be sent only as a nontransparent block, 
and it must be the first block of a mes- 
sage, i.e., following EOT or the first 
block of conversational reply. 

The polling function is not used for a 
2770 on a point-to-point line^ since mes- 
sage transmission from terminal to computer 
is initiated only by the terminal. 



In order to activate a terminal so that 
data transmission can occur, the central 
computer transmits on the communications 
line a specific character sequence that 
identifies the input or output component 
(and in the case of multipoint lines, the 
terminal as well) from which data is to be 
received, or to which data is to be sent. 
This procedure is called polling when an 
input device is involved, and selection 
when an output device is involved; the 
character sequences are called polling 
sequences and selection sequences. Specif- 
ic polling and selection sequences are 
assigned to 2772 Control Unit input and 
output adapters, rather than to specific 
device types, as is the case with some 



Multipoint 



Message transmission between computer and 
2770 via a multipoint line is intiated only 
by the computer, using a Read Initial or 
Write Initial operation. You code polling 
and selection sequences in terminal lists 
(called polling lists for polling 
sequences, and addressing lists for selec- 
tion sequences) . (The terms selection and 
addressing are used here synonymously.) 
The DFTRMLST macro instruction is used to 
create the terminal lists. The READ or 
WRITE macro instruction that initiates mes- 
sage transmission sends the polling or 
selection sequences contained in the list. 



IBM 2770 Data Communication System — - Programming Considerations 183 



Polling and selection sequences consist 
of four characters. The first is the ter- 
minal address, which may be any alphabetic 
character; it identifies an individual ter- 
minal and is set by the customer engineer 
when the terminal is installed. In a poll- 
ing sequence, this character must appear in 
uppercase, e.g., A. When in a selection 
sequence, it must be lowercase, e.g., a. 



X'tH 1 . When this happens,, the user program 
should ordinarily transmit an EOT and rees- 
tablish contact later. x 



2770 Unable to Receive Text (WACK) 



The second character is always identical 
to the first. The third character in the 
sequence is a component polling or selec- 
tion character. The characters DC1, DC2, 
and DC3 select the output devices attached 
to output adapter 1, 2, and 3, respective- 
ly. The characters 5, 6, and 7 poll the 
input devices attached to input adapters 1 
(keyboard), 2, and 3; causes a general 
poll, resulting in receipt of data from any 
ready input device. 

The fourth character in the sequence is 
always ENQ (inquiry), which elicits a 
response from the terminal control unit 
that indicates whether the polled or 
selected component is ready. 



TEMPORARY TRANSMISSION DELAYS 



In communication between the IBM 2770 and 
the central computer, message transmission 
may need to be delayed because of condi- 
tions at the 2770. The 2770 signals the 
central computer that delay is necessary by 
sending one of several data link control 
sequences, the specific one depending on 
the reason for the delay. These sequences, 
and the automatic BTAM response or appro- 
priate user program response to each, are 
as follows. 



2770 Unable to Send (STX ENQ) 



When during transmission of text from the 
2770 to the central computer the 2770 
becomes temporarily unable to transmit, it 
sends an STX ENQ sequence in lieu of text. 
Upon receiving this sequence, BTAM auto- 
matically transmits a NAK character. 
Transmission of STX ENQ and NAK alternates 
until (1) the 2770 once again is able to 
transmit, in which case it resumes trans- 
mitting text (or EOT, if there is no more 
text to transmit), or until (2) the BTAM 
retry count of seven is reached. In the 
latter event, BTAM turns on bit 7 of 
DECFLAGS and posts a completion code of 



At the time the 2770 receives an ENQ or 
selection characters from the central com- 
puter, or after it has already received one 
or more message blocks, it may be unable 
temporarily to receive text into the buf- 
fer. This condition occurs when the cur- 
rent contents of the buffer are being 
transferred to an output device. When this 
happens, the 2770 sends a WACK sequence 
instead of the usual alternating 
acknowledgment. 

Upon receiving the WACK, BTAM turns on 
bits and 1 of DECFLAGS and posts a com- 
pletion code of X^F*. The user program 
should check DECFLAGS for this response, 
and if WACK was received, should send an 
ENQ character (as by a WRITE Inquiry 
macro). The ENQ should be sent regardless 
of whether the WACK was received in 
response (1) to text or (2) to the initial 
ENQ character (nonswitched point-to-point 
line) or ID ENQ sequence (switched point- 
to-point line) . For a multipoint line, 
however, the ENQ should be sent only if the 
WACK was received in response to text. If 
it was received in response to initial 
selection,, the user program should resend 
the selection characters, that is^ reissue 
the WRITE macro. To determine whether the 
WACK was received in response to text or 
selection/ examine the DECTPCOD field of 
the DECB. If it contains X'06', the WACK 
was received in response to selection. If 
it does not contain X'OG*, the WACK was 
received in response to t*xt. 

The user program should be arranged to 
keep responding to WACK sequences in this 
manner until the 2770 responds normally or 
until the user program wishes to abandon 
communication with the 2770 for the time 
being. In the latter case, the user pro- 
gram should issue the appropriate macro to 
break off transmission. 



A If the source of the incoming data is an 
IBM 50 Magnetic Data Inscriber cartridge, 
it may be desirable for the user program 
to send NAK characters until a total of 
about 60 seconds has elapsed from the time 
the STX ENQ sequence was received. The 
MDI cartridge requires 45 seconds to 
rewind, and several seconds are required 
for the terminal operator to mount a new 
cartridge so that transmission can resume. 
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2770 Wishes to Transmit (RVI) 



At the time the 2770 receives a selection 
sequence from the central computer (multi- 
point line only) , it may signal the central 
computer that it wishes to transmit instead 
of receive. To do this, it sends an RVI 
sequence instead of an ACK-0 (the normal 
response to selection) BTAM accepts the RVI 
in lieu of the ACK-0, turns on bits 1 and 6 
of DECFLAGS, and posts a completion code of 
X* 7F f . The user program should check 
DECFLAGS. for this response and proceed as 
follows. 

When the RVI is received in response to 
selection, the program should issue a READ 
Initial macro if it wishes to allow the 
2770 to transmit. 



TERMINAL FUNCTION CONTROL 



There are six characters in each code 
(EBCDIC and USASCII) that control terminal 
functions. These are sometimes referred to 
as end-to-end control characters (as dis- 
tinguished from data link control 
characters) . 

• EM (end- of -medium) 

This character is used to indicate the 
end of data on paper or magnetic tape. 
It is transmitted as data and reproduced 
in paper tape at the 1018 paper tape 
punch. (It is not sent to the IBM 50 
Magnetic Data inscriber, as this is an 
input device only.) 

• IRS (Interchange Record Separator) 

(EBCDIC) 
RS (Record Separator) (USASCII) 
This character is used to indicate the 
end of data in a punched card. When the 
contents of a card are read into the 
buffer, the control unit inserts an IRS 
(RS) character into the buffer following 
the last data character read from the 
card. If the contents of a buffer are 
sent to the paper tape punch, the IRS 
(RS) characters are also punched in the 
tape, so that cards can be punched from 
the tape. When sending data from the 
buffer to the card punch or printer, 
each IRS (RS) character encountered in 
data causes the control unit to command 
the card punch to eject a card, or the 
printer to perform the new line 
function . 

• NL (New Line) 

The NL character defines a print line 
when data is to be printed. If data 
containing NL characters is sent to a 
card punch or paper tape punch, the NL 
characters are punched. 



DC1 
DC2 
DC 3 



(Device Control) 



These characters are used to activate 
specific devices attached to the 2772 
control unit. Their use is explained 
under Terminal Polling and Selection. 

• ESC (Escape) 

This character and a defined graphic 
character that follows it are called an 
escape sequence. Escape sequences are 
used to control formatting of data on 
output devices, as explained under 2213 
Printer and 2265 Model 2 Display 
Station. 

• VT (Vertical Tab) 
FF (Forms Feed) 

These two characters are used to control 
formatting on the 2213 printer, as 
explained under 2213 Printer. 

Placing terminal function control 
characters in message text is not a BTAM 
function; they must be placed there by the 
terminal operator, programmer, or preparer 

Ojl input Iu£ia2.3. vc.Cf* t CaidS , tape/. 



2213 Printer 



Vertical forms control for the printer may 
be regulated by a carriage control tape 
contained within the printer, or by control 
commands consisting of escape sequences 
(ESC followed by a defined character) . An 
escape sequence specifies the number of 
line spaces to be skipped following print- 
ing of the line in which the escape 
sequence appears, or specifies the channel 
number of the carriage control tape that is 
to govern forms motion. The escape 
sequence must be contained in the first two 
positions of a record sent to the printer. 
These two characters are not printed on the 
forms. The escape sequences and their 
corresponding functions are given in Figure 
29. 

Vertical forms control may also be 
actuated by the Vertical Tab (VT) charac- 
ter, which causes skip-to-channel-2 of the 
carriage control tape and the Forms Feed 
(FF) character, which causes skip-to- 
channel-1. These two characters differ in 
effect from the escape sequences in that 
forms motion takes place immediately upon 
detection of the VT or FF character, 
whereas forms motion caused by detection of 
an escape sequence does not occur until the 
entire line containing the escape sequence 
has been printed. 
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2265 Model 2 Display Station 



Two 2265 Model 2 Display Station control 
functions are activated by two-character 
escape sequences contained within the mes- 
sage data sent to the display station via a 
Write operation. These functions and their 
associated escape sequences are: 



Erase/Write (ESC U) 



Write at Line Address (ESC *). 



The escape sequence must be the first 
two characters following the STX character 
that begins a message or message block. 
Both the ESC U and ESC ' sequences may be 
contained in a single message (though not 
in the same block) . 



Erase/Write ; To erase the screen of a dis- 
play station the station must be selected 
and the program must send: 



STX ESC U (text) ETX or 



STX ESC U (text) ETB. 



The screen is erased, the cursor is 
positioned at the first available display 
position of the screen (upper left corner) , 
and the data represented by (text) is 
displayed. 



Write at Line Address : This control func- 
tion allows the program to select a specif- 
ic line where the data containing the - 
escape sequence is to be displayed. The 
program must send: 



STX ESC '■• x (text) ETX or 



STX ESC ■ x (text) ETB 



where x represents the line address. The 
line address is a hexadecimal code specify- 
ing the display line where the message data 
is to begin. Display line numbers and 
corresponding line addresses are shown in 
Figure 30. 



EBCDIC 
Sequence 



ESC / 



|. 

ESC S 
J. 

ESC T 

H~ - — - 

ESC A 
J. 

ESC B 
^ 

ESC C 

V 

ESC D 



i 1- 



+ — + 






+ h 



ESC E 



ESC F 



h 

|] 

h 

j] 

h 

ESC 6 
|. 

ESC H 



ESC I 

i 

ESC J 
J. 

ESC K 
h 

ESC L 

ESC M 



OSASCII 
Sequence 



-+ 



ESC Q 



ESC R 
ESC S 
ESC A 
ESC B 
ESC C 
ESC D 



ESC E 



ESC F 



ESC G 
ESC H 



+ 



ESC I 



+ h 



ESC J 
ESC K 
ESC L 
ESC M 



~+ 



+- H 



4 



T 1 

| Skip to 

Forms Motion j Carriage 

After Printing | Control 

(or) Tape 

| Channel 

Single space | 

< 



Double space j 

Triple space j 

I 



I 



— 1 
— i 



I 8 



+ < 

I 11 



12 



Space suppress! 



Figure 29. IBM 2213 Vertical Forms Control 
Escape Sequences 

Conversational Mode 

This special feature enables the 2772 to 
accept a text response to an inquiry 
without having to be selected before 
receiving the response. With this feature, 
the user may include in his BTAM program 
the coding required to initiate a Write 
Continue operation to the 2770 immediately 
following the last block of data received 
from the same 2770 on a Read operation. 
This Write Continue operation may be fol- 
lowed by other Write Continue operations to 
the same 2770. To read more data from the 
2770, the user must issue another READ Ini- 
tial macro to poll the input unit again. 

FIELD-CONTROL OPERATION 



This special feature permits operator or 
program entry of three field modifiers that 
can be entered individually in any given 
character location in the display buffer. 
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| Function 

| Erase screen 


-+- 


Escape . 


Sequence 




ESC U 






L_ . 


i 








4 


I_ — _ — 

| Erase screen 


1 


ESC U (text) 




|and display 












| message 


1 




(text) 


* 


| Write at 




ESC • x 


|Line Address 












h ■ 

| Display Line 
I Number 


-+- 


Address 
15 


Code 


12 


— i 






lines 


1 


ines 




1 1 




1 




1 


1 


1 2 




2 




2 




1 3 




3 




3 




1 * 




4 




4 




1 5 




5 




5 




1 6 




6 




6 




1 7 




7 




7 


< | 


1 8 




8 




8 




1 ^ 




9 




9 




1 io 




A 




A 




1 11 




B 




B 




1 12 




C 




C 




1 13 




D 








| 14 




E 








1 15 




F 









Figure 30. 



IBM 2265 Erase and Write-at- 
Line Address Control Characters 



Protected Data 



Two of the three field modifiers provided 
by the Field-Control Operation special fea- 
ture serve to identify the beginning and 
end of a field of data that is to be pro- 
tected. They are: 

• Protected-Data-Field Modifier (ESC Z) : 
The presence of this modifier in the 
display buff er identifies the start of a 
field of protected data and prevents 
manual erase or over-write of the data. 

• End- Field Modifier (ESC 9) : The pre- 
sence of this modifier in the display 
buffer identifies the end of a 
protected-data field and automatically 
terminates the field-control operation. 

These field-control modifiers are 
entered into the system via escape (ESC) 
sequences. The characters Z and 9 are 
stored in the display buffer and they are 
reproduced on the display screen as: 



Protected Data Field Modifier — 
End-Field Modifier — ) 



( 



When the ( and ) symbols are not preceded 
by ESC, they may be used as normal data. 
During a Read or Write operation, if the 
display cursor encounters a Protected-Data- 
Field Modifier it moves over the field 
until it reaches the End- Field Modifier. 
The cursor then locates in the next display 
position beyond the End-Field Modifier and 
normal Read or Write operation continues. 



Tab Set 



The presence of the Tab Set Character Field 
Modifier in the display buffer identifies 
the position as a Tab Set character loca- 
tion. When a Horizontal Tab (HT) is 
received from the central computer or from 
the keyboard, the HT character is stored in 
the first unprotected character space, and 
then the cursor automatically advances to 
one character space beyond the next Tab Set 
character. 

The Tab Set Character Field Modifiers 
are entered into the system via a format 
message. The first data in this message 
should be ESC HT, to set up a tab-set 
sequence. Each HT following this repre- 
sents a Tab Set character. A vertical bar 
is displayed in each line from and includ- 
ing the line containing the cursor to the 
bottom of the screen for each Tab Set char- 
acter. This character cannot be written 
within a protected field. Caution must be 
exercised to see that the cursor is not 
positioned in a protected field when a Tab 
Set character is to be written. The tab- 
set sequence is not terminated until the 
New Line (NL) character is entered. 

Once this format message has been 
stored, messages may be transmitted without 
spaces, as they need contain only the Hori- 
zontal Tab (HT) character to provide for- 
matting. The HT character is stored and 
will be read back to provide printer for- 
matting and/or better communications line 
efficiency. If an HT is sent and there are 
no Tab Field Modifiers, the cursor is posi- 
tioned at the beginning of the next line. 



RECORD FORMATS 



The basic 2772 control unit has two 128- 
byte buffers. As a special feature the 
2772 can have buffers of 256 bytes each. 
The basic 2772 can send or receive one mes- 
sage block per transmission. Thus, in non- 
transparent mode, messages appear on the 
line in the format: 
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r t — t 1 

|STX| ...text... | ETB (or ETX) | 
L X X J 

In transmission to the 2772, only the text 

portion of the message is transferred to 

the output device. The definition of text 
depends on the type of device. 

For the paper tape punch, text consists 
of the data characters and any end-to-end 
control characters present in the data. 
For the card punch, any escape sequences, 
NL and EM characters are considered text 
and do not cause ejecting of a card from 
the punch; the IRS (RS) , ETB, and ETX do 
cause card ejection. For the printer, the 
NL and IRS (RS) characters and escape 
sequences are not considered part of text. 

In nontransparent mode, the maximum 
record length is 128 characters for the 
basic 2772 and 256 characters for the 
2772 with the Expanded Buffer feature. 
The STX, ETB, ETX, and the device control 
characters (DCx) do not go into the buffer. 
Records exceeding the buffer size cause 
an I/O buffer to overrun error, which 
causes the 2772 to send a MAK in response 
to the received block. BTAM will retry 
the Write operation seven times, then 
post the operation complete with error. 

Each IRS (RS) character in data trans- 
ferred from the buffer to the card punch 
causes the card currently being punched to 
be ejected and a new card fed. This action 
also occurs if no IRS (RS) character has 
been detected by the time 80 consecutive 
data characters have been sent to the 
punch. 

Printing : Data to be sent to the printer 
may be formatted into print lines of 132 
characters or less by the use of IRS (RS) 
or NL characters. If neither of these 
characters is detected by the time 132 
characters have been sent to the printer, 
successive data is printed on the next 
line. The new line function also occurs if 
the printer reaches a tab stop. 



Display ! Records exceeding the length of 
the display line are not truncated, but are 
continued on the next display line. In 
nontransparent mode, variable length re- 
cords may be sent to the 2772. The number 
of records per transmission is not 
restricted except by buffer size. The STX, 
ETB, ETX, and DCx characters do not enter 
the buffer. All other characters, includ- 
ing escape sequences and end- to- end control 
characters, occupy positions in the buffer. 
In transparent mode, variable length blocks 
may be sent to the 2772. A block consists 
of one record, since end-to-end controls 
are not recognized in transparent mode. 
The length of the block may not exceed the 
buffer size. 



Transmission of Blank Cards 



Basic 2772 ; In either transparent or non- 
transparent mode, blank cards are read into 
the buffer and transmitted just as are 
cards containing data. 



2772 with Expanded Buffer Feature ; In non- 
transparent mode, data from the card reader 
is packed. That is, each card is read into 
the buffer, then scanned from column 80 
backward until a data character is reached. 
The control unit then inserts an IRS (RS) 
character in the buffer at the next posi- 
tion. The next card is read into the buf- 
fer beginning at the next following posi- 
tion. Thus, card definition is maintained 
while unnecessary blanks at the end of the 
card are deleted. For this reason, the 
2772, when equipped with the Expanded Buf- 
fer feature, does not transmit blank cards, 
in nontransparent mode. In transparent 
mode, data is not packed in the manner 
indicated above, and blank cards are 
transmitted. 
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IBM 2972 GENERAL BANKING TERMINAL SYSTEM — PROGRAMMING CONSIDERATIONS 



Communication between the central computer 
and the station control unit of an IBM 2972 
General Banking Terminal system employs an 
eight-bit transmission code and BSC multi- 
point data link control procedures . The 
makeup of the character set is as follows. 



BSC Data Link Control Characters 



The transmission code bit patterns for the 
data link control characters are identical 
to the EBCDIC bit patterns for the same 
characters. The 2972 station control unit 
can send and can receive and respond func- 
tionally to, these data link control chara- 
cters and sequences: 



Character 


Bit Pattern (Hex) 


STX 


02 


ETX 


03 


DLE 


10 


ETB 


26 


ENQ 


2D 


SYN 


32 


EOT 


37 


NAK 


3D 


ACK-0 


1070 


ACK-1 


1061 


WACK 


106B 


RVI 


107C 



The 2972 does not send the SOH (X'Ol 1 ) and 
ITB (X*1F') characters. However, it can 
receive them, but does not respond func- 
tionally to them. (This provides compati- 
bility with other types of remote BSC sta- 
tions that may be attached to the same mul- 
tipoint line.) 



Graphic and Terminal Function Control 
Characters 



Graphic characters are the alphabetic and 
numeric characters and the special symbols 
that can be printed on the 2980 teller and 
administrative stations, or that these sta- 
tions can send to the central computer. HT 
(horizontal tab), NL (new line), and Pass- 
book Index are examples of terminal func- 
tion control characters. The 2972 station 
control unit passes graphic and control 
characters between the communications line 
and the 2980s connected to the station con- 
trol unit. 



The character sets for the different 
models of the 2980 vary in the specific 
characters they include and in the indivi- 
dual transmission code bit patterns that 
represent the characters. For example, the 
bit pattern X'D3* represents a 6, in numer- 
ic shift, and L, in alphabetic shift, for 
the 2980 Model 1. For the Model 4, howev- 
er, the same bit pattern, X'D3', represents 
L,, in numeric shift, and Q. t in alphabetic 
shift. 



BTAM does not provide translation tables 
for user-program translation between EBCDIC 
and transmission codes. Appendix K shows 
the correspondence between each transmis- 
sion code bit pattern and the characters 
that bit pattern represents, for each of 
the models (1„ 2, and 4) of the 2980 
stations. 
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IBM 3735 PROGRAMMABLE BUFFERED TERMINAL — PROGRAMMING CONSIDERATIONS 



The 3735 Programmable Buffered Terminal 
is a stand-alone programmable terminal. 
The 3735 contains a communication interface 
and the controls necessary to use the 
BTAM BSC facilities to transmit properly 
assembled and structured Form Description 
programs to any terminal in the network, 
and to receive messages and data from 
the 3735 terminals. 

Detailed information on the facilities 
that the 3735 Programmable Buffered 
Terminal provide is found in the 3735 
Programmer's Guide, GC30-300L. 

The Programmer ' s Guide describes the 
methods and facilities necessary to design, 
write, and generate form description 
programs . 
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IBM_3270 DISPLAY SYSTEM - PROGRAMMING CONSIDERATIONS 



The control units, display stations, and 
printers that make up the IBM 3270 
Information Display System are supported 
by BTAM under control of the MFT or MVT 
options of the System/360 Operating System, 
Support for local or remote 3270 display 
systems or both can be included in BTAM. 

3270 DEVICES SUPPORTED 

BTAM supports the following remote 3270 
control unit and devices: 



3271 control unit, models 1 and 

2 

3277 display station, models 1 

and 2 

3275 display station, models 1 

and 2 

3284 printer, models 1, 2, and 

3 

3286 printer, models 1 and 2 



xne jz / i control unxx. nasi oe attacnea 
to either a 2701 Data Adapter Unit or 
a 2703 Transmission Control Unit. 

BTAM supports the following local 
3270 control unit and devices: 

• 2372 control unit, models 1 and 
2 

• 3277 display station, models 1 
and 2 

• 3284 printer, models 1 and 2 

• 3286 printer, models 1 and 2 

The 3272 control unit must be attached 
to a selector, multiplexer, or block 
multiplexer channel. 

For more information about remote 
and local 3270 configurations, see IBM 
3270, Infor mat ion Display Syste m, component 
Descriptio n. GA27-2749. 



327 CAPAB ILITIES SUPPORTED 

BTAM supports the following remote and 
local 3270 capabilities: 

• Read modified fields from device 
buffer 

• Write to device buffer 

• Erase and write to device buffer 

• Erase all unprotected fields in 
device buffer 

• Bead modified fields from device 
buffer from position 



• Read from device buffer 
• 4 Read from device buffer from 
position 

In addition, BTAM supports the remote 
3270 capability of copying from the buffer 
of one remote device into the buffer of 
another remote device on the same control 
unit. 

For remote 3270 display systems, 
capabilities are used through a combination 
of BTAM READ and WRITE macro instructions 
for nonswitched multipoint BSC stations 
and data link and end-to-end control 
characters in output messages. For local 
3270 display systems, capabilities are 
used through local types of BTAM READ 
and WRITE macro instructions (sepcified 
by means of the optype operand) . 

For more information about remote 
and local 3270 capabilities, see IBM 3270 
Informatio n ffjisp lay System, Component 
Description, G A 27- 2749." 

REMOTE 327 DISPLAY SYSTEM 

Remote 3270 display stations and printers 
are supported by BTAM as BSC stations 
connected to nonswitched multipoint lines 
using either EBCDIC or ASCII transmission 
code. 

DEFINING COMMUNICATIONS LINE GROUPS 

See "Defining Communications Line Groups" 
in the general section "Defining the 
Teleprocessing System," and see Appendix 
D. 

The UNIT operand of the IODEVICE 
system generation macro instruction must 
specify BSC3 for the remote 3270 display 
system. The DCB macro instruction operands 
that apply to the remote 3270 display 
system are: DSORG, MACRF, DDNAME, BUFNO, 
BUFL, BUFCB, EXLST, BFTEK, LERB, EROPT, 
DEVD, MODE, and CODE. 

DEFINING AND MODIFYING TERMINAL LISTS 

See "Defining and Modifying Terminal 
Lists" in the general section "Defining 
the Teleprocessing System," see "Defining 
Terminal Lists" under the heading "BSC 
Nonswitched Multipoint Operation" in the 
section "BSC Read and Write Operations," 
and see Appendix A. 
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Defining T er mina l Lis ts 

The DFTRMLST macro instruction is used 
to define terminal lists for the remote 
3270 display system. 

Each control unit has a one-character 
polling address (see Figure 3270-1) and 
a one-character selection address (see 
Figure 3270-2) . Each display station 
or printer has its own one-character 
address for specific polling and selection 
(see Figure 3270-3) , and all devices share 
a one-character address for general polling 
(see Figure 3270-3) . Double addressing 
is used for both control unit and devise. 
Each five-character polling or selection 
seguence has the format: 



XX 


XX 


YY 


YY 


ENQ 



where XX is the hexadecimal representation 
in EBCDIC or ASCII of the control unit 
address for polling or selection, YY is 
the hexadecimal representation of the 
device address, and ENQ is X^D* for 
EBCDIC or X'05« for ASCII. In the polling 
list, the last entry must be five EOT 
characters (X»37» for EBCDIC or X»04« 
for ASCII). 



Control 




EBCDIC 


ASCII 


Unit 


Address 


Hexadecimal 


Hexadecimal 


Number 


Character 


Representation 


Representation 





_ 


60 


2D 


l 


/ 


61 


2F 


2 


S 


E2 


53 


3 


T 


E3 


54 


4 


U 


E4 


55 


5 


V 


E5 


56 


6 


W 


E6 


57 


7 


X 


E7 


58 


8 


Y 


E8 


59 


9 


Z 


E9 


5C 


10 


(\) 


6A 


7C 


ll 


, 


6B 


2C 


I2 


% 


6C 


25 


13 




6D 


5F 


14 


5 


6E 


3E 


15 


? 


6F 


3F 


16 





F0 


30 


17 


1 


Fl 


31 


18 


2 


F2 


32 


19 


3 


F3 


33 


20 


4 


F4 


34 


21 


5 


F5 


35 


22 


6 


F6 


36 


23 


7 


F7 


37 


24 


8 


F8 


38 


25 


9 


F9 


39 


26 




7A 


3A 


27 


# 


7B 


23 


28 


@ 


7C 


40 


29 


1 


7D 


27 


30 


= 


7E 


3D 


31 


" 


7F 


22 



Figure 3270-2, 



Control Unit Addresses for 
Selection List Entries (with 
hexadecimal representations 
in EBCDIC and ASCII) 



Control 




EBCDIC 


ASCII 


Unit 


Address 


Hexadecimal 


Hexadecimal 


Number 


Character 


Representation 


Representation 





SP 


40 


20 


1 


A 


CI 


41 


2 


B 


C2 


42 


3 


C 


C3 


43 


4 


D 


C4 


44 


5 


E 


C5 


45 


6 


F 


C6 


46 


7 


G 


C7 


47 


8 


H 


C8 


48 


9 


1 


C9 


49 


10 


* (D 


4A 


5B 


11 




4B 


2E 


12 


< 


4C 


3C 


13 


( 


4D 


28 


14 


+ 


4E 


2B 


15 


1 


4F 


21 


16 


& 


50 


26 


17 


j 


DI 


4A 


18 


K 


D2 


4B 


19 


L 


D3 


4C 


20 


M 


D4 


4D 


21 


N 


D5 


4E 


22 


O 


D6 


4F 


23 


P 


D7 


50 


24 


Q 


D8 


51 


25 


R 


D9 


52 


26 


! (]) 


5A 


5D 


27 


$ 


5B 


24 


28 


* 


5C 


2A 


29 


) 


5D 


29 


30 


; 


5E 


3B 


31 


1 


5F 


5E 







EBCDIC 


ASCII 


Device 


Address 


Hexadecimal 


Hexadecimal 


Number 


Character « 


Representation 


Representation 





SP 


40 


20 


1 


A 


CI 


41 


2 


B 


C2 


42 


3 


C 


C3 


43 


4 


D 


C4 


44 


5 


E 


C5 


45 


6 


F 


C6 


46 


7 


G 


C7 


47 


8 


H 


C8 


48 


9 


J 


C9 


49 


10 


9 (0 


4A 


5B 


11 




4B 


2E 


12 


< 


4C 


3C 


13 


( 


4D 


28 


14 


+ 


4E 


2B 


15 


1 


4F 


21 


16 


& 


50 


26 


17 


J 


Dl 


4A 


18 


K 


D2 


4B 


19 


L 


D3 


4C 


20 


M 


D4 


4D 


21 


N 


D5 


4E 


22 


O 


D6 


4F 


23 


P 


D7 


50 


24 


Q 


D8 


51 


25 


R 


D9 


52 


26 


! (]) 


5A 


5D 


27 


$ 


5B 


24 


28 


* 


5C 


2A 


29 


) 


5D 


29 


30 


; 


5E 


3B 


31 


1 


5F 


5E 


General Poll 


" 


7F 


22 



Figure 3270-1. 



Control Unit Addresses for 
Polling List Entries and for 
Identification in Input 
Messages (with hexadecimal 
representations in EBCDIC 
and ASCII) 



Figure 3270-3. 



Device Addresses for Polling 
and Selection List Entries 
and for Identification in 
Input Messages (with hexa- 
decimal representations in 
EBCDIC and ASCII) 



190.2 OS BTAM SRL 



Examples : To define an open polling list 
for devices 1, 2, and 3 on control unit 
7 using EBCDIC transmission code: 



OPLIST DFTRMLST 



AOTOLST, (C7C7C1C12D, 

C7C7C2C22D, 

3737373737) 



the WCC and CCC, attribute character, 
cursor and buffer addresses, remote control 
unit address, remote device address, and 
sense and status bytes; for more 
information, see IBJ| 3270 I nformati on 



C7C7C2C22D,C7C7C3C32D, D isplay System. Component Descriptio n, 

G A 27- 2 7457" 



To define a wraparound polling list 
for devices 1,2, and 3 on control unit 
7 and a general poll on control unit 8 
using ASCII: 



WPLIST DFTRMLST 



AOTOWLST, (47474 1414105, 
47 47424205,4747434305, 
4848222205,0404 040404) 



To define a selection list for devices 
1, 2, and 3 on control unit 7 using EBCDIC: 

S1IST DFTRMLST OPENLST, (E7E7C1C12D, 
E7E7C2C2D, E7E7C3C32D) 

M odifying Terminal Lists 

The CHGNTRY. macro instruction is used 
to modify terminal lists for the remote 
3270 display system. (if wraparound 
polling is being done # the RESETPL maoTD 
instruction is used first to terminate 
polling.) 

Ex ampl e: To suspend the poll on device 
3 (from the first example under "Defining 
Terminal Lists 1 ') : 

SPOLL CHGNTRY OPLIST, AOTOLST, 3, 5, , SKIP 

BUFFER MANAGEMENT 

See the general section "Buffer 
Management." Programmer buffering or 
dynamic buffering can be used for the 
remote 3270 display system. 



CODE TRANSLATION 

See the general section "Code Translation." 
and see Appejidix E. 

To allow remote 3270 messages to be 
translated between EBCDIC and ASCII using 
the BTAM RASA and SASA translation tables, 
in the I/O interface code for six-bit 
structured data in all 3270 messages, 
the setting of the two high-order bits 
is determined by the setting of the six 
low-order bits in the byte (see Figure 
3270-4). Six-bit structured data includes 





00 
40 


0000 
SP 


01 
50 


0000 
& 


10 
60 


0000 


11 0000 
F0 




00 
CI 


0001 
A 


01 
Dl 


0001 
J 


10 
61 


0001 

/ 


n oooi 

Fl 1 




00 
C2 


0010 
B 


01 
D2 


0010 
K 


10 
E2 


0010 

s 


11 0010 
F2 2 




00 
C3 


0011 
C 


01 
D3 


0011 
L 


10 
E3 


0011 
T 


11 00)1 
F3 3 




00 
C4 


0100 
D 


01 
D4 


0100 
M 


10 

E4 


0100 
U 


11 0100 
F4 4 




00 
C5 


0101 
E 


01 
D5 


0101 
N 


10 
E5 


0101 
V 


11 0101 
F5 5 




00 
C6 


0110 
F 


01 
D6 


0110 
O 


10 
E6 


0110 

w 


11 0110 
F6 6 




nn 

C7 


nil l 
G 


ni 

D7 


ni li 
P 


!0 
E7 


011 ■ 
X 


1 1 01 M 
F7 7 




00 
C8 


1000 
H 


01 
D8 


1000 
Q 


10 
E8 


1000 
Y 


11 1000 
F8 8 




00 
C9 


1001 
1 


01 
D9 


1001 
R 


10 
E9 


1001 

z 


11 1001 
F9 9 




00 
4A 


1010 

c 


01 
5A 


1010 
! 


10 
6A 


1010 


11 1010 
7A : 




00 
4B 


1011 


01 
5B 


1011 

$ 


10 
6B 


1011 


11 1011 
7B * 




00 
4C 


1100 

< 


01 
5C 


1100 

* 


10 
6C 


1100 

% 


11 1100 
7C @ 




00 
4D 


1101 

( 


01 
5D 


1101 

) 


10 
6D 


1101 


11 1101 
7D 


EBCDIC 

Bits 

23 4567-> 


00 
4E 


1110 

+ 


01 

5E 


1110 


10 
6E 


1110 

> 


11 1110 
7E 


00 
4F 


mi 

i 


01 

5F 


mi 

^ ■ 


10 
6F 


mi 
? 


11 1111 
7F 


FRrnir 


i 


i 












t . 



Hex 



Graphic 
Character 



Note: The I/O interface code is obtained by overlaying columns 4,5,6, 
and 7 of standard EBCDIC code on columns C,D,E, and F. 

Figure 3270-4. I/O Interface Code for Six- 
Bit Structured Data 
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ASCII 
(l) message 

(in hexadecimal) 


02 


47 


41 


27 


44 


48 


11 


44 


20 


4A 


2E 


20 


53 


4D 


49 


54 


48 


03 


/CN Message 
V— / characters 


STX 


G 


A 


■ 


D 


H 


DC1 


D 


Space 


J 




Space 


S 


M 


1 


T 


H 


ETX 


EBCDIC 
(3) translation 

(in hexadecimal) 


02 


a 


CI 


7D 


C4 


C8 


11 


C4 


40 


Dl 


4B 


40 


E2 


D4 


C9 


E3 


C8 


03 


^-v Message 
\i/ content 


start 

of 

text 


control 
unit: 

7 


device: 
1 


AID: 

ENTER 

key 


cursor 
address: 
0264 


SBA 
order 


buffer 

address: 

0256 


message text: 
J. SMITH 


end 

of 

text 



Figure 3270-5. Sample Input Message (showing translation from ASCII to EBCDIC) 



(T\ Message 
^-^ content 


start 

of 

text 


escape 

command: 

1 


WCC 


SBA 
order 


buffer 

address: 

0064 


SF 
order 


attribute 
byte 


message text: 
ENTER 


end 
of 
text 


(n\ EBCDIC 
^"^ message 
(in hexadecimal) 


02 


27 


Fl 


C3 


11 


CI 


40 


ID 


60 


C5 


D5 


E3 


C5 


D9 


03 


/T\ Message 
— ' characters 


STX 


ESC 


1 


C 


DC1 


A 


Space 


(sd 


- 


E 


N 


T 


E 


R 


ETX 


Q ASCII 
translation 
(in hexadecimal) 


02 


IB 


31 


43 


11 


41 


20 


ID 


2D 


45 


4E 


54 


45 


52 


03 



Figure 3270-6. Sample Output Message (showing translation from EBCDIC to ASCII) 



Exampl es: Line 1 of Figure 3270-5 
represents a message received from- a 
display station using ASCII transmission 
code. (If the control unit and device 
addresses are to be checked against the 
entry in the polling list, this should 
be done before translation, since the 
terminal list entries are in transmission 
code.) Line 2 of Figure 3270-5 indicates 
the characters contained in the message. 
Line 3 shows the message after the TRNSLATE 
macro instruction has been used to 
translate from ASCII to EBCDIC. Line 
H indicates the content of the message 
for the problem program. 

Line 1 of Figure 3270-6 indicates 
the content of a message from the problem 
program. Line 2 shows the message before 
the TRNSLATE macro instruction has been 
used to translate from EBCDIC to ASCII. 
Line 3 indicates the characters contained 
in the message. Line 4 represents the 
message to be sent to a display station 
using ASCII transmission code. 



ACTIVATING AND REACTIVATING THE 
TELEPROCESSING SYSTEM 

See the general section "Activating and 
Deactivating the Teleprocessing System." 



LINE CONTROL AND MESSAGE TRANSMISSION 

See the general section "Line Control 
and Message Transmission," see "READ Macro 
Instructions" and WRITE Macro Instructions" 
under the heading "BSC Nonswitched 
Multipoint Operation" in the section "BSC 
Read and Write Operations," and see 
Appendixes B and G. 

Bea d Opera tions 

Bead Modif ied Fields for Operator Input; 
To poll a device or control unit and, 
after some action by the display station 
operator, to read a message block, use 
the READ TI macro instruction. The polling 
list entry either specified by or in the 
polling list specified by the entry operand 
determines whether a single device or 
all devices on a control unit are polled. 



If the operator pressed the ENTER 
key, pressed a PF key, or selected 
a detectable field with the selector 
pen, the READ TI macro instruction 
causes a normal read. If the 
device buffer was formatted, the 
buffer specified by the inoutarea 
operand contains an index byte 
and a message block with the format: 
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STX 



CU 
address 



device 
address 



AID 



cursor 
address 



SBA 



buffer 
address 



Text 



1 



1 



If the device buffer was 
unformatted, the buffer specified 
by the inoutarea operand contains 
an index byte and a message block 
with the format: 



STX 



SBA 



buffer 
address 



Text 



SBA 



buffer 
address 



Text 



& 



(55) 



STX 


CU 
address 


device 
address 


AID 


cursor 
address 


Text 


| CS) 



The message block following a black 
ending with an ETX has the format: 



Data from remote 3270 devices is 
blocked with a nominal length of 
256 bytes (including data link 
control characters) . The actual 
length of a block can be calculated 
from the DECCOONT field in the 
DECB. 

Since a response may contain more 
than one block, use READ TT macro 
instructions to read blocks until 
an EOT is received. If a specific 
poll was used and the device buffer 
was formatted, subseguent message 
blocks have the format: 



STX 



SBA 



buffer 
address 



Text 



If a specific poll was used and 
the device buffer was unformatted, 
subseguent message blocks have 
the format: 



Tetb^ 
l E ™ 



STX 



CU 
address 



device 
address 



AID 



cursor 
address 



If a general poll was used and 
the device buffer was unformatted, 
a message block following a block 
ending with an ETB has the format: 




SBA 



buffer 
address 


Text 


SBA 


buffer 
address 


Text 


s 


{"} 



The message block following a block 
ending with an ETX has the format: 



STX 


,.,. J 


OS) 



A general poll may result in 
messages from more than one device 
attached to the control unit polled. 
The last block of a message from 
one device ends with an ETX. If 
a general poll was used and the 
device buffer was formatted, a 
message block following a block 
ending with an ETB has the format: 



STX 



CU 
address 



device 
address 



AID 



cursor 
address 



Text 



(s) 



Bot e: A message block received 
in response to a BEAD TT macro 
instruction is not preceded by 
an index byte. 

If the operator pressed the CLEAR 
key or pressed a PA key, the READ 
TI macro instruction causes a short 
read. The buffer specified by 
the inoutarea operand contains: 
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index 
byte 


STX 


CU 
address 


device 
address 


AID 


ETX 



STX 


ESC 


6 


ETX 



If a card or cards were read by 
means of the operator 
identification card reader, the 
buffer specified by the inoutarea 
operand contains: 



index 
byte 


STX 


CU 
address 


device 

address 


AID 


0-37 
characters 


{-} 


LRC 


ETX 



If a test request message was 
entered and EROPT=T was not 
specified in the DCB, the buffer 
specified by the inoutarea operand 
contains: 



index 
byte 


SOH 


% 


/ 


STX 


Text 


ETX 



If an error status message was 
read, the buffer specified by the 
inoutarea operand contains: 



Follow the WRITE macro instruction with 
READ TT macro instructions. 

In the first message block, if the 
AID byte contains neither C 1 - 1 nor C^Y' 
or if the first byte is an SOH, the buffer 
specified by the inoutarea opearnd contains 
a message hlock with one of the formats 
described under "Head Modified Fields 
for Operator Input." Otherwise, the 
contents of the buffer are unpredictable; 
the message is probably nonexistent or 
incomplete. 

Examples of WEITE and READ macro 
instructions for reading modified fields 
are: 

WRITE DECB1,TIV,DCB1, (INBOF1,OUTBUF) , 

(256,4) ,SXNTR?2,3 
READ DECB2,TT,DCB1,INBUF1,256, f 3 

Read M odif ied Fie l d s fr o m Po sition : To 
select a device and read from the device, 
use a WRITE TI macro instruction with 
the entry operand specifying the selection 
entry of the device and the inoutarea 
operand specifying a buffer that contains 
(in EBCDIC or ASCII) : 



index 
byte 


SOH 


% 


R 


STX 


CU 
address 


device 
address 


sense/status 
bytes 


ETX 











// 








STX 


ESC 


1 


wcc 


J 


SBA 


buffer 
address 


ETX 



To terminate a read operation, issue 
a READ TRV macro instruction after 
receiving a message block ending with 
an ETX. If a permanent I/O error occurs, 
either issue a READ TP macro instruction 
to reread the block or issue a WRITE TR 
macro instruction to terminate the 
operation. 

Examples of READ macro instructions 
for reading modified fields for operator 
input are: 



Any data stream valid for a write operation 
may be used, but the WCC should inhibit 
reset of modified data tags and the last 
buffer address should indicate where the 
read modified operation is to start. 

Follow the WRITE TI macro instruction 
with a WRITE TTV macro instruction with 
the outarea operand specifying a buffer 
that contains (in EBCDIC or ASCII) : 



READ DECB1,TI,DCB1,INBUF1,256,PNTRY1,2 
READ DECB2,TT,DCB1,INB0F2,256,,2 

R ead Modified Fie lds: To select a device 
and, independently of action by the display 
station operator, to read from the device, 
use a WRITE TIV macro instruction with 
the entry operand specifying the selection 
entry of the device and the outarea operand 
specifying a buffer that contains (in 
EBCDIC or ASCII); 



STX 


r ■ 

: ESC 


6 


ETX 



Follow the WRITE TTV macro instruction 
with READ TT macro instructions. 
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Input message blocks are the same 
as those described under "Read Modified 
Fields." 

Examples of WRITE and BEAD macro 
instructions for reading modified fields 
from position are: 

WRITE DECBl,TI,DCB1,OOTBFl,8,SNTRr2,1 
WRITE DECB2,TTV,DCB1, (INBOF1,OUTBUF2) , 

(256,U),,1 
READ DECB3,TT,DCB1,INB0F1,256,,1 

Read Buffe r: To select a device and read 
from the device, use a WRITE TIV macro 
instruction with the entry operand 
specifying the selection entry of the 
device and the outarea operand specifying 
a buffer that contains {-IN EBCDIC or 
ASCII) : 



STX 


ESC 


2 


ETX 



Follow the WRITE TIV macro instruction 
with READ TT macro instructions. 

If the device buffer was formatted, 
the first message block in the buffer 
specified by the inoutarea operand has 
the format: 



STX 



SF 



attribute 



m 



If the device buffer was unformatted, 
subseguent message blocks have the format: 




Examples of WRITE and READ macro 
instructions for reading a buffer are: 

WRITE DECB1 ,TIV,DCB1, (INBUF1, OUTBUF) , 

(256,4) ,SYNTRY2,2 
READ DECB2,TT,DCB1,INB0F1,256,,2 

R ead Buffer from Position : To select 
a device and read from the device, use 
a WRITE TI macro- instruction with the 
entry operand specifying the selection 
entry of the device and the inoutarea 
operand specifying a buffer that contaias 
(in EBCDIC or ASCII) : 



STX 



ESC 



wcc 



SBA 



buffer 
address 



ETX 



STX 



SF 



CU 
address 



device 
address 



AID 



attribute 



text 



cursor 
address 



ETB 
ETX 



If the device buffer was unformatted, 
the first message block in the buffer 
specified by the inoutarea operand has 
the format: 



STX 


CU 
address 


device 
address 


AID 


cursor 
address 


~\ 


{s} 












/J 





Any data stream valid for a write operation 
may be used, but the WCC should inhibit 
reset of modified data tags (if their 
setting is wanted in the input message) , 
and the last buffer address should indicate 
where the read buffer operation is to 
start. 

Follow the WRITE TI macro instruction 
with a WRITE TTV macro instruction with 
the outarea operand specifying a buffer 
that contains (in EBCDIC or ASCII) : 



STX 


ESC 


2 


ETX 



If the device buffer was formatted, 
subseguent message blocks have the format: 



Follow the WRITE TTV macro instruction 
with READ TT macro instructions. 



IBM 3270 Display System-Programming Considerations 190.7 



Input message blocks are the same 
as those described under "Read Buffer.' 

Examples of WRITE and READ macro 
instructions for reading a buffer from 
position are: 



WRITE DECB1,TI,DCB1,OUTBFl,8,SNTRr3,3 
WR-ITE BECB2,TTV,DCB1, <INBtrF1v(MJTBF2) , 

(256,4) ,,3 

DECB3, TT r DCB 1 , INBUF 1 , 256, , 3 

tions 



J RITE 
BEAD 



Write Operations 

Write Buff er; To select a device and 
write a message block or blocks, use one 
of the folowing sequences of WRITE macro 
instructions: 

• WRITE TIR 

• WRITE TI 
WRITE TR 

• WRITE TI 
WRITE TTR 

• WRITE TI 
WRITE TT 



Examples of WRITE macro instructions 
for writing a buffer are: 

WRITE DECB1,TIR,DCB1,0UTBUF # l28,SNTRn,2 

WRITE DECB1,TI,DCB1 ,OUTBUF r 128 ,SNTRI1 , 2 
WRITE DECB2,TR,DCB1, r , ,2 

WRITE DECB1,TI,DCB1,0UTBF1,256,SNTRJ2,3 
WRITE DECB2,TTR,DCB1,0UTBF2 # 128,,3 

WRITE DECB1,II,DCB1,0UTBF1,256,SNTRY3,2 
WRITE DECB2,TT,DCB1,0BTBF2,256,,2 
WRITE DECB3,TR,DCB1,, ,,2 

WRITE DECB1,TI, DCB 1,0UTBF 1,256, SNTR 12,1 
WRITE DECB2,TT, DCB1 ,0UTBF2 ,256, , 1 
WRITE BECB3,TTR,DCB1,OOTBF3,128,,1 

Erase and Wri te B u ff er: To select a 
device, clear its buffer to nulls (binary 
zeros) , and write a message block or 
blocks, use one of the sequences of WRITE 
macro instructions listed under "Write 
Buffer" with the entry operand of the 
WRITE TIR or WRITE TI macro instruction 
sepcifying the selection entry of the 
device and the inoutarea operand of the 
WRITE TIR, WRITE TI, WRITE TT, or WRITE 
TTR macro instruction specifying a buffer 
that contains (in EBCDIC or ASCII) : 



WRITE TR 

WRITE TI 
WRITE TT 



STX 


ESC 


5 


WCC 


orders and text 


ETX 



WRITE TTR 

with the entry operand of the WRITE TIR 
or WRITE TI macro instruction specifying 
the selection entry of the device and 
the inoutarea operand of the WRITE TIR, 
WRITE TI, WRITE TT, or WRITE TTR macro 
instruction specifying a buffer that 
contains (in EBCDIC or ASCII) : 



STX 


ESC 


1 


WCC 


orders and text 


ETX 



Examples of WRITE macro instructions 
for erasing and writing a buffer are the 
same as those given under "Write Buffer," 

Erase Un protected Fields: To select a 
device and set all unprotected fields 
in its buffer to nulls (binary zeros) , 
use the WRITE TIR macro instruction or 
the WRITE TI and WRITE TR macro 
instructions with the instructions with 
the entry operand of the WRITE TIR or 
WRITE TI macro instruction specifying 
the selection entry of the device and 
the inoutarea operand specifying a buffer 
that contains (in EBCDIC or ASCIIJ : 



For information about the WCC and the 
orders and text that may follow it, see 
IBH 3270 Information Display System. 
Componen t prescription, GA27-2749. An 
SBA order sequence should follow 
immediately after the WCC, so that the 
write operation can be retried if an error 
occurs. 



STX 


ESC 


? 


ETX 



1 



1 



1 



1 



For more information about the results 
of this operation, see I£M 3270 Info rmation 
Display System, Component Descript ion. 
GA27-2749. 
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Examples of WRITE macro instructions 
for erasing all unprotected fields are: 

WRITE DECB1,TIR,DCB1,OOTBUF,4,SNTRY1,2 

WRITE DECB1,TI,DCB1,00TBUF,4,SNTRY1,2 
WRITE DECB2,TR,DCB1,,,,2 



COPY: To select a device and copy into 
its buffer the contents of the buffer 
of another device on the same control 
unit, use the WRITE TIB macro instruction 
or the WRITE TI and WRITE TR macro 
instructions with the entry operand of 
the WRITE TIR or WRITE TI macro instruction 
specifying the selection entry of the 
device and the inoutarea operand specifying 
a buffer that contains (in EBCDIC or 
ASCII) : 



STX 


ESC 


7 


CCC 


device 
address 


ETX 



1 



1 



1 



1 



For more information about -the CCC and 
the device address that follows it, see 
IBM 32.70 Info rma t io n Displa y S yste m. 
Component Description. GA27-2749. 

Examples of WRITE macro instructions 
for copying into a buffer are: 

WRITE DECB1,TIR,DCB1,0UTBUF # 6,SNTRY1,2 

WRITE DECB1,TI,DCB1,0UTBUF,6,SNTRY1 ,2 
WRITE DECB2,TR,DCB1,,,,2 

PROGRAMMING NOTES 

If the response to a READ TI, READ TT, 
WRITE TIV, or WRITE TTV macro instruction 
is a message block ending with an ETB, 
follow with a READ TT macro instruction, 
not a WRITE TT or WRITE TTV macro 
instruction. 

If a WRITE TI macro instruction is 
used to erase unprotected fields, follow 
with a WRITE TR macro instruction, not 
a WRITE TT, WRITE TIV, or WRITE TTV macro 
instruction. 

If a WRITE TI or WRITE TT macro 
instruction is used to start a printer, 
follow with a WRITE TR macro instruction, 
fiOt a WRITE TT, WRITE TIV, or WRITE TTV 
macro instruction. 



Error Condi t ions 

An error status message should be read 
from the remote 3270 device if: 



• A WRITE TI, WRITE TIR, or WRITE 
TIV macro instruction receives 
an RVI seguence in response to 
selection (completion code is 
X«7F'; bits 1 and 6 are on in the 
DECFLAGS field of the DECB) 

• A WRITE TI, WRITE TIR, or WRITE 
TIV macro instruction receives 
an EOT in response to text 
(completion code is X^V; bit 

1 is on in the DECFLAGS field; 

and EOT is in byte 1 of the DECRSPN 

field of the DECB) 

• A WRITE TIV or READ TI macro 
instruction receives a text block 
ending with an ENQ (completion 
code is X*41'; bit 1 is on in the 
DECFLAGS field) 

To receive the error status message, the 
problem program should issue a READ TI 
macro instruction using the polling entry 
of the device for which completion was 
posted. See Appendix C for a description 
of the error status message and suggested 
actions based on its contents. 

E xception al Conditions 

If the completion code is X'7F' and bits 
1 and 6 are on in the DECFLAGS field of 
the DECB, and error status message was 
received in response to a READ TI macro 
instruction (or in response to a READ 
TT macro instruction is a general poll 
was used) . 

If the completion code is X*7F I and 
bits and 1 are on in the DECFLAGS fields 
of the DECB, a WACK was received in 
response to a WRITE TI or WRITE TT macro 
instruction. If the write operation 
started a printer, this is a normal 
completion. A WRITE TR macro instruction 
must follow to reset the line. 



RETRY OPTIONS 

See the BSC3 retry options in the general 
section "Suggested Retry Options for BSC 
Read and Write Operations." 



ERROR RECOVERY PROCEDURES AND ERROR 
RECORDING 

See the general section "Error Recovery 
Procedures and Error Recording," and see 
Appendixes B and C. 



ON-LINE TESTING 

See "On-Line Testing for Binary Synchronous 
Communications Lines" in the general 
section "On-Line Testing." 
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To receive standard IBM maintenance 
for a remote 3270 display system, the 
on-line testing facility must be available, 



LOCAL 3270, pISgLAY„,SYSTEM 

The functions provided by BTAM for remote 
stations have been extended to support 
local 3270 display stations and printers 
as local devices using EBCDIC code. 



DEFINING THE LOCAL 3270 DISPLAY SYSTEM 



I dentifyin g Local 327 Devices 



The control unit a 
3270 display syste 
local during syste 
local 3270 display 
parameter of the I 
macro instruction 
and the MODEL para 
1 or 2. the IODEV 
macro instruction 
to the local 3270 
UNIT, ADDRESS, MOD 
more information a 
IODEVICE system ge 
instructions, see 
information about 
of the local 3270 



nd devices in a local 
m are identified as 
m generation. For the 

system, the UNIT 
OCONTRL system generation 
should specify 3272, 
meter should specify 
ICE system generation 
operands that apply 
display system are: 
EL, and FEATURE. For 
bout the IOCONTROL and 
neration macro 
Appendix D. For more 
models and features 
display system, see 



IgM 3270 Xnf orjoation Dis pla y S yste m, 
C omponen t De scrip t ion . GA27-2749. *~ 



Exampl e: The following system generation 
macro instructions are used to identify 
the local 3270 display systems shown in 
Figure 3270-7: 

IOCONTRL UNIT=3272,ADDRESS=22, . . . 
IOCONTRL UNIT=3272,ADDRESS=23, . . , 

IODEVICE UNIT*3277,ADDRESS=221, 

IODEVICE UNIT=3286,ADDRESS=222, 

IODEVICE UNIT=3277,ADDRESS=225, 

IODEVICE UNIT=3284,ADDRESS=227, 

IODEVICE SNIT=3277,ADDRESS=22E, 

IODEVICE UNIT=3277,ADDRESS=231, 

IODEVICE UNIT=3286,ADDRBSS=233, 

Grouping Local 3270 D evi ces 

Local 3270 devices are grouped together 
in the same way as remote terminals. 

Each local 3270 device is eguivalent to 
a communication line. Each group of local 
3270 devices is eguivalent to a line 
group. 

Local 3270 devices may be grouped 
during system generation by means of the 
UNITNAME macro instruction. Or line 
groups may be specified during program 
execution by means of the UNIT parameter 
of the DD statement. 







221 


3277 
Model 1 






Control r in.. 
.... Control Unit 
Unit 


222 












3286 
Model 1 




225 








3277 
Model 2 








227 








3284 
Model 2 




r> • • 






22E 






Position 




3272 
Model 2 










1 

1 
| 






3277 
Model 1 


















1 

1 22 
1 












S/360 










L 




















3272 
Model 1 


231 








1 


3277 
Model 1 












233 


























3286 
Model 1 













Figure 3270-7. Sample Local 3270 Display Systems Showing Device Addresses 
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Control 
Unit 



221 



3277 



RLN 1. 



222 



3286 



RLN 2" 



225 



3277 



227 



3284 



RLN 3- 



RLN 1-Line Group 
2 



22 E 



3277 RLN 4 



Line 
Group 1 



Control 
Unit 



231 



3277 



RLN 1' 



233 



3286 



RLN 2" 



Line 
Group 3 



Figure 3270-8. Line Groups and Relative 

Line Numbers for Example 1 . 



n 



Control 
Unit 



221 



3277 



RLN 1-, 



222 



3286 



225 



3277 



Line 
-Group 1 



227 



3284 



RLN 3- 



22 E 



3277 RLN 2 J 




Figure 3270-9. Line Group and Relative 

Line Numbers for Example 2. 
Local 32 70 devices making up a line 
group are associated with one DCB. The 
DDNAME in the DCB must be the same as 
the name of the DD statement for the line 
group. A line group can contain up to 
255 devices. A line group need not include 
all the devices on a control unit; it 
can include devices from several control 
units. Each local 3270 device is 
identified by its relative line number 
(RLN). The relative line numbers are 
determined by the order in which devices 
are grouped during system generation or 
program execution. 



Example 1 ; To def 
generation) the li 
line numbers shown 
the local 3270 dis 
Figute 3 270- 7 , see 
"Defining Communic 
in the general sec 
Teleprocessing Sys 
would be coded in 
place of 022, etc. 



ine (during system 

ne groups and relative 

in Figure 3270-8 for 
play systems shown in 

"Example 1" under 
ations Line Groups" 
tion "Defining the 
tern." (Address 221 
place of 021, 222 in 
) 



.e_2: To define (during program 
execution) the line groups and relative 
line numbers shown in Figure 3270-9, see 
"Example 2" under "Defining Communications 
Line Groups" in the general section 
"Defining the Teleprocessing System." 
(Address 221 would be coded in place of 
021, 227, in place of 027, etc.) 



For a description of the DCB macro 
instruction, see "Defining Communications 
Line Groups" in the general section 
"Defining the Teleprocessing System." 
The DCB macro instruction operands that 
apply to the local 3270 display system 
are; DSOBG* HACFF- DDNAME- BUFNO. BDFL. 
BUFCB, EXLST, and EROPT. 



The local 3270 device can be identified 
in a BEAD or WRITE macro instruction by 
means of the DCB and the relative line 
number; no terminal list is needed. 
Therefore* the DFTBHLST macro instruction 
is not used for the local 3270 display 
system. 



BUFFER MANAGEMENT 

See the general section "Buffer 
Management." Dynamic buffering cannot 
be used for the local 3270 display system. 
The REQBUF and RELBOF macro instructions 
can be used for manipulating buffer pools. 



CODE TRANSLATION 

Since only EBCDIC code is used, code 
translation does not apply to the local 
3270 display system. 



In the I/O int 
bit structured dat 
the setting of the 
is determined by t 
low-order bits in 
3270-4). Six-bit 
the WCC, attribute 
and buffer address 
see IBM 3210. Infor 
Component D esc ri pt 



erface code for six- 
a in all 3270 messages, 

two high-order bits 
he setting of the six 
the byte (see Figure 
structured data includes 

character, and cursor 
es; for more information, 
m a tron Dis play System, 
on, GA27-2749. 
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ACTIVATING AND DEACTIVATING THE LOCAL 
3270 DISPLAY SYSTEM 

See the general section "Activating and 
Deactivating the Teleprocessing System." 
The OPEN and CLOSE macro instructions 
are used to activate and deactivate line 
groups of local 3270 devices. The LOPEN 
macro instruction is used to activate 
a specific local 3270 device when the 
OPEN macro instruction has been 
unsuccessful. 



ATTENTION INTERRUPTIONS AND READ INITIAL 
OPERATIONS 

When the operator of a local 3270 display 
station carries out certain actions, such 
as pressing the ENTER or CLEAR key, 
pressing a PF of PA key, or selecting 
a detectable field with the selector pen, 
an I/O interruption, called an attention 
interruption, occurs. If a DCB has been 
opened for a line group that includes 
the display station, the attention 
interruption is recorded for the display 
station. If a DCB has not been opened, 
the attention interruption is ignored. 



The READ 
the local 32 
the dc oper 
and the rln 
local 3270 d 
group associ 
READ TI macr 
causes a che 
station spec 
of whether a 
been recorde 
display stat 
group. 



TI macro instruction for 
70 display system includes 
and, which specifies a DCB, 
operand, which specifies a 
isplay station in the line 
a ted with the DCB. When a 
o instruction is issued, it 
ck (beginning with the display 
ified by the rln operand) 
n attention interruption has 
d for any of the local 3270 
ions in the specified line 



If an attention interruption has 
occurred, a read initial operation is 
started to read a message from the display 
station from which the attention 
interruption came. When the message has 
been received, the READ macro instruction 
is posted complete, and the relative line 
number of the display staion is placed 
into the DECPOLPT field of the DECB. 
Only one attention interruption is serviced 
for each READ TI macro instruction, and 
osly one message is read. After a READ 
TI macro instruction has been issued, 
the problem program cannot issue another 
READ or WRITE macro instruction specifying 
the same DCB until either the read initial 
operation has been posted complete or 
the read request has been canceled by 
means of the RESETPL macro instruction. 
Attention interruptions that occur between 
read initial operations are recorded for 
the display stations and serviced by later 
READ TI macro instructions. 



If no attention interruption has 
occurred for the display stations 
associated with the DCB (when a READ TI 
macro instruction is issued), a read 
request (that is, a pending read initial 
operation) is recorded for the line group. 
When an attention interruption comes from 
one of the display stations, the pending 
read initial operation is started for 
that display station, and the read reguest 
is cleared for the line group. 

CHGNTRY Ma cr o In st ruction 

A special form of the CHGNTR? macro 
instruction is used in handling attention 
interruptions from the local 3270 display 
station. A CHNGTRY macro instruction 
with the SKIP operand is used to have 
a display station skipped, so that a read 
initial operation is not started (that 
is, an EXCP macro instruction is not 
issued) for that display station when 
a READ TT macro instruction is issued, 
even though an attention interruption 
has occurred. (If, when a READ TI macro 
instruction is issued, all display stations 
in the line group are to be skipped, a 
pending read initial operation is recorded 
for the line group.) A CHGNTRY macro 
instruction with the ACTIVATE operand 
is used to have a display station 
activated, so that a read initial operation 
is started when a READ TI macro instruction 
is issued, and an attention interruption 
has occurred. If, when the display station 
is activated, a pending read initial 
operation has been recorded for the line 
group and an attention interruption has 
been recorded for that display station, 
the pending read initial operation is 
started (that is, and EXCP macro 
instruction is issued) . 



Note : This form of the CHGNTRY macro 
instruction affects only read initial 
operations; it does not affect other local 
3270 read or write operations. 



Name 


Operation 


Operand 


[symbol] 


CHGNTRY 


dcbaddr, ATTLST, listposition,, fSKIP "\ 
^ACTIVATE J 



dcbaddr 

specifies the address of the DCB 
associated wit h the line group that 
includes the local 3270 display station 
to be sikpped or activated. 

ATTLST 

specifies that the relative line 
numbers of the local 3270 display 
stations in the line group associated 
with the DCB are to be treated as 
an attention list. 
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list position 

specifies the relative line number 
of the local 3270 display station 
to be skipped or activated. 

SKIP 

specifies that the local 3270 display 
station is to be skipped; that is, 
an attention interruption that has 
been recorded for the display station 
is to be ignored if a READ TI macro 
instruction is issued. 

ACTIVATE 

specifies that the local 3270 display 
station is to be activated; that is, 
a read initial operation is to be 
started if an attention interruption 
has been recorded for the display 
station when a READ TI macro 
instruction is issued. 

Return codes for this form of the 
CHGNTBY macro instruction are the same 
as those for the regular form (see "CHNGTRX" 
Macro Instruction" in the general section 
"Defining the Teleprocessing System") . 

RESE-TPL Ma cro Inst ruction 

A special fprm of the RESETPL macro 
instruction is used for the local 3270 
display system to cancel a read initial 
operation that is pending (because a READ 
TI macro instruction was issued when an 
attention interruption has not occurred). 



Name 


Operation 


Operand 


[symbol J 


RESETPL 


decbaddr [,ATTENT] 



decbaddr 

specifies the address of the DECB 

for the pending read initial operation 

that is to be canceled. 

ATTENT 

specifies that only the instructions 
reguired to cancel a pending read 
initial operation for a local 3270 
display system are to be generated 
by this macro instruction. 

If no second operand is specified, 
instructions are generated to determine 
the line type, and the proper 
instructions for that line type are 
executed. 

Note: If POLLING or ANSRING is 
specified as the second operand, 
instructions for the local 3270 display 
system are not generated. 



Programming Notes ; The RESETPL macro 
instruction does not halt read initial 
operations that have been started; it 
does prevent the outstanding READ TI macro 
instruction from having any subsequent 
attention interruptions serviced. If 
a read initial operation is pending (that 
is, it has not been started) , the IOBs 
are marked free, and a completion code 
of X* 48 • is posted in the ECB. If a read 
initial operation has been started, the 
IOBs are not marked free, and a completion 
code is not posted in the ECB by the 
RESETPL macro instruction. 

Follow the READ TI macro instruction 
with a WAIT macro instruction with the 
ECBLIST operand (or a TWAIT macro 
instruction) that specifies multiple ECBs, 
the ECB in the DECB specified by the READ 
TI macro instruction and another ECB. 
To allow the RESETPL macro instruction 
to be issued to cancel the read initial 
operation, post the other ECB. Provided 
that the RESETPL macro instruction gave 
a return code of X'00' or X^**', follow 
the RESETPL macro instruction with a WAIT 
macro instruction that specifies the ECB 
in the DECB specified by the READ TI 
macro instruction. A completion code 
of X'TF 1 indicates that a read initial 
operation had been started and that it 
completed sucessfully. Other READ and 
WRITE macro instructions can then be 
issued. 

Retur n cod es; When this form of the 
RESETPL macro instruction is used, the 
return codes have the following meanings: 

00 This code is set when the pending 
read initial operation for the 
specified DECB was canceled 
successfully. 

04 This code is set when a read initial 
operation for the specified DECB was 
started and will complete normally 
(see "Programming Notes" above) . 

08 This code is set for an illegal request 
(that is, BTAM found that the specified 
DECB* is not associated with a READ 
TI macre instruction for a local 3270 
display system) . 

0C This code is set for an unsuccessful 

request (that is, BTAM found an invalid 
control block) . 

1# This code is set when there was no 

read initial operation (either pending 
or started) for the specified DECB. 



READ AND WRITE OPERATIONS 

See "Read and Write Macro Instructions" 
and TAble 6A in the general section "Line 
Control and Message Transmission," see 
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"READ Macro Instructions" and "WRITE Macro 
Instructions" under the heading "Local 
IBM 3270 Display System" in the section 
"Local Read and Write Operations," and 
see Appendixes B and 6. 




Read Opera ti ons 

Read Modifi ed Fiel ds for Operator In put : 
To read a message from a display station 
after an attention interruption has come 

from it as the result of some action by 
the- display station operator, use the 
READ TI macro instruction. The rln operand 
specifies which display station in the 
line group should be checked first for 
an attention interruption. 

• If the operator pressed the ENTER 
key, pressed a PF key, or selected 
a detectable field with the selector 
pen, the READ TI macro instruction 
causes a normal read. If the 
device buffer was formatted, the 
buffer specified by the inoutarea 
operand contains a message with 
the format: 





















AID 


cursor 
address 


SBA 


buffer 
address 


text 


SBA 


buffer 
address 


text 


I 



If a card or cards were read by 
means of the operator identification 
card reader, the buffer specified 
by the inoutarea operand contains: 



AID 


0-37 
characters 


(-} 


LRC 



1 



1 



If a test reguest message was 
entered and EROPT=T was not 
specified in the DCB, the buffer 
specified by the inoutarea operand 
contains: 



SOH 


% 


/ 


STX 


text 



1 



1 



1 



1 



AID 



If the device buffer was 
unformatted* the buffer specifies 
by the inoutarea operand contains 
a message with the format: 



cursor 
address 



text 



The length of the message can be 
calculated from the DECCOONT field 
in the DECB, which contains the 
residual count. If the residual 
count is zero, the READ TMP macro 
instruction may be used to continue 
reading data. 

If the operator pressed the CLEAR 
key or pressed a PA key or if a 
card was extracted from the badge 
reader, the READ TI macro 
instruction causes a short read. 
The buffer specified by the 
inoutarea operand contains: 



The relative line number of the display 
station from which the message was read 
is placed into the DECPOLPT field of the 
DECB. 

To cancel the read initial operation 
reguested by a READ TI macro instruction 
(if the operation is pending) , issue the 
RESETPL macro instruction specifying the 
DECB from the READ TI macro instruction. 

Do not issue a READ TI macro 
instruction specifying a DCB associated 
with a line group that contains only 
printers, since the local 3270 printer 
cannot generate attention interruptions. 

An example of a READ macro instruction 
for reading modified fields for operator 
input is: 

READ DECB1,TI,DCB1,INBUF1,256,,2 

Bead Modified Fields : To read a message 
from a device independently of action 
by the display station operator, use the 
READ TM macro instruction. 

If the AID byte in the message contains 
neither C'- 1 nor C'Y' or if the first 
byte is an SOH, the buffer specified by 
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the inoutarea operand contains a message 
with one of the formats described under 
"Bead Modified Fields for Operator Input," 
Otherwise, the contents of the buffer 
are unpredictable; the message is probably 
nonexistent or incomplete. 



The length of 
calculated from th 
the DECB, which co 
count. If the res 
the READ TMP macro 
used to continue r 
relative line numb 
which the message 
the DECPOLPT field 



the message can be 
e DECCOONT field in 
ntains the residual 
idual count is zero, 

instruction may be 
eading data. The 
er of the device from 
was read is placed into 

of the DECB. 



An example of a READ macro instruction 
for reading modified fields is: 

READ DECB1,TM,DCB1,INBUF1,256,,3 

Bead Modif ie d Fields from Position ; To 
read a message from a device, use the 
BEAD TMP macro instruction with the entry 
operand specifying an area that contains: 



wcc 


SBA 


buffer 
address 



] 



1 



The WCC should inhibit reset of modified 
data tags, and the buffer address should 
indicate where the read modified operation 
is to start. Data transfer begins with 
the first modified field at or following 
the buffer address specified. 



Input messages are the same as those 
described under "Read Modified Fields." 

An example of a READ macro instruction 
for reading modified fields from position 
is: 



READ DECB 1, TMP, DCB1,INB0F1, 256, ENTRY1,1 

Read Buffe r: To read a message from a 
device, use the READ TB macro instruction. 
If the device buffer was formatted, the 
buffer specified by the inoutarea operand 
contains a message with the format: 



If the device buffer was unformatted, 
the buffer specified by the inoutarea 
operand contains a message with the format: 




The length of the message can be 
calculated from the DECCOUNT field in 
the DECB, which contains the residual 
count. If the residual count is zero, 
the READ TBP macro instruction may be 
used to continue reading data. The 
relative line number the device from which 
the message was read is placed into the 
DECPOLPT field of the DECB. 

An example of a READ macro instruction 
for reading a buffer is: 

READ DECB1,TB,DCB1,INBDF1,256,,2 

Read Bu ffer fr om Po sition: To read a 
message from a device, use the READ TBP 
macro instruction with the entry operand 
specifying an area that contains: 



WCC 


SBA 


buffer 
address 



1 



1 



1 



The WCC should inhibit reset of modified 
data tags (if their setting is wanted 
in the input message) , and the buffer 
address should indicate where the read 
buffer operation is to start. 

Input messages are the same as those 
described under "Read Buffer." 

An example of a READ macro instruction 
for reading a buffer from position is: 

READ DECB1,TBP,DCB1,INBUF1,256,ENTRY2,3 

Write Opera tions 

Write Buff er: To write a message to a 
device, use the WRITE TI macro instruction 
with the inoutarea operand specifying 
a buffer that contains: 



AID 



cursor 
address 



SF 



attribute 
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For information about the WCC and the 
orders and text that may follow it, see 
IBM 3270 Information Di spla y S yste m. 
C omponent Desc ri ption, GA27-2749. An 
SBA order sequence should follow 
immediately after the WCC, so that the 
write operation can be retried if an error 
occurs. 

An example of a WRITE macro instruction 
for writing a buffer is: 

WRITE DECB1,TI,DCB1,0UTBUF,256,,2 

E rase- and W r i te Buffer; To clear its 
buffer to nulls (binary zeros) and write 
a message to a device, use the WRITE TS 
macro instruction with the inoutarea 
specifying a buffer that has the same 
contents as described under "Write Buffer." 

An example of a WRITE macro instruction 
for erasing and writing a buffer is: 

WRITE DECB1,TS,DCB1,OUTBUF,256,,2 

Erase Unprot e cted Fields : To set all 
unprotected fields in the buffer of a 
device to nulls (binary zeros) , use the 
WRITE TUS macro instruction with the 
inoutarea operand specifying any real 
address and the inoutlength operand 
specified as one. 

For more information about the results 
of this operation, see IBM 3270 Information 
D isplay System, component Description, 
GA27-2749. 

An example of a WRITE macro instruction 
for erasing all unprotected fields is: 

WRITE DECB1,TUS,DCB1,0UTBUF,1,,2 



ON-LINE TESTING 

See "On-Line Testing for Local 3270 Display 
System" in the general section "On-Line 
Testing. " 

To receive standard IBM maintenance 
for a local 3270 display system, the on- 
line testing facility must be available. 



SYSTEM GEN ERATION 

See Appendix D for information about the 
operands that must be included in the 
IOCONTRL and IODEVICE system generation 
macro instructions when generating an 
operating system that includes BTAM support 
for the remote 3270 display system or 
the local 32 70 display system or both. 

For information about other operands 
and other system generation macro 
instructions and about the system 
generation process, see IBM Syste m/360 
Operating System: S yste m Generation . 
GC28-6554. 



STORAGE ESTIMATES 



FIXED MAIN STORAGE REQUIREMENTS 

BTAM support for the local 3270 display 
system adds to the fixed main storage 
requirements for control program options 
described in IBM S yst e m/360 O peratin g 
System: Storage E stim ates* GC 28- 6551; 
the nucleus of an MFT or MVT system is 
increased by 850 bytes for a new SVC and 
a new attention routine. 



ERROR RECOVER* PROCEDURES AND ERROR 
RECORDING 



See the general section "Error Recovery 
Procedures and Error Recording," and see 
Appendix B. 



RETRY OPTIONS 



See the local 3270 retry options in the 
general section "Suggested Retry Options 
for Local Read and Write Operations. " 



DYNAMIC MAIN STORAGE REQUIREMENTS 

The dynamic main storage requirement is 
estimated by adding together a coding 
space estimate, a control information 
space estimate, a control block space 
estimate by line group, a control block 
space estimate by line, a control block 
space estimate by READ or WRITE macro 
instruction, and a channel program space 
estimate by line. Estimates for the 3270 
display system are given in Figures 3270- 
10, 3270-11, 3270-12, 3270-13, 3270-14, 
and 3270-15. 

For more information, see OS Storage 
Estimate s. GC28-6551. 
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Description 


Remote 3270 
(in bytes) 


Local 3270 
(in bytes) 


Primary requirement: 






• without buffer management 


8,500 


4,000 


• with buffer pool support 


8,950 


4,450 


• with dynamic buffering 


10,164 


NA 1 


Optional requirement: 






• online test 


2,690 


660 


• line error print (LERPRT) 


374 


NAl 


• line open (LOPEN) 


530 


530 


• translate (TRNSLATE) 


158 


NA 1 


• change entry (CHGNTRY) 2 


352 


72 


• reset (RESETPL) 2 


600 or 256 3 


600 or 200 4 


NA indicates not applicable. 






The estimate is for each macro 


'nstructipn expansio 


n. 


The lower estimate applies whe 


n POLLING is spec 


fied. 


The lower estimate applies whe 


n ATTENT is specifi 


ed. 



Figure 3270-10. Coding Space Estimates 
(3270 Display System) 



Device Type 


Bytes Required 


Remote 3270 device 


328 


Local 3270 device 


120 



Figure 3270-11 



Control Information Space 
Estimates for Each Device 
Type (3270 Display System) 



Group Type 


Control Blocks 


Bytes Required 


Remote 3270 line group 


DCB, DEB 


188 to 204 +4 per line, 


Local 3270 device group 


DCB, IRB, IQE, DEB 


260 + 4 per line 



Figure 3270-12. Control Block Space for 

Each Line Group or Device 
Group (3270 Display System) 



Line or Device Type 


Control Block 


Bytes Required 


BSC Line for 
remote 3270 devices 


IOB 


64 


UCB 


20 


Line error block 


20 


Local 3270 device 


IOB 


64 . 


UCB 


40 



Figure 3270-13. Control Block Space for 

each Line or Device (3270 
Display System) 



Macro Instruction 


Control Block 


Bytes Required 


READ or WRITE for 
remote 3270 


DECB 


48 


READ or WRITE for 
local 3270 


DECB 


40 



Figure 3270-14. 



Control Block Space for 
Each READ or WRITE macro 
Instruction (3270 Display 
System) 



Line or Device Type 


Bytes Required 


BSC Line for Remote 3270 Devices 


88 


Local 3270 device 


24 



Figure 3270-15. Channel Program Space 

Estimates for Each Line or 
Device (3270 Display System) 



Library 


Number of 
Directory Records 


Number of Tracks Required 


2301 


2302 


2303 


2311 


2314 


2321 


2305-1 


2305-2 


3330 


SYS 1. SVC LIB 


18 


7 


NA 


24 


33 


16 


NA 


14 


10 


10 


SYS1.MACLIB 
(blocked) 


2 


13 


65 


66 


70 


37 


120 


20 


18 


22 


SYS I.MAC LIB 
(unblocked) 


2 


29 


79 


103 


109 


69 


229 


88 


49 


44 


SYS1.TELCMUB 


1 


2 


2 


2 


3 


2 


4 


2 


2 


2 



Figure 3270-16. Auxiliary Storage Requirements for BTAH 
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AUXILIARY STORAGE REQUIREMENTS 



STORAGE ESTIMATES FOR BTAM MODULES 



BTAM support for the 3270 display system 
increases the auxiliary storage 
requirements described in Storage 
Estimates . GC28-6551, by adding to the 
SVC library, the macro library, and the 
subroutine libraries. Auxiliary storage 
requirements for BTAM with 3270 display 
support are given in Figure 3270-16. 



Listed below are storage estimates for 
modified and new modules for BTAM support 
of the 3270 display system. See Sto ra ge 
Estimates , GC28-6551, for information 
about ot*her BTAM modules. 



Modified B TAM Modules 

Routin e Module 

BTAM Open Executor IGG0193M 

BTAM Close Executor IGG0203M 

Read/Write Channel Program Generator IGG019MA 

Channel End/Abnormal End Appendage IGG019MB 

Line Open IECTLOPN 

Online Test Control IGG019MR 

Online Test Control (Start-Stop) IGC006F 

Online Test Control (BSC) IGC0D06F 

BTAM BSC ERP Control IGE0004C 



Size_iin_Bitesl 

1024 
1024 
3158 
5516 
564 
2560 
1024 
1024 
1024 



New BTAM Modules 

Routine Module 

BTAM Open Executor (for Local 3270) IGG0194P 

BTAM Open Executor (for Local 3270) IGG0194Q 
Channel End/Abnormal End Appendage 

(for Local 3270) IGG019PA 

BTAM Local 3270 SVC IECTSVC 

First-Level Attention Routine (for 

Local 3270) IECTATEN 
Second-Level Attention Routine (for 

Local 3270) IGG019PG 

Local Online Test Control IGG019PI 

EBCDIC Test Module (for 3270) IGC0E06F 

EBCDIC Test Module (for 3270) IGC0F06F 

ASCII Test Module (for Remote 3270) IGC1006F 

ASCII Test Module (for Remote 3270) IGC1106F 

Online Test Control (for Local 3270) IGC1206F 

EBCDIC Test Module (for 3270) IGC1306F 

EBCDIC Test Module (for 3270) IGC1406F 

Error Post (for Remote 3270) IGE0704B 

Local 3270 I/O Module IGG019PH 

3270 Scan Routine IECTSCAN 



S 1 ize, i .jinJ3ytesX 

1024 
1024 

455 
539 

303 

160 

480 
1024 
1024 
1024 
1024 
1024 
1024 
1024 
1024 

143 
4096 



ONLINE TESTING 



Test programs for the 3270 display system 
can be run under the System/360 Operating 
System using the Online Test Executive 
Program (OLTEP) . For local 3270 control 
units and devices, an online test program 
and a BTAM application program can be 
executed concurrently; only the control 
unit or device being tested is unavailable 
to the application program. For remote 
3270 control units and devices, a BTAM 
application program must end use of the 
line before an online test program can 
be executed. 



For more information about OLTEP, 
see IBM System/360 Op erating S ystem: 
Online Tes t^ Executiv e Progra m. GC28-6650. 



C ONVERSION 

For information about converting from 
2260 display stations to the 3270 display 
system, see IBM 2260 £T.AM ajid 2260 GAM 
to IBM 312P. BTAM Conversion Guide, GC27- 
6975. 
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ERROR RECOVERY PROCEDURES AND ERROR RECORDING 



BTAM provides facilities called error re- 
covery procedures (ERP) that diagnose a 
variety of error conditions that occur dur- 
ing message transmission, and attempt to 
recover from those conditions that are con- 
sidered recoverable so that transmission 
can continue. In addition to the diagnos- 
tic and recovery capabilities, error recov- 
ery procedures: 



Provide to the user program information 
about errors from which ERP could not 
recover, so that the program can act 
accordingly. 



Accumulate in special data sets, called 
the Statistical Data Recorder (SDR) and 
the Outboard Recorder (OBR) , counts of 
certain kinds of errors; these are use- 
ful to the Customer Engineer in analyz- 
ing line and equipment troubles. 



• Notify the operator at the central com- 
puter console (or some other console, 
if the system has the Multiple Console 
Support facility) of certain kinds of 
errors. 



In addition to these ERP-provided func- 
tions, BTAM provides the capability of 
accumulating in a set of counters, collec- 
tively called a line error recording block 
(LERB), running totals of certain kinds of 
error conditions, and printing these totals 
at the central computer console (or some 
other console, if the system has the Mul- 
tiple Console Support facility) . These 
capabilities are provided by the LERB and 
LERPRT macro instructions. 



Error recovery procedures handle errors 
arising from conditions at remote stations, 
on communications lines, and at transmis- 
sion control units. The action with which 
ERP responds to an error condition depends 
on the kind of error, the type of I/O com- 
mand (Poll, Read, Write, etc.) being 
executed when the error occurred, and the 
type of remote station involved. ERP ana- 
lyzes the error condition, considering each 
of these factors, and performs the appro- 
priate action. Error conditions are consi- 
dered to be in one of three categories: 
irrecoverable, temporary, and permanent. 
An irrecoverable error is one that is 
inherently incapable of being corrected by 
program action; that is, some form of human 



intervention is required 1 . ERP does not 
attempt to recover such errors. When an 
irrecoverable error occurs, ERP sets indi- 
cators denoting the nature of the error in 
the data event control block (DECB) for the 
line involved in the I/O operation, noti- 
fies the operator at the central computer 
console by message IEAOOOI (see Appendix C 
for the format of this message) , and re- 
cords the occurence of the error in the 
Outboard Recorder (OBR) , unless the error 
is a timeout, data check, or intervention 
required error. These three kinds of 
errors can optionally be recorded in the 
line error recording block. 

If an error is not inherently irrecover- 
able, ERP attempts to recover from it, usu- 
ally by reissuing the I/O command for which 
the error occurred or issuing other appro- 
priate I/O commands to clear the condition. 
If ERP succeeds in clearing the condition, 
the error is said to be temporary. BTAM 
records its occurrence in the Statistical 
Data Recorder (SDR), and the user program 
continues normally. If ERP is unsuccessful 
in clearing the condition, the error is 
said to be permanent. BTAM records its 
occurrence in the Outboard Recorder (OBR), 
sets bits indicating the nature of the 
error in the DECB for the line involved in 
the I/O operation, and notifies the opera- 
tor at the central computer console, by 
means of message IEAOOOI. 

BTAM error recovery procedures attempt 
to clear error conditions up to two times, 
for operations on start-stop lines, and up 
to six times on BSC lines. Thus, permanent 
error conditions are indicated in the DECB 
after the I/O operation has been attempted 
three times (start- stop) or seven times 
(BSC) . Irrecoverable errors are indicated 
in the DECB after only one attempt, since 
such errors are not retried. 

Once an error condition has occurred and 
the ERP facility is trying to recover from 
it, any subsequent errors that may occur 
during the retries are not indicated in the 
DECB to avoid obscuring the original error 



*An exception to this is the buffer- 
unavailable condition, which may occur 
when dynamic buffering is in use and the 
buffer pool becomes depleted. This condi- 
tion (indicated by bit 4 in DECFLAGS) , 
though not recoverable by ERP, can be 
anticipated by the user program, which can 
request retransmission of the lost 
message. 
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condition. Neither are subsequent errors 
recorded in the SDR, OBR, or LERB, nor are 
they indicated to the console operator. 
This ensures that only errors occurring 
during I/O operations issued by the user 
program are recorded. 



Error recovery procedures are divided 
into basic functions and additional 
functions. 



ADDITIONAL FUNCTIONS 



• When an error occurs during execution 
of a Read Text command (called a Read 
Text error) , ERP will optionally retry 
the operation unless dynamic buffering 
is in use. This function is optional 
for the IBM 1050, 2740 (with the Record 
Checking feature), and 2260; it is 
unavailable for other start-stop ter- 
minals; and it is always required for 
BSC stations. 



BASIC FUNCTIONS 



• When an error occurs during an I/O 
operation that does not involve trans- 
mission of message text (these are 
called non-text errors) , ERP retries 
the operation. 

• ERP records each occurrence of a tem- 
porary error in the Statistical Data 
Recorder, and each occurrence of a per- 
manent or irrecoverable error in the 
Outboard Recorder. 

• ERP provides, in the data event control 
block for the line involved, informa- 
tion on (1) permanent errors, (2) irre- 
coverable errors, and (3) errors occur- 
ring during transmission of message 
text (called Read Text and Write Text 
errors) for which ERP does not attempt 
recovery. Recovery of Read Text and 
Write Text errors is an additional ERP 
function, described below. 

• ERP sends a message to the operator at 
the console of the central computer (or 
some other console, if the system has 
the Multiple Console support facility) 
for each permanent and irrecoverable 
error . 

Basic ERP functions are optional for 
line groups involving start-stop terminals, 
but are required for line groups involving 
BSC stations. To obtain these basic func- 
tions for start-stop terminals, code EROPT= 
E in the DCB macro for the line group, or 
omit the EROPT operand. To omit the basic 
functions, code EROPT=N (valid only for 
start-stop line groups) . 

Coding EROPT=N prevents certain ERP rou- 
tines from being included in the system, 
with a consequent saving in storage space. 
It is recommended that EROPT=N be coded for 
line groups for ATST 83B3 and WU 11 5A ter- 
minals, for the reasons given in the 
explanation of the EROPT operand in Table 
1. 



• When an error occurs during execution 
of a Write Text command (a Write Text 
error), ERP will optionally retry the 
operation unless dynamic buffering is 
in use. This function is optional for 
start-stop terminals, and results in an 
additional copy of the message text for 
each retry (except for messages sent to 
a card punch or tape punch of an IBM 
1050 with the Line Correction feature, 
or to a 226 with the Line Address fea- 
ture); it is always required for BSC 
stations. 

• ERP will optionally record, in the line 
error recording block, each occurrence 
of a data check, time-out, or interven- 
tion required error. 

These three additional functions are speci- 
fied as follows. To provide recovery 
attempts for Read Text errors (start-stop 
terminals) , code EROPT=R in the DCB macro 
for the line group involved; to provide for 
recovery from Write Text errors (start-stop 
terminals), code EROPT=W. These EROPT 
parameters are ignored if dynamic buffering 
is specified for the line group, or if they 
are specified for a type of terminal for 
which recovery is not available. (It is 
not necessary to explicitly specify recov- 
ery attempts for Read Text and Write Text 
errors for BSC stations; the function is 
always performed for BSC.) 

To provide for recording of errors in 
the line error recording block, code EROPT= 
C in the DCB macro, code a LERB macro to 
define the LERB , and code the name of the 
LERB macro in the LERB operand of the DCB. 

Note ; Errors occurring during transmission 
of test messages by the on-line test facil- 
ity are not recorded in the LERB. 



LERB (Line Error Recording Block) Macro 
Instruction 



LERB defines for each line in a line group 
an area of main storage called a line error 
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recording block. This block consists of a 
group of counters in which are kept cumula- 
tive totals of data check, intervention 
required, and non-text time-out errors, and 
of the number of transmissions. There are 
two sets of these counters for each com- 
munications line. The contents of one set, 
called the threshold counters, are incre- 
mented each time a transmission or an error 
occurs, until one of the counters reaches 
its threshold value, which is determined by 
the LERB macro. When the threshold value 
is reached, the contents of all four 
threshold counters are printed at the con- 
sole of the central computer (message IEC8- 
011; see Appendix C for the format). The 
contents of the threshold counters are 
added to the other set of counters, called 
cumulative counters or accumulators , and 
the threshold counters are reset to zero. 



The contents of the accumulators are 
printed, and both sets of counters are 
optionally reset to zero when you issue a 
LERPRT (Line Error Recording Print) macro 
instruction. 

r t t 1 

| Name | Operation | Operand j 

j. + + -I 

| symbol | LERB | nlines [ , { ( [transmct] | 
j | j [,datack] , [,intreq] | 
| j j [,nontto])>.. .3 | 

i x ± J 

symbol 

is the name of the first line error 
recording block defined by this macro. 
It must be specified; it must also be 
coded in the LERB operand of the DCB 
macro for the line group. 

nlines 

specifies the number of lines compos- 
ing the line group for which the LERB 
macro is defining these blocks. The 
allowable range of values is 1 to 255. 

transmct 

specifies the transmission count 
threshold: the number of consecutive 
transmissions that when reached causes 
the contents of the threshold counters 
to be printed, and the counters reset 
to zero. You may specify from 1 to 
255; if you omit the operand, 255 is 
assumed. 

datack 

specifies the data check error count 
threshold: the number of data checks 
that when reached causes the contents 
of the threshold counters to be 
printed, and the counters reset to 
zero. You may specify from 1 to the 
value of transmct. If you omit the 
operand, either 10 or the value of 



transmct, whichever is lower, is 
assumed. 

intreq 

specifies the intervention required 
error count threshold: the number of 
intervention required errors that when 
reached causes the contents of the 
threshold counters to be printed, and 
the counters reset to zero. You may 
specify from 1 to the value of 
transmct. If you omit the operand, 
either 5 or the value of transmct, 
whichever is lower, is assumed. 

nontto 

specifies the non-text time-out error 
count threshold: the number of non- 
text time-out errors that when reached 
causes the contents of the threshold 
counters to be printed and the count- 
ers reset to zero. You may specify 
from 1 to the value of transmct. If 
you omit the operand, either 5 or the 
value of transmct, whichever is lower, 
is assumed. 

Of these operands, only nlines is manda- 
tory. If you code only this operand,, the 
default threshold counts of 255, 10, 5 and 
5 are assumed for each of the lines in the 
line group. If you code threshold counts 
for one line, the same counts are assumed 
for all successive lines for which you do 
not code threshold counts; the counts are 
effective until you code another set of 
threshold counts. 



Example : 



LG1LERB 



LERB 10,, , (200, 20,, 7), ,, 
(240,20,25,10) 



This LERB macro provides line error record- 
ing blocks for ten lines: 

• The first two lines have assumed 
threshold values of 255 (transmct), 
10 (datack), 5 (intreq), and 5 
(nontto) . 

• The next three lines have explicit 
transmct, datack, and nontto thresh- 
old values of 200, 20, and 7, and an 
assumed intreq threshold value of 5. 

• The remaining five lines have ex- 
plicit threshold values of 240, 20, 
25, and 10. 

Omit the parentheses if you omit all 
the suboperands (transmct, etc.) 
for a line, as has been done for 
lines 1, 2, 4, 5, 7, 8, 9 and 10 in 
the example. Also omit trailing 
commas (as for lines 7, 8, 9, and 10 
above) . 
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LERPRT (Line Error Recording Print) Macro 
Instruction 



LERPRT causes the current contents of the 
cumulative counters (accumulators) for a 
line to be printed at the console of the 
central computer or, in systems with Mul- 
tiple Console Support, at some other user- 
designated console. (The message number is 
IEC802I; see Appendix C for the format.) 
As explained under the LERB macro, the con- 
tents of the four threshold counters for 
the line are added to the accumulator each 
time one of the threshold counters reaches 
its threshold value. The contents of the 
threshold counters are also added to the 
accumulators (and the threshold counters 
are reset) when you issue the LERPRT macro. 
You may also specify in LERPRT that the 
threshold counters and accumulators for the 
line be reset to zero. 

Caution ; Issue a LERPRT macro for a line 
only if the line group containing that line 
is open . 

r t t 1 

(Name | Operation | Operand | 

j. + + ^ 

| [symbol] | LERPRT | dcbaddr [ , rln] [ , cid] | 



| [~, CLEAR=YES" ] 

I L,CLEAR=NO J 

-X 



dcbaddr 

specifies the address of the DCB for 
the line group containing the line for 
which the contents of the accumulators 
are to be printed. 

rln 

specifies the relative line number of 
the line involved. rln cannot exceed 
the number of lines contained in the 
line group (as indicated in the nlines 
operand of the LERB macro) . If you 
omit this operand, all non-zero values 
of the accumulators for all lines in 
the group are printed. 

cid (applicable only to systems having the 
Multiple Console Support facility) 

specifies the address of a byte con- 
taining the identification of the con- 
sole at which the message is to be 
printed. If you omit this operand 
when the system includes the MCS faci- 
lity, the message is printed at con- 
soles having a routing code of 8. If 
you specify an invalid console ID, the 
message is printed at consoles having 
a routing code of 1. 

CLEAR=YES 

specifies that the threshold counters 
and accumulators be reset to zero 



after the contents of the accumulators 
are printed. If you omit this 
operand, CLEAR=YES is assumed. 

CLEAR=NO 

specifies that the threshold counters 
and accumulators are not to be reset 
after the contents of the accumulators 
are printed. 



ERROR DETECTION AND ANALYSIS 



To determine what action to take when an 
error occurs requires that the error condi- 
tion be analyzed. This is true whether 
error recovery is to be performed by ERP 
routines or by the user program. If BTAM 
ERP is used, all error analysis and recov- 
ery attempts are performed before the Read 
or Write operation is posted as complete in 
the event control block (ECB) for the line. 
All user program analysis and recovery 
attempts, whether in addition to BTAM ERP 
actions or in place of them, occur after 
the Read or Write operation is posted as 
complete. Thus the user program analysis 
and recovery routine should receive control 
following each completion of a Read or 
Write operation. 

As mentioned previously, BTAM sets 
various error indicators in the DECB. Some 
of these are set before ERP routines gain 
control, others are set by the ERP rou- 
tines. The DECB fields containing error 
indicators are: 

• DECSDECB. This is the address of the 
event control block, which is the first 
fullword of the DECB. The first byte 
contains the completion code for the 
operation. 

• DECFLAGS. A one-byte field containing 
flags that BTAM sets at the conclusion 
of a Read or Write operation. Some of 
these flags represent not errors but 
exceptional conditions of interest to 
the user program. These flags are set 
regardless of whether the operation was 
completed successfully. 

• DECERRST. A. one-byte field containing 
flags indicating the kind of I/O error 
that occurred. These flags are set only 
in the event of a true I/O error (as 
opposed to an exceptional condition) as 
indicated in the event control block by 
a completion code of X^l'. 

• DECCSWST. A half word field containing 
the status indicators set in the channel 
status word (CSW) at the conclusion of 
the Read or Write operation. 



194 OS BTAM SRL 



DECSEiMSO. A one-byte field containing 
the sense information returned by the 
transmission control unit at the conclu- 
sion of the I/O operation that resulted 
in a Unit Check error. 



User Program Analysis Procedure 



A recommended procedure for checking the 
results of a Read or Write operation is as 
follows. 

First determine whether the operation 
was completed successfully or unsuccessful- 
ly. A completion code of X'7F' in the 
event control block (DECSDECB) indicates 
successful completion, and a code of X'41* 
indicates unsuccessful completion. A third 
completion code, X'48', indicates that the 
Read or Write operation was halted as a 
result of issuing a RESETPL or CLOSE macro 
while the operation was in progress . 



Normal Completion 



If the completion code is X'7F' f check the 
DECFLAGS field. If it contains all zeros, 
no exceptional condition has occurred, and 
the program can execute whatever Read or 
Write operation would normally follow the 
completed operation. If DECFLAGS does not 
contain all zeros, check each of the appro- 
priate flags to determine the exceptional 
condition, then take suitable action. 



Abnormal Completion 

If the completion code is X'41', determine 
the nature of the I/O error as follows. 
Check the DECFLAGS and DECERRST fields. If 
DECERRST does not contain all zeros, check 
the appropriate bits from among bits 0-4. 
(Bit 2 is applicable unless BTAM ERP rou- 
tines are not present in the system; bit 3 
is applicable only if the TCU is an IBM 
2701.) 

If both DECFLAGS and DECERRST contain 
all zeros, check the bits in the CSW status 
field, DECCSWST, in the order indicated in 
the priority column of Table 13. If the 
Unit Check bit is on, check the sense bits 
in DECSEMSO in the order indicated in Table 
14. Then take appropriate action. These 
last two fields, DECCSWST and DECSENSO, 
contain the same information as was checked 
by the ERP routines, if the system includes 
the ERP facility. 



The preceding discussion mentioned 
checking the "appropriate" bits; this sim- 
ply means those bits that could possibly be 
set in a given situation. For example, it 
would be appropriate to check bit of 
DECFLAGS only if you were analyzing the 
result of an operation on a BSC line, as 
bit is not used in start-stop operations. 

Many factors are involved in determining 
what action is suitable in response to a 
given kind of error or exceptional 
condition. 

For exceptional conditions occurring in 
conjunction with a successful completion of 
a Read or Write operation, the question is 
not of retrying an operation that failed, 
but rather of determining what kind of Read 
or Write operation should be executed next. 

Some of the factors to be considered in 
determining what program action to take in 
the event of an error or exceptional condi- 
tion are the type of Read or Write opera- 
tion (e.g. Read Initial, Write Continue) 
and the specific command (e.g. Poll, Read 
Text* Write Response) being executed when 
the error occurred, and the type of remote 
station or line involved. The characteris- 
tics of the application will determine 
other factors to be considered. In any 
event, it is inadvisable to pursue the same 
procedure that the BTAM ERP facility does, 
for any given error condition. The tables 
and explanations are intended to show what 
BTAM ERP has already done to recover, or to 
guide you in writing your own recovery pro- 
cedures; they are not intended to suggest 
user analysis actions once error recovery 
has been attempted. The next chapter sug- 
gests, for BSC lines, appropriate macros to 
issue after BTAM posts exceptional or error 
conditions. 

In general, BTAM error recovery proce- 
dures anticipate all of the possible condi- 
tions from which recovery may be possible, 
and in each case takes appropriate action 
to achieve recovery. For this reason, use 
of the BTAM-provided error recovery proce- 
dures is highly recommended, and saves much 
coding effort for the application programm- 
er, in many applications, the appropriate 
action for the user program to take when 
ERP fails to recover is simply to ignore 
the error condition and resend the same 
message text with the next Read or Write 
operation, or to defer further operations 
on the line until an equipment failure or 
abnormal condition can be corrected. Usu- 
ally, it is appropriate for the program to 
notify the operator at the central computer 
console or teleprocessing console of the 
condition. 

The remainder of this chapter provides 
detailed explanations of what actions BTAM 
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error recovery procedures perform for each 
of the error and exceptional conditions, 
and for each of the commands and types of 
remote stations for which the error can 
occur. This information is provided for 
users wishing to write their own error ana- 
lysis and recovery routines, for use either 
in place of or in addition to the BTAM- 
provided ERP facility. As mentioned pre- 
viously, an error analysis routine usually 
must consider the type of Read or Write 
operation and the type of channel command 
on which the error or exceptional condition 
occurred. Three fields in the DECB contain 
this information: 



DECTYPE indicates the kind of Read or 
Write operation being executed. 

Note : Certain error conditions cause 
BTAM ERP to modify the DECTYPE field, so 
that this field has a different value at 
the end of the Read or Write operation 
from the value it initially had. No 
other user-specified DECB field is modi- 
fied oy ERP. 



• DECCMCOD indicates the specific type of 
channel program command on which the 
error occurred. 



DECTPCOD indicates the TP Operation Code 
associated with the command. Each BTAM 
channel command contains this code, in 
byte five of the channel command word 
(CCW) . This code, which is not present 
in CCWs for other (non-TP) environments, 
has no effect on channel operations. It 
is in effect an extension of the command 
code, and identifies the purpose of the 
command. 



The meanings of the bits in each of 
these fields are given in Appendix B. In 
these descriptions, and in the descriptions 
of the BTAM ERP actions below, references 
are made to types of I/O operations, equip- 
ment conditions, and indicators that are 
not defined elsewhere in this publication, 
as they relate to the operational details 
of specific types of transmission control 
units and related equipment. Understanding 
of these references and writing of an error 
recovery routine requires a knowledge of 
the functional complexities of this equip- 
ment, which is beyond the scope of this 
publication to impart. Information on 
transmission control units may be found in 
the publications listed under that heading, 
at the front of this publication. 



Table 13. User Program Status Analysis 
r 



Priority 



T T - 

cswj 

Bit J Condition 



h 

6 



Remarks 



45 j Channel Control 
| Check 



46 | Interface 

| Control Check 



44 | Channel Data 
j Check 



32 j Attention 

+ ___ _ 

33 | Status Modifier 



34 | Control Unit 
End 



35 



| Busy 

■+ 

| Unit Check 

I 



47 j Chaining Check 



| Check 

| Sense 

| Bits 

-+— — - 



. + + 

42 | Program Check 
I 

43 (Protection 
Check 



| Program 
| Error 

j Program 
I Error 



39 junit Exception 



j Possible 
j Error 



41 



j Incorrect 
j Length 

.j. 



j Possible 
| Error 



Table 14. User Program Sense Byte Analysis 
r t t 1 



T T 

I Sense 
Priority! Bit 



I 3 



-+— 
I 2 



Condition 



Equipment Check 



Lost Data 



Timeout 



Intervention Required 



Bus Out 



Data Check 



Overrun 



Command Reject 
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BTAM ERP ERROR ANALYSIS AND RECOVERY 
ACTIONS 



BTAM routines analyze error and exceptional 
conditions by examining the status field of 
the channel status word (CSW) and in the 
case of a Unit Check error, by examining 
the sense information provided by the TCU 
at the end of the I/O operation. 

More than one indication may be set in 
the CSW when an error condition occurs. 
Generally, only one of these indicators 
properly describes the condition; other 
indicators reflect secondary effects. 
Similarly, transmission control unit errors 
can cause more than one sense bit to be 
set. To ensure that the primary condition 
is recognized and acted upon, priority 
schemes determine the order in which status 
and sense bits are tested. 

Tables and explanations of actions are 
shown separately for start-stop and BSC 
operations ,_ as the actions differ consider- 
ably for these two categories. 



"Should-Not-Occur" Errors 



Among the error conditions causing BTAM to 
pass control to ERP are those which are 



undefined for a particular command or com- 
bination of hardware conditions. An over- 
run error, for example, has no meaning for 
a Write command. 



In some instances, however, ERP can 
recover even from undefined errors. Con- 
sider, for example, a lost data error 
occurring on a Dial command issued for a 
start-stop line. Although this condition, 
like lost data on a Write command, is not 
defined (and is therefore not mentioned in 
the SRL publications for the IBM 2701, 
2702, and 2703), ERP does try to recover by 
reexecuting the Dial command (see Table 19 
and ERP action 20.) After two unsuccessful 
retries, ERP disables the line, notifies 
the operator, and records the error in the 
Outboard Recorder. 



Note that ERP does not attempt recovery 
when a lost data error occurs on a Write 
command; rather, ERP immediately indicates 
a "should-not-occur" error has occurred. 
In Table 19, Write falls in the "all other 
commands" category; see action 11. 



Table 15 shows for various commands the 
error conditions OS BTAM ERP considers to 
be "should-not-occur" errors and therefore 
does not attempt recovery. 



Table 15. Should-Not-Occur Error Conditions Posted by BTAM ERP 

r T T T T T T ■ T T" T 

Error 
Condition 



Write 



Read 



Inhibit 



Prepare 



Sense 



Disable 



Enable 



Dial 



Poll 



Lost Data 

Timeout 

Intervention 
Required 

Bus Out 
Check 

Data Check 

Overrun 

Unit 
Exception 



• 3 



• 6 



• *• 



• 6 



• 5 



^•Should-not-occur error only for start-stop lines. 

2 Not a should-not-occur error for any Write command that sends 

transparent text (BSC lines) , or for a 2260/2848 (start-stop lines) 
3 Should-not-occur error only for Write operations on BSC lines. 
**Should-not-occur error only if TCU is a 2701, for start-stop lines; 

always a should-not-occur error for BSC lines. 
5 Should-not-occur error only if TCU is a 2701. 
6 Not a should-not-occur error if TCU is a 2703 and user program 

issued RESETPL macro. 
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START-STOP ERROR RECOVERY PROCEDURES 



In the tables, figures in parentheses following the name of a command represent the 
TP-OP code of the command, as appearing in the DECTPCOD field of the DECB at completion 
of a Read or Write operation. 

Table 16. Status Analysis — Start-Stop 



r t 

CSW | Condition 

Bit | 

+ . 

45 | Channel Control Check 
+- 



46 j Interface Control Check 
44 1 j Channel Data Check 






32 I Attention 



.__ + 

33 1 Status Modifier 



34 I Control Unit End 



35 | Busy 



38 j Unit Check 



47 j Chaining Check 



42 j Program Check 
43 Protection Check 






39 j Unit Exception 



.__ + 

41 | Incorrect Length 

j. ■ 



Table 17. Sense Byte Analysis 



Priority 

1 









T 

Sense | 
Bit | Condition 

3 j Equipment 
| Check 



6 JLost Data 

7 | Timeout 



1 j Intervention 
j Required 



4- 



2 | Bus Out 

— + 

4 | Data Check 



5 j Overrun 

+ 

| Command 
j Reject 



Remarks 



Check Sense Bits 



Program Error 
Program Error 
Possible Error 



Possible Error 



t 1 

Priority! Action 



1 



+-- 



+-- 



| (See 

| Table 17) 



4 



| (See 

j Table 18) 



11 



— St art- Stop 

1 



Action 



See Table 19 
See Table 20 



See Table 21 



See Table 22 



4- 



See Table 23 



See Table 24 



See Table 25 
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Table 18. Unit Exception — Start-Stop 

r 

I Command 



2741 

83B3 or 115A (Telegraph adapter type I) 

all other terminals 

I Read 

Read response to addressing (06) 

Terminal adapter type I 

2740 

all other terminals 

All other types of adapters 

Read response to text (20) 

2740 with station control 6 checking, or 2260 

Write text retries specified (EROPT=W) 
Write text retries not specified 

all other terminals 

All other Reads 

I All other commands 



L 



Table 19. Lost Data — Start-Stop 



Act ion 



h ., 

iWrite or Poll (03) 



10 

11 (SNO) 

11 (SNO) 



12 




13 




11 


(SNO) 


11 


(SNO) 


11 


(SNO) 



J 



I Command 



h 



Action 



14 
15 



Read 

Read ID response (07) 

Read response to addressing (06) 

Read Text (11) 

If residual count =0 

83B3 or 115A (Telegraph adapter type I) 
all other terminals 

If residual count not = 

Read response to text (20) 

Dial (01) 

All other commands 



16 
17 

18 (SNO) 

19 

20 

11 (SNO) 
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Table 20. Timeout ■-- Start-Stop 

r •■ 

| Command 



Action 



Write 

2260 or 2265 (Terminal Adapter Type III) 
all other terminals 

Read (or Inhibit) 

Read response to addressing (06) 

83B3 

all other terminals 

Read ID response (07) 

Read response to polling (05) 

First command is Disable 
First command is not Disable 

Read Index (0A) 

First command is Disable 
First command is not Disable 

Read text (11) 

Read response to text (20) 

Write text retries specified (EROPT=W) 

Operation is Write Continue 

Operation is not Write Continue 

First command is Disable 
First command is not Disable 

Write text retries not specified 

Disable (01) 

Enable (01) 

preceded by Disable 
not preceded by Disable 

Prepare (01) 

Dial (01) 

Poll (03) 

All other commands 



21 

22 (SNO) 



23 

24 

25 



23 
25 



23 
26 

27 



13 

28 
24 

13 

29 

24 

30 (SNO) 

25 

31 

32 

33 (SNO) 
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Table 21. Intervention Required — Start-stop 

r ■ 

| Command 

I- 



Action j 
* 

34 



26 



Write or Break (23) 
Read (or Inhibit) 

Read Index (OA) 

Read response to polling (OA) 

Operation is Write TTV 
Operation is not Write TTV 

Read response to text (20) 

Read text retries specified (EROPT=R) 

Operation is Write Continue 
Operation is not Write Continue 

Read text retries not specified 

All other Reads 
Dial (01) 



2741 

All other terminals 

Poll (03) 



JA11 other commands 

L 



35 
36 



37 
24 

37 



39 
40 

61 
36 
24 
41 (SNO) 



Table 22. Bus Out Check — Start-Stop 

r 

| Command 

h 



Action j 
1 



Write 

prior to Write text 

Write text (11) 

Write text retries specified (EROPT=W) 

Failing command is last command or next 
command is not Read response to text 

Next command is Read response to text 

Write text retries not specified 

following Write text 

Dial (01) 

Poll (03) 

All other commands 



46 



46 
45 
44 
45 
46 
46 
11 (SNO) 
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Table 23. Data Check — Start-Stop 

r ■ — 

| Command 



Action 



Write 

83B3, 115A, or TWX (33,35) (Telegraph adapter type I or II) 
Error occurred during text transfer 



Write retries specified (EROPT=W) 
Write retries not specified 

Error did not occur during text transfer 

World Trade Telegraph terminals (WTT Adapter) 

Read (or Inhibit) 

Read ID response (07) 

Read response to polling (0A) or any other Read 
command prior to text transfer 

First command in channel program is Disable 
First command in channel program is not Disable 

Read text (11) 

Dynamic buffering is used 

Dynamic buffering is not used 

Read text retries specified (EROPT=R) 

Operation is Read Repeat 

Operation is write continue Conversational 

All other operations 

Read text retries not specified 

Read response to text (20) 

Operation is Write Continue 
All other operations 

Remote terminal is 2740 with 2760 feature, and operation 
is Write TIO, TCO, or TVO 

Poll (03) 

All other commands 



24 
39 

24 

37 

48 



49 
50 



51 



24 
53 
54 

51 



48 




52 


(SNO) 


55 




56 




52 


(SNO) 
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Table 24. Overrun — Start-Stop 

r 

| Command 

I- 



Poll (03) 

TCU is 2702 
TCU is not 2702 

Inhibit (11) 

Read text retries are specified (EROPT=R) 
Read text retries are not specified 



jAjlx ox:ner conimanus 

l 



Action j 
< 



Read 

Read Index (0A) 

Read response to text (20) 

All other Reads 

Dynamic buffering is used 

Dynamic buffering is not used 

Read text retries are specified (EROPT=R) 
Read text retries are not specified 



57 
58 

59 



60 
59 



57 

11 (SNO) 



60 
59 



Table 25. Command Reject 

r 

| Command 

j._ 

| Poll (03) 

I 

| All other commands 

L 



t- Start- Stop 



Action 



< 

11 (SNO) j 
I 

J 
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ERROR RECOVERY ACTIONS FOR START-STOP 
OPERATIONS 



complete- with- error, notifies the 
console operator, and records the 
occurrence in the OBR. 



In the descriptions of the actions per- 
formed by BTAM error recovery procedures, 
the phrase "if applicable", applied to the 
action of recording occurrences in the line 
error recording block (LERB), means that 
the error is so recorded only if it is a 
data check, intervention required, or non- 
text time-out error, and if you have speci- 
fied that errors be recorded by appropri- 
ately coding the EROPT and LERB operands of 
the DCB macro instruction. 

The phrase "ERP notifies the console 
operator" means that ERP writes message 
IEA000I to the console of the central com- 
puter, and/or to some other console (e.g., 
teleprocessing console) if the Multiple 
Console Support facility is in use. This 
allows the operator to take whatever action 
is necessary to correct the condition. See 
Appendix C for the format of this message. 

The phrase "ERP posts the operation as 
complete- with- error" means that ERP sets 
the post flag in the ECB for the line to 
indicate conclusion of the operation, and 
sets a completion code of X r 41* in the ECB, 
to indicate that an I/O error occurred. 

1 If the Channel Check Handler (CCH) of 
the Recovery Management Support faci- 
lity has been included in the operat- 
ing system during system generation, 
ERP forces a permanent error condi- 
tion by setting the Unit Check and 
Equipment check sense bits in the 
sense byte. This causes ERP for this 
condition to notify the console 
operator. Operations can proceed 
normally for line groups using other 
channels. If the CCH facility is 
not included in the operating system, 
the condition is recorded in the 
System Environment Recorder (SER) 
and the Supervisor enters Wait state, 
as the error is too serious to allow 
further operations. 



ERP sets the should-not-occur bit 
(bit 1) in DECERRST, posts the opera- 
tion complete-with-error, notifies 
the console operator, and records the 
occurrence in the OBR. 

If the error occurred on a Read com- 
mand, ERP posts the operation 
complete-with-error, notifies the 
console operator, and records the 
occurrence in the OBR. If the error 
did not occur on a Read command, ERP 
sets the should-not-occur bit (bit 1) 
in DECERRST, posts the operation 



10 



11 



ERP notifies the console operator. 
The error is probably a program 
error. 

ERP notifies the console operator. 
The error is caused by control unit 
failure, and the communications line 
involved should be considered 
inoperative. 



ERP restarts the channel program at 
the Write or Poll command. On the 
third occurrence of the error, ERP 
posts the operation complete-with- 
error and records the occurrence in 
the OBR. 



ERP executes a Break command, then 
restarts the channel program. On the 
third occurrence of the error, ERP 
posts the operation complete-with- 
error, notifies the console operator, 
and records the occurrence in the 
OBR. 

The error indicates that data is 
being received from the line without 
a command. 

ERP executes a Read Skip command. 
If the Read Skip is successful* ERP 
restarts the channel program at the 
failing command. On the third occur- 
rence of the error, ERP posts the 
operation complete-with-error # noti- 
fies the console operator, and reco- 
rds the occurrence in the OBR. 

The error indicates that data is 
being received from the line without 
a command. 



The Unit Exception condition is norm- 
al for a 2740 and indicates receipt 
of a positive or negative response 
( Y or N ) . If Y was received, ERP 
turns off the Unit Exception bit and 
restarts the channel program at the 
next command. If N was received, ERP 
posts completion with or without 
error. Receipt of a character other 
than Y or N is a should-not-occur 
condition; ERP sets the should-not- 
occur bit (bit 1) in DECERRST and 
posts the operation complete-with-error. 

ERP sets the should-not-occur bit 
(bit 1) in DECERRST, posts the opera- 
tion complete-with-error, notifies 
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the console operator, and records the 
occurrence in the OBR. 



12 ERP executes a Write Continue channel 
program to resend the same message 

text. On the third occurrence of 21 
this error, ERP posts the operation 
complete-with-error, notifies the 
console operator, and records the 
occurrence in the OBR. 22 

The error indicates a buffer 
overflow. 

13 ERP posts the operation 
complete-with-error. 

1H ERP restarts the channel program at 23 

the failing command. On the third 
occurrence of this error, ERP dis- 
ables the line, posts the operation 
complete-with-error, notifies the 
console operator, and records the 
occurrence in the OBR. 

15 ERP restarts the channel program. On 24 
the third occurrence of the error, 

ERP posts the operation eomplete- 
with- error, notifies the console 
operator, and records the occurrence 
in the OBR. 

16 ERP executes a Break command, posts 25 
the operation complete-with-error, 
notifies the console operator, and 
records the occurrence in the OBR. 

The error indicates that the input 
message was larger than the input 
area specified in the READ macro. 

17 ERP executes a Read Skip command, 26 
posts the operation complete- with- 
error, notifies the console operator, 

and records the occurrence in the 
OBR. 

The error indicates that the input 
message was larger than the input 
area specified in the READ macro. 27 

18 ERP sets the should-not-occur bit 
(bit 1) in DECERRST and posts the 
operation complete-with-error . 

19 ERP executes a Read Skip command, 
posts the operation complete- with- 
error, and notifies the console 
operator, and records the occurrence 28 
in the OBR. 

20 ERP restarts the channel program at 
the Dial command. On the third 
occurrence of the error, ERP disables 29 
the line, posts the operation 
complete-with-error, notifies the 



console operator, and records the 
error in the OBR. 

The error indicates that the Dial 
command was sent to a line that was 
already in the "off -hook" condition. 

ERP builds and executes a Reset chan- 
nel program. The error occurrence is 
recorded in the LERB (if applicable). 

ERP sets the should-not-occur bit 
(bit 1) in DECERRST* posts the opera- 
tion complete-with-error, notifies 
the console operator, and records the 
occurrence in the OBR. The occur- 
rence is recorded in the LERB (if 
applicable) . 

ERP restarts the channel program at 
the third command. On the third 
occurrence of the error. ERP posts 
the operation complete- with-error 
and notifies the console operator. 
Each occurrence is recorded in the 
LERB (if applicable). 

ERP restarts the channel program. On 
the third occurrence of the error, 
ERP posts the operation complete - 
with-error and notifies the console 
operator. Each occurrence is record- 
ed in the LERB (if applicable). 

ERP restarts the channel program at 
the failing command. On the third 
occurrence of the error, ERP posts 
the operation complete-with-error and 
notifies the console operator. Each 
occurrence is recorded in the LERB 
(if applicable). 



ERP restarts the channel program to 
resend the polling sequence. On the 
third occurrence of the error,, ERP 
posts the operation complete-with- 
error and notifies the console opera- 
tor. Each occurrence is recorded in 
the LERB (if applicable) . 

ERP posts the operation complete- 
with-error. The error indicates that 
no text was received or that the 
elapsed time between successive text 
characters exceeded about 28 seconds 
(the intercharacter timeout 
interval) . 



ERP restarts the channel program at 
the third command. On the third 
occurrence of the error, ERP posts 
the operation complete-with-error. 

ERP restarts the channel program at 
the failing command. On the third 
occurrence of the error, ERP posts 
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the operation complete- with- error and 
notifies the console operator. Each 
occurrence is recorded in the LERB 
(if applicable). 



The error indicates that the data 
set (modem) is failing to disconnect. 



30 ERP sets the should-not-occur bit 
(bit 1) in DECERRST, posts the opera- 
tion complete-with- error, and noti- 
fies the console operator. 

31 ERP restarts the channel program at 
the failing command. On the third 
occurrence of the error, ERP posts 
the operation complete- with- error 
and notifies the console operator. 
Each occurrence of the error is re- 
corded in the LERB (if applicable) . 

The error indicates that the 
remote station is not answering, when 
dialed, in the time allotted. 



32 ERP restarts the channel program to 
resend the polling sequence. On the 
third occurrence of the error, ERP 
posts the operation complete- with- 
error and notifies the console opera- 
tor. Each occurrence is recorded in 
the LERB (if applicable). 

The error indicates that no 
response was received from the remote 
station. 

33 ERP sets the should-not-occur bit 

(bit 1) in DECERRST and posts the 
operation complete-with-error . The 
occurrence is recorded in the LERB 

(if applicable). 

34 ERP sets the retry count to maximum 
and posts the operation complete- 
with-error. The occurrence is re- 
corded in the LERB (if applicable). 

The error indicates that the 
addressed line has not been enabled. 

35 ERP restarts the channel program at 
the third command to resend the poll- 
ing sequence. On the third occur- 
rence of the error, ERP posts the 
operation complete-with-error and 
notifies the console operator. Each 
occurrence is recorded in the LERB 
(if applicable). 

36 ERP restarts the channel program at 
the beginning. On the third occur- 
rence of the error, ERP posts the 
operation complete-with-error and 
notifies the console operator. Each 



occurrence is recorded in the LERB 
(if applicable). 



37 ERP posts the operation complete- 
with-error and notifies the console 
operator. The occurrence is recorded 
in the LERB (if applicable). 



38 
39 

40 



ERP posts the operation complete- 
with-error and notifies the console 
operator. 

ERP restarts the channel program at 
the failing command. On the third 
occurrence of the error, ERP posts 
the operation complete-with-error and 
notifies the console operator. 

The error indicates that the Auto- 
matic Calling Unit power is off or 
that the addressed line is not con- 
nected to an Auto Call adapter. 



41 ERP sets the should-not-occur bit 

(bit 1) in DECERRST, posts the opera- 
tion complete-with-error, and noti- 
fies the console operator. The 
occurrence is recorded in the LERB 
(if applicable). 

42 

43 

44 ERP posts the operation complete- 
with-error,, notifies the console 
operator, and records the occurrence 
in the OBR. 

The error is a parity error within 
either the command or the text data. 

45 ERP records the error occurrence in 
the SDR and restarts the channel pro- 
gram at the failing command. On the 
third occurrence of the error, ERP 
posts the operation complete-with- 
error, notifies the console operator, 
and records the occurrence in the 
OBR. 

The error is a parity error within 
either the command or the text data. 



46 ERP records the error occurrence in 

the SDR and restarts the channel pro- 
gram. On the third occurrence of the 
error, ERP posts the operation 
complete-with-error, notifies the 
console operator, and records the 
occurrence in the OBR. 
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47 

48 



The error is a parity error within 
either the command or the text data. 



ERP restarts the channel program. On 
the third occurrence of the error, 
ERP posts the operation complete- 
with-error and notifies the console 
operator. Each occurrence is record- 
ed in the LERB (if applicable). (See 
Note 1.) 



error and notifies the console opera- 
tor. Each occurrence is recorded in 
the LERB (if applicable). (See Note 
1.) 



56 ERP restarts the channel program to 
resend the polling sequence. On the 
third occurrence of the error, ERP 
posts the operation complete-with- 
error. Each occurrence is recorded 
in the LERB (if applicable). 



49 ERP restarts the channel program at 
the third command. On the third 
occurrence of the error, ERP posts 
the operation complete-with-error and 
notifies the console operator. Each 
occurrence is recorded in the LERB 
(if applicable). (See Note 1.) 

50 ERP restarts the channel program to 
resend the polling sequence. On the 
third occurrence of the error, ERP 
posts the operation complete-with- 
error and notifies the console opera- 
tor. Each occurrence is recorded in 
the LERB (if applicable). (See Note 
1.) 

51 ERP posts the operation complete- 
with-error. The occurrence is re- 
corded in the LERB (if applicable) . 
(See Note 1.) 

52 ERP sets the should- not-occur bit 
(bit 1) in DECERRST, posts the opera- 
tion complete-with-error, and noti- 
fies the console operator. (See Note 
1.) 



53 ERP restarts the channel program at 
the Read Conversational part. On the 
third occurrence of the error, ERP 
posts the operation complete-with- 
error and notifies the console opera- 
tor. Each occurrence is recorded in 
the LERB (if applicable). (See Note 
1.) 

54 ERP builds and executes a Read Repeat 
channel program. On the third occur- 
rence of the error, ERP posts the 
operation complete-with-error and 
notifies the console operator. Each 
occurrence is recorded in the LERB 
(if applicable). (See Note 1.) 

55 ERP restarts the channel program at 
the Write EOA PRE o command. On the 
third occurrence of the error, ERP 
posts the operation complete-with- 



57 ERP restarts the channel program to 
resend the polling sequence. On the 
third occurrence of the error, ERP 
posts the operation complete-with- 
error and notifies the console 
operator. 

58 ERP restarts the channel program at 
the failing command. On the third 
occurrence of the error, ERP posts 
the operation complete-with-error and 
notifies the console operator. 

59 ERP posts the operation complete- 
with— error, notifies the console 
operator, and records the occurrence 
in the OBR. 

60 ERP builds and executes a Read Repeat 
channel program and records the error 
occurrence in the SDR. On the third 
occurrence of the error, ERP posts 
the operation complete- with-error, 
notifies the console operator, and 
records the occurrence in the OBR. 



61 ERP issues Write EOT and restarts 
the Channel Program at the failing 
command . 



Note 1 ; The error is one of the following; 

• A VRC (parity) error was detected in one 
or more of the received characters. 

• An LRC error was detected ; i.e., the LRC 
character received from the remote sta- 
tion did not match the LRC value 
generated by the transmission control 
unit. 

• A negative response was received as a 
response to text. 

• The communication line was in the 
"space" condition at stop-bit time, 
indicating that the TCU was out of 
synchronism. 
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BSC ERROR RECOVERY PROCEDURES 



The BTAM Channel End/Abnormal End Appendage 
will receive control from the supervisor 
following an I/O interrupt or after an ERP 
routine issues a SVC 15 with no retry spec- 
ified (i.e., with bit 2 of I0BFLAG1 set to 
) . When it receives control , the appen- 
dage makes an analysis of such things as 
the CSW information, the condition code, 
the operation in progress, the response 
received, etc., in order to determine the 
specific action to be performed based on 
the conditions existing. 

The appendage passes control back to the 
supervisor as follows: 

• At + Register 14 - the channel program 
is posted complete and the request ele- 
ment is made available. This is the 
so-called "normal return." 

• At it ± Register 14 - the channel program 
is not posted complete but the request 
element is made available. This return 
is made for on-line test or when a SAD 
(Set Address) or Enable error occurs. 

• Mil Register 14 - the channel program 
is not posted complete and its request 
element is placed back on the request 
queue so the program can be retried. 
This return is used when the channel 
program is to be restarted. 

The supervisor then determines where 
control is to be passed next; if the IOB 
exception bit is on (bit 5 in I0BFLAG1=1) 
and the DCB indicates that basic error 
recovery procedures are provided (i.e., bit 
7 in DCBERROP=0) for this line group, con- 
trol is passed to the BSC ERP control rou- 
tine. The control routine will also 
receive control from the supervisor follow- 
ing an I/O interrupt when an ERP channel 
program has been initiated and the ERP rou- 
tines, rather than the Channel End/Abnormal 
End Appendage, are to analyze the results 
of the operation. 

The BSC ERP control routine determines 
which ERP routine is to receive control, 
causes it to be loaded if necessary, and 
transfers control to it. Recovery actions, 
as indicated in the tables following, are 
then performed. 

By using Table 26, you can locate the 
set of conditions for which you wish to 
determine the ERP action. In some cases, 
it will be necessary to consult more than 
one table to trace the complete sequence of 
the actions, as when ERP sets up a special 
return code to indicate the existence of a 
specific situation as it goes through a 
multi-step recovery procedure. 



You should note that the tables present 
in summary form the actions performed by 
ERP; details such as incrementing the retry 
count and testing for a need for LERB 
recording are not shown. 

In the tables, the values in parentheses 
following each command, e.g. Read Text 
(11), is the TP-Op code for that command, 
in hexadecimal. 

Where the phrase "proceed with error 
posting" appears, see Table 40 to determine 
the actions taken by the Error Post 
routine. 

Table 27 serves as an entry point for 
tracing the ERP-initiated recovery actions. 
In many cases, it refers to another table 
for further definition of recovery actions. 
Tables 39 and 40 indicate the result of 
control being passed to the Special Return 
routine and the Error Post routine, 
respectively. 

Two examples of the use of the tables 
are as follows: 

Example 1 : The accumulated block check 
character (bcc) does not match the bcc 
received following the ETB or ETX ending a 
text block, on a Read Text command, causing 
a status indication of Channel End/Device 
End/Unit Check, with Data Check indicated 
in the sense byte. 

Step 1 - Refer to the Unit Check section of 
Table 27. Since Channel End and 
Device End are on, you are 
referred to Table 31 to find 
further actions based on the 
results of the ERP analysis of the 
sense information. 

Step 2 - Refer to Table 31, which refers 
you to Table 35. 

Step 3 - Refer to Table 35, where the ERP 
actions for various commands are 
described. Since the error 
occurred on a Read Text command, 
the ERP action taken depends on 
whether or not dynamic buffering 
is being used. Assuming that it 
is not, ERP will build a channel 
program to write NAK and then 
transf er-in-channel (TIC) back to 
the Read Text command. ("Failing 
CCW" refers to the CCW on which 
the interrupt occurred.) 

Example 2 : A transmission causes an 
incoming ETB or ETX character to be dis- 
torted so that it is not recognized as a 
control character, the bcc characters are 
considered data characters and sent into 
main storage,, exhausting the count in the 
Read Text CCW. The status indication is 
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Channel End/Device End/Unit Check, with 
Lost Data indicated in the sense byte. 

Step 1 - Same as in example 1. 

Step 2 - Refer to Table 31, which, for a 

Lost Data condition, refers you to 
Table 36. 

Step 3 - Refer to Table 36, which indicates 
that, assuming dynamic buffering 
is not being used, a special 
return code (X'82') is set up in 
IOBWORK + 1 (one of the two loca- 
tions in the Input/Output Block 
(IOB) where special codes are 
placed for later analysis by the 
Special Return routine). Then a 
channel program is generated to 
read the ENQ that the transmitting 
station will send when it does not 
receive a response to the block of 
text. When the channel program 
ends as a result of receiving the 
ENQ, the ERP Special Return rou- 
tine is entered. 



Step 4 - Refer to Table 39, Part B, which 
indicates that ERP builds a chan- 
nel program to write NAK and then 
restarts the original channel pro- 
gram at the Read Text command. 



Table 26. Index to BSC ERP Tables 

r 



I Table 


Description 


| 27 


Status Analysis 


| 28 


Channel Data Check 


| 29 


Equipment Check 


| 30 


Command Reject 


1 31 


Sense Byte Analysis 


| 32 


Bus out 


| 33 


Overrun 


| 34 


Intervention Required 


| 35 


Data Check 


| 36 


Lost Data 


| 37 


Timeout 


| 38 


Unit Exception 


| 39 


Special Return Codes 


| HO 


Error Post Actions 



Table 27. Status Analysis — BSC 



j Status 



Action 



Attention 
Status Modifier 
Control Unit End 
Busy 



1. Set "should Not Occur" bit in DECERRST, 

2. Update statistics table. 

3. See Table 29 for further actions. 



Start I/O 
Condition Code = 
(CSW Stored) 



1. Update statistics table. 

2. See Table 29 for further actions. 



Channel Data 
Check 



1. Update statistics table. 

2. See Table 28 for further actions. 



Program Check 
Protection Check 
Chaining Check 



1. Set indicator to cause recording of 
occurrence in the Outboard Recorder (OBR) 

2. Notify the console operator. 



Unit Check 



1. 



2. 



If Channel End and Device End status bits 

are both off, update the statistics table. 

See Table 29 for further actions. 

If Channel End and Device End status bits are 

not both off, analyze the sense information. 

See Table 31 for actions resulting from this analysis. 



Start I/O Condition 

Code = 3 

(Not Operational) 



1. Write operator message - "IEC0804A xxx 
CONTROL UNIT NOT OPERATIONAL, REPLY CONT 
OR POST" where xxx is the line address of 
the line involved. 

2. If reply is "CONT" retry the failing channel 
program; if reply is "POST", post ECB 
complete with permanent I/O error; if reply is 
neither "CONT" nor "POST",, repeat the message. 



Unit Exception 



This status bit can be turned on by equipment 
or by BTAM. See Table 38 for action taken 
when this status bit is on. 
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Table 28. 

r 

I Command 



Channel Data Check — BSC 



Action 



l.. _ + _ _ 



Write Text (11) | Indicate a permanent I/O error, then proceed with 

1 error posting. 
4. _ 


T 

Any Write except | If retry limit (7) has been reached, proceed 

Write Text j with error posting; if not, retry the failing CCW. 

_ + :__ _ _ 

Read Text (11) 1 If retry limit (7) has been reached, proceed 
(Dynamic Buffering j with error posting; if not, Write NAK and 
Not Used) | TIC to the failing CCW. 

J. _ _ _ _ 


T 

Read Text (11) | indicate a permanent I/O error, then proceed 

(Dynamic Buffering Used) j with error posting. 

+ 

Read ENQ (OB) | If retry limit (7) has been reached, proceed 

j with error posting; if not, retry the 
j failing CCW. 

+ 

Read Response to ENQ (OC) | Write ENQ and TIC to failing CCW. 

j. . . . 


T 

Read Response to | Write ENQ and TIC to failing CCW. 

Text (25) j 

+ 

All other Reads | Set up special return code X'80* in 

| IOBWORK+1 and generate a channel program 
j to read a response. 



L . X J 



Table 29 i Equipment Check — BSC 



Command 



Action 



!• _ + _ __ 



Write Text (11) | Write ENQ and TIC to the CCW following 
(Dynamic Buffering j the failing CCW (the Read Response to Text 
not used) j command) . 

x . . . . _ 


- - — f - - — .^.^ ^_^ 

Read Text (11) | Set up special return code X , 80 f in IOBWORK+1 
(Dynamic Buffering j and generate a Read response channel 
not used) j program. 

„ j , • 


Read or Write Text | Indicate permanent I/O error, then 

(11) (Dynamic j proceed with error posting. 

Buffering used) j 

+ _ _ 

Any command not | If retry limit has been reached, 
during text transfer j indicate a permanent I/O error and 
(i.e., any TP-Op j proceed with error posting; if not, 
code other than 11) j restart the channel program. 



L X : : . J 
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Table 30. Command Reject -- BSC 



I Command 



h 



Action 



Read Response to 
Text (25) 



Any command with 
a special Return 
code of X'OU* 



If retry limit (7) has been reached, 
indicate a permanent I/O error, then 
proceed with error posting; if not, 
set up special return code X^U* in 
IOBERRCT+1 and write DLE ENQ. 

Check for Channel End and Device End 
status only. If both bits are on, 
clear the special return indicator and 
return to the supervisor; if not, 
indicate permanent I/O error, then proceed 
with error posting. 



All other commands 



Indicate permanent I/O error, 
with error posting. 



then proceed 



Table 31. Sense Byte Analysis — BSC 





_ T 




Sense Bit 


1 


Condition 1 





Command Reject | 


1 




Intervention Required | 


2 




Bus Out Check | 


o 




Equipment Check j 


4 




Data Check | 


5 




Overrun | 


6 




Lost Data | 


7 




Timeout | 



Action 

See Table 30 

See Table 34 

See Table 32 

o— _ m-^lO ^ 1(1 

oec XCUJJLC £.7 

See Table 35 

See Table 33 

See Table 36 

See Table 37 
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Table 32. Bus Out 

r 

I Command 



— BSC 



Action 



h 



Dial (01) 



If retry limit (7) has been reached, indicate 
a permanent I/O error, then proceed with error 
posting; if not, disable the line and TIC to 
the first CCW. 



Poll (03) 



If retry limit (7) has been reached, indicate 
a permanent I/O error, then proceed with 
error posting; if not, restart the channel 
program at the first CCW and start polling 
with the failing station. 



Write — Prior to 
Text Transfer 
(TP-Op Code less 
than 10) 



Check to see if this is a Write EOT command 
(TP-Op Code 02). If so, restart the channel 
program at the failing CCW; if not, restart 
the channel program at the CCW following 
the failing CCW. 



Write — During 
Text Transfer (11) 



Check to see if the residual count is equal 
to the original count. If so, restart the 
channel program at the failing CCW; if not 
indicate a permanent I/O error, then proceed 
with error posting. 



All other Writes 



Check to see if this is the last CCW in 
the channel program. If so, restart the 
channel program at the failing CCW; if not, 
restart the channel program at the CCW 
following the failing CCW. 



Any Read Command 



Check to see if the residual count is 
equal to the original count. If so, 
restart the channel program at the failing 
CCW; if not, indicate a permanent 
I/O error then proceed with error 
posting. 



| All other commands 

l 



Restart the channel program at the failing CCW. 
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Table 33. Overrun 

r 



— BSC 



Command 

Read ENQ (08) 



Action 
If retry limit (7) has been reached, indicate a 
permanent I/O error, then proceed with error posting; 
if not, restart the channel program at the failing CCW. 



Read Response 
to ENQ (0C) 



If retry limit (7) has been reached, indicate 
a permanent I/O error, then proceed with error 
posting; if not, restart the channel program 
at the CCW preceding the failing CCW. 



Read Response 
to Text (25) 



If retry limit (7) has been reached, indicate 
a permanent I/O error, then proceed with 
error posting; if not, generate a channel 
program to Write ENQ, then TIC to the failing CCW. 



Read Text (11) 



If dynamic buffering is specified, indicate 

a permanent I/O error, then proceed with 

error posting; if not (and if retry 

attempts have not been exhausted), generate a channel 

program to Write NAK, then TIC to the failing CCW. 



All other commands 



Set "should not occur" bit in DECERRST, indicate a 
permanent I/O error, then proceed with error posting. 



Table 34. Intervention Required — BSC 



command 



actiua 
Each of the actions described below is preceded by a 
test to see whether the retry limit (7) has been 
reached. If so, a permanent I/O error is indicated, 
then ERP proceeds with error posting; if not, the 
action listed below for the appropriate command is 
performed. Except for the Dial command, the actions 
listed below apply only to a nonswitched line. If an 
error occurs on any command other than Dial, for a 
switched line, ERP indicates a permanent error and 
proceeds with error posting. 



Dial (01) 



Generate a channel program to perform a 
Disable, then TIC to the failing CCW. 



Prepare (01) 



Restart the channel program at the first CCW. 



Poll (03) 



Restart the channel program at the first CCW 
and start polling with the failing station. 



Read Text (11) 
(Dynamic Buffering 
Not Used) 



Set up special return code X*81' in IOBWORK+1 
and generate a Read ENQ channel program. If 
this is a Read Initial operation on a multipoint 
line, set up for the Special Return routine 
to retry the Read using the second Read 
command (i.e., the one following the Read Index); 
if not a Read Initial on a multipoint line, set 
up for it to retry the Read using the failing CCW. 



Read Text (11) 
(Dynamic Buffering Used) 



Indicate a permanent I/O error, then proceed 
with error posting. 



Write Text (11) 



h 



If the residual count is equal to the original 
count, restart the channel program at the failing 
CCW; if not, indicate a permanent I/O error, 
then proceed with error posting. 



I All other commands 



Restart the channel program at the failing CCW. 
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Table 35. Data Check — BSC 



I Command 



h- 



Action 



Read ENQ (OB) 



If the retry limit (7) has been reached, 
indicate a permanent I/O error, then proceed 
with error posting ; if not, restart the 
channel program at the failing CCW. 



Read Response 
to ENQ (OC) 



If the retry limit (7) has been reached, indicate 
a permanent I/O error, then proceed with 
error posting; if not, restart the channel 
program at the CCW preceding the failing CCW. 



Read ID Response 
(07) 



If the retry limit (7) has been reached, indicate 
a permanent I/O error, then proceed with error 
posting; if not, restart the channel program 
at the preceding CCW if it is a Write ID ENQ CCW. 
If other than a Write ID ENQ CCW, restart at the 
failing CCW. 



Read Response 
to Text (25) 



If the retry limit (7) has been reached, 
indicate a permanent I/O error, then 
proceed with error posting; if not, 
generate a channel program to Write ENQ, then 
TIC to the failing CCW. 



Read Text (11) 
(Dynamic Buffering 
Not Used) 



If the retry limit (7) has been reached, 
indicate a permanent I/O error, then 

proceed with error posting; if not, set up special re- 
turn code X'8B" in IOBWORK+1 and generate a chan- 
nel program to Write NAK, then TIC to the fail- 
ing Read CCW. (TIC to the previous CCW if it 
is a Read response to text; ^otherwise, TIC to the 
Read text CCW.) 



Read Text (11) 

Dynamic Buffering Used) 



Indicate a permanent I/O error has occurred 
then proceed with error posting. 



All other commands 



Set "should not occur" bit in DECERRST, 
indicate a permanent I/O error has occurred, 
then proceed with error posting. 
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Table 36. Lost Data 
r 



— BSC 



h 



Command 



Action 

Unless otherwise specified, each of the actions 
described below is preceded by a test to 
see whether the retry limit (7) has been 
reached. If so, a permanent I/O error is 
indicated, then ERP proceeds with error 
posting; if not, the action listed below 
for the appropriate command is performed. 



Dial (01) 



Generate a channel program to perform a 
Disable, then TIC to the failing CCW. 



Prepare (01) 



Restart the channel program at the failing CCW. 



Read ENQ (OB) 



If the CCW is part of a Write Reset channel 
program set the retry count to seven, indicate 
permanent I/O error, then proceed with error 
posting; if not, restart the channel program 
at the failing CCW. 



Read ID Response 
(07) 



Set up a special return code X*8 3 f in 
IOBWORK+1 and generate a channel program 
to Read Response (with count =2) . 



Read Response 
to ENQ (0C) 



Generate a channel program to Read Skip and 
set up for later restart of the channel 
program at the C( 



prec€>axng «-i 



failin'"' CC^i. 



Read Response 
to text (25) 



Read Text (11) 
(Dynamic Buffering 
Not used) 



Set up special return code X'SS* in IOBWORK+1 
and generate a channel program to perform 
a $ead Skip. 



Set up special return code X , 82* in IOBWORK+1 
and generate a channel program to Read 
ENQ (with count =2). If this command is 
part of a Write Conversational channel 
program, set up for the special return 
routine to restart the channel program at 
the CCW preceding the failing CCW instead 
of at the failing CCW. 



Read Text (11) 
(Dynamic Buffering 
Used) 



The retry limit test is not performed. Set special 
return code X^IA* in IOBERRCT+1, set 
the retry count to seven, and generate a channel 
program to perform a Read Skip. 



All other commands 



The retry limit test is not performed. Set the 

"should not occur" bit (in DECERRST) 

and generate a channel program to perform a Read Skip. 

Set the retry count to seven and set special 

return code X'lA' in IOBERRCT+1. 
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Table 37. Timeout — BSC (Part 1 of 2) 



Command 



Action 

Unless otherwise specified, each of the 
actions described below is preceded by a 
test to see if the retry limit (7) has 
been reached. If so, a permanent I/O 
error is indicated, then ERP proceeds 
with error posting; if not, the action 
listed below for the appropriate command 
is performed. 



Dial (01) 
Disable (01) 



Restart the channel program at the failing 
CCW. 



Read Response 
to EOT (OB) 
Read ENQ (OB) 



For a failing read ENQ command: 

If the operation is a Read Initial (X f 01') for 
a switched line, restart the channel program 
at the Read ENQ command; if a Read Initial for 
a nonswitched line, restart the channel program 
at the preceding command. 

If the operation is a Read Initial Inquiry 
(X ' 19 ' ) restart the channel program at the 
preceding command. 

If the operation is a Read Inquiry (X 1 15'), 
and no retries are requested, set the retry 
count to seven, then proceed with error posting. 
If it is a Read Inquiry and retries are re- 
quested, restart the channel program at the 
failing command. , 

If the Read ENQ appears in an operation other 
than one of the foregoing, restart the channel 
program at the failing command 

For a failing Read Response to EOT command, 
(The operation is a Write Reset) ; 

Set the retry count to seven and proceed with 
error posting . 



Read Response 
to ENQ (0C) 



Restart the channel program at the CCW 
preceding the failing CCW. 



Read Response 
to polling (0A) 



Restart the channel program at the first 

CCW and start polling with the failing station. 



Read Response 

to Addressing (06) 



Restart the channel program at the first CCW. 



Read ID Response (07) 



If the maximum retry count has not been reached: 
If this is the calling station, restart the 
channel program at the CCW preceding the failing 
CCW; if it is the answering station, restart at 
the failing CCW. 

If the maximum retry co^nt has been reached: 
If this is the calling station, set special 
return code X'8C* in IOBWORK+1 and Write DLE EOT, 
then disable the line; if this is the answering 
station, disable the line and TIC to the 
Enable CCW. 
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Table 37. Timeout — BSC (Part 2 of 2) 



| Command 

j. 

Read Text (11) 
(Dynamic Buffering 
Not used) 



Action 



If this is a polling operation, adjust 

CCW address and count (if necessary) 

to keep index byte location 

from being overlaid, set up 

return code X'81* in I0BW0RK+1 and generate 

a channel program to Read ENQ 

(with count =2); if not, restart the channel 

program at the failing CCW. 



Read Text (11) 
(Dynamic Buffering 
Used) 



The retry limit test is not- performed. 
Indicate a permanent I/O error, then 
proceed with error posting. 



Read Response to 
Text (25) 



Set special return code X'86* in I0BW0RK+1 and 
generate a channel program to write ENQ, then 
TIC to the failing CCW. 



Write Transparent 
Text (11) 



Generate a channel program to Write DUE ENQ, 
then TIC to the failing CCW, 



All other 
commands 



The retry limit test is not performed. 
Set "should not occur" bit (in DECERRST) , 
indicate a permanent I/O error, then 
proceed with error posting. 



Table 38. Unit Exception 

r 

| Command 

j. 



— BSC (Part 1 of 3) 



Action 



Write ENQ (03) 



If NAK or RVI was received, set improper response 
(X'40') in DECFLAGS and restart the channel 
program at the CCW preceding the failing CCW. If 
neither NAK nor RVI was received, set special 
return code x.*8H* in IOBWORK+1 and generate a 
channel program to Read ENQ, with count=2. 



Write Response to 
ENQ (08) 



Set up special return code X^O* in 
IOBWORK+1 and generate a channel program 
to Read Response (with count=2). 



Write Text (11) 



Write Response to 
Text (08) 



Set special return code X*88' in IOBWORK+1 and 
generate a channel program to Read Response 
(with count=2). 



Set up special return code X* 80* in 
IOBWORK+1 and generate a channel program 
to Read Response (with count=2) . 



Write EOT (21) 



Write WACK (01) 



I 

All other Writes 



If the operation is a write reset, restart the 
channel program at the next CCW; if not, set 
special return code X*87* in IOBWORK+1 and 
generate a channel program to Read Response, 
with count=2. 



Set up special return code X'80* in I0B r -7ORK+1 and 
generate a channel program to Read Resnonse (\*.ith 
count=2) . 



Set "should-not-occur" bit (in DECERRST), 
indicate a permanent I/O error,, then proceed 
with error posting. 



j 
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Table 38. Unit Exception 

r — ' 

J Command 

j. 

Poll (03) 



— (Part 2 of 3) 



Action 



If the failing CCW is the first one in 

the channel program, set special 

return code X'88* in IOBWORK+1 and generate 

a channel program to Read ENQ (with count=2) ; if 

not, set up to start polling,, beginning with the 

failing station, and restart the channel 

program at the first CCW. 



Any Read command 



If this is the first time through ERP, 

perform the action described below for 

the specific type of Read command; if not, turn off the 

'ERP- in- control* indicator and restart 

the channel program. If two consecutive RVI ' s 

are received, proceed with error posting. 



Read ENQ (OB) 



If EOT was received, proceed with error 
posting; if not, determine whether the retry 
limit (7) has been reached. If it 
has, indicate a permanent I/O error, 
then proceed with error posting; if not, 
restart the channel program at the CCW preceding 
the failing CCW. 



Read Response to 
ENQ (OC) 



If the retry limit (7) has not been reached, and NAK or 
RVI was received, indicate improper response (X' 40") in 
DECFLAGS and restart the channel program at the preceding 
CCW. If the retry limit has not been reached, and neither 
NAK nor RVI was received, set special return code X'84* 
in IOBWORK+1 and generate a channel program to Read ENQ, 
with count=2. If retry limit has been reached, indicate a 
permanent I/O error, then proceed with error posting. 



Read ID Response (07) 



If the operation is a Write Connect: If ID NAK 
or an invalid ID was received, restart the 
channel program at the CCW preceding the failing 
CCW. If after 7 retries ID NAK is still received, 
post the operation normally. If after 7 retries 
an invalid ID is still received, Write DLE EOT 
and disable the line. 

If the operation is a Read Connect: If an 
invalid ID was received, restart the channel 
program at the failing CCW, until the retry 
count of 7 is reached; thereafter, disable the line. 
For any other condition, or any other character 
received, set 'should-not-occur' bit (in DECERRST), 
indicate a permanent I/O error, then proceed 
with error posting. 



Read Text (11) 



1. If ENQ was not the last character received, 

set "should-not-occur" bit (in DECERRST, indicate a 
permanent I/O error, then proceed with error posting. 

2. If ENQ was received and dynamic buffering is being 
used, proceed with error posting. 

3. If ENQ was the only character received, dynamic buf- 
fering is not being used* the CCW preceding the fail- 
ing CCW is a write Response to Text (TP-Op code 08), 
and the retry limit (7) has not been reached: 
Restart the channel program at the CCW preceding the 
failing CCW (i.e., at the Write Response to Text 
CCW). 
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Table 38. Unit Exception — BSC (Part 3 of 3) 



| Command 
t 



Action 



4. If ENQ was the only character received, dynamic buf- 
fering is not being used, the CCW preceding the fail- 
ing CCW is a Read Response to Text (TP-Op Code 25) , 
and the retry limit has not been reached: 

Generate a channel program to Write NAK and TIC to 
the CCW preceding the failing CCW (i.e., at the Read 
Response to Text CCW, which is part of a Write Con- 
versational channel program) . 

5. If ENQ was the only character received, dynamic buf- 
fering is not being used, and the CCW preceding the 
failing CCW is neither a Write Response to Text (08) 
or a Read Response to Text (25): 

Set the "should-not-occur" bit (in DECERRST) , indi- 
cate a permanent I/O error, then proceed with error 
posting. 

6. If ENQ preceded by one or more characters was 
received, dynamic buffering is not being used, and 
the retry limit has not been reached: 

Generate a channel program to Write NAK and TIC to 
the failing CCW. 

7. In 3, 4, and 6 above, if all conditions are met 
except that the retry limit has been reached, indi- 
cate a permanent I/O error, then proceed with error 
posting • 

8. If the original count, minus one, does not equal the 
residual count and an SOH % message was received, 
proceed with error posting. 

9. If STX ENQ was received and dynamic buffering was not 
specified, indicate X'01' in DECFLAGS, set special 
return code X* 89* in IOBWORK+1, and generate a chan- 
nel program to Write NAK and TIC to the failing CCW. 
If dynamic buffering was specified, proceed with 
error posting after indicating X'Ol' in DECFLAGS. 



Read Response to 
Text (25) 



If NAK was received: If dynamic buffering is used, 
proceed with error posting; if not, restart the 
channel program at the Write Text CCW. 
If ENQ was received: If the operation is a Write 
Inquiry, indicate contention (X* 10') in DECFLAGS 
and restart the channel program at the failing 
CCW. If the operation is not a Write Inquiry, 
set special return code X*86* in IOBWORK+1 and 
generate a channel program to Write ENQ and TIC 
to the failing CCW. 

If neither ENQ nor NAK was received, set special 
return code X* B6 f in IOBWORK+1 and generate a 
channel program to Write ENQ and TIC to the 
failing CCW. 



All other commands 



Set "should-not-occur" bit (in DECERRST) , indicate a per- 
manent I/O error has occurred, then proceed with error 
posting. 
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Table 39. 
r 



Special Return Code Actions (Part 1 of 6 ) 



BTAM uses special return codes in two locations in the Input/Output Block (IOB) 
to cause ERP to perform the required functions in certain circumstances. The 
ERP control routine examines the code in IOBERRCT+1, and takes the actions shown 
in Part A of this table. The Special Return routine examines the code in 
I0BW0RK+1 and takes the actions shown in Part B of this table. 



Part 


A 




Actions 


for 


special 


Return 


Codes 


in IOBERRCT+1 


Code 




|Set: 
-+ 








" T 

1 


Action 



X'04' jwhen ERP writes DLE ENQ j If the Write DLE ENQ channel program 
j after detecting | completes normally, restart the user 
| Command Reject. j channel program at the Read Response to 
j j Text CCW that had previously ended with 
| j Unit Check and Command Reject, if the 
j j channel program completes with error, in- 
j | dicate a permanent I/O error, set the 
j j retry count to the maximum, 7, and proceed 
j j with error posting, 
j. i _ _ _ _ 


T t ____ _ 

X'14* | (indicates that a | After the ERP-initiated channel program 
| special return code j completes, the Special Return routine 
j has been set in j examines I0BW0RK+1 to determine what 
jlOBWORK+1) j further action to take, as shown in Part B 
j j of this table. 
+ + 

X'lA' |When ERP issues a | After the ERP-initiated channel program 
j Read Skip CCW after j completes, ERP proceeds as follows: 
j detecting a Lost Data | 

| condition, or when an j 1. If a timeout occurred following 
| error has occurred j a Read Skip CCW, restart the 
jon an ERP Write CCW. | channel program at the CCW that 
j | had ended with Unit Check and 
j j Lost Data indicated. 
| j 2. If an ERP CCW ends with sense bits 
j j other than Lost Data or Timeout on, 
| j set up to issue an I/O error message, 
j | 3. If an ERP Write CCW ends with an 
| j error, turn on the ERP- in- control 
j j indicator in the IOB, place code X'lA' 
| j in I0BW0RK+1, and restart the channel 
j j program that had ended with the error 
j j that caused ERP to be initiated, 
j | 4. If an ERP CCW that is not a Write or a 
j j Read Skip ends with a Timeout, restart 
| j the ERP channel program at the 
1 j beginning. 

+ _ 1 

X'OO' |1. Set before posting | The ERP control routine proceeds with 
j completion or returning j its own analysis of the condition 
jto the supervisor. j code, status, and sense information 
j j to determine the action to be 
|2. Set when a Write j taken, rather than being forced to 
j DLE ENQ CCW was j pass control to a specific 
j performed successfully j ERP routine. 
| after a Read Response j 
jto Text CCW ended with j 
j Command Reject (possibly j 
J indicating that the BSC adap- j 
jter in the TCU was still in j 
(transparent mode). | 
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Table 39. Special Return Codes (Part 2 of 6 ) 



Part B. Actions for Special Return Codes in I0BW0RK+1 



Code jSet: 



| Action 

+ _ 

If ENQ was received: 

(for multipoint line) clear the 
special return indicators, resend the 
last-sent acknowledgment, and TIC to 
the failing CCW. 

(for non-multipoint line) Clear the 
special return indicators and restart 
the channel program at the failing CCW. 

If ENQ was not received: 

(if retry limit has been reached) Clear 
the special return indicators, then 
proceed with error posting. 

(if retry limit has not been reached) 
Restart the ERP channel program at the 
beginning. 



X'80 



When Equipment Check 
is detected on a Read 
Text CCW. 



X'81' 



1. When a Timeout on a 
Read Text CCW is 
detected (multipoint 
line) . 

2. When an Intervention 
Required error occurs on 
a Read Text CCW. 



If ENQ was received: 

Clear the special return indicators 
and generate a channel program to 
Write NAK and TIC to the failing CCW, 



If ENQ was not received: 

(if retry limit has been reached) Clear 
the special return indicators and pro- 
ceed with error posting. 

(if retry limit has not been reached) 
Restart the ERP channel program at the 
beginning. 



X f 82' 



When Lost Data occurs 
on a Read Text CCW. 



Clear special return indicators and 
generate a channel program to Write 
NAK and TIC to the failing CCW. 



X'83' 



When Lost Data occurs 
on a Read ID Response 
or Read Response 
to Text CCW. 



Clear special return indicators and 
generate a channel program to Write 
ENQ and TIC to the failing CCW. 
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Table 39. Special Return Codes (Part 3 of 6) 



r t 

| Code | Set: 
|. + 



j Action 

4 



X'84' 



When unit Exception is 
indicated on a Read 
response to ENQ or 
Write ENQ CCW. 



If the operation is Write Inquiry (X'le*): 

If line is nenswitched, restart the channel 
program at the failing command. 

If line is switched: 

If ENQ was received, turn on the conten- 
tion bit (bit 3) in DECFLAGS and clear the 
return indicators. 

If DLE EOT was received, proceed with 
error posting. 

If the operation is not Write Inquiry: 

If ENQ was received: 

If the operation is not Write Initial 
(X*02 f ), set "should-not-occur" bit (bit 
1) in DECERRST, clear the special return 
indicators, and proceed with error 
posting. 

If the operation is a Write Initial: 

If the line is switched or multipoint, 
set "should-not-occur" bit (bit 1) in 
DECERRST, clear the special return 
indicators, and proceed with error 
posting. 

If the line is nonswitched: 

If this is not the primary station, 
turn on the contention bit (bit 3) 
in DECFLAGS, restore the CSW infor- 
mation in the CSW, clear the special 
return indicators, indicate no more 
retries are to be made, and return 
control to the supervisor. 

If this is the primary station and 
the retry limit has not been reach- 
ed, restart the user channel program 
from the beginning. 

If this is the primary station and 
the retry limit has been reached, 
clear the special return indicators 
and proceed with error posting. 

If ENQ was not received: 

If the operation is Write Connect (X'lC), 
execute a Read Skip command. 

If the operation is not Write Connect 
(X'lC), restart the channel program at 
the failing command. 
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Table 39. Special Return Codes (Part i| of 6) 



Code 



Set: 



Action 



X'85' 

x*86' 



(not used) 



1. When Unit Exception has 
been indicated on a Read 
Response to Text CCW. 



2. When timeout has 
occurred on a Read 
Response to Text. 



If a NAK is the only character 
received and dynamic buffering is 
being used: 

Clear the special return indicator and pro- 
ceed with error posting. 

If a NAK is the only character received and 
dynamic buffering is not being used: 

Clear the special return indicator and 
restart the channel program at the Write Text 
CCW. 

If a NAK preceded by other characters is 
received: 

Clear the special return indicator and pro- 
ceed with error posting. 

If the proper ACK (ACK-0 or ACK-1) is received: 

Clear the error indicators in IOBFLAG1 and 
the special return indicators, then return 
control to the supervisor. 

If something other than NAK„ ACK-0, or ACK-1 is 
received: 

(If the retry limit (7) has been reached) 
Clear the special return indicators, then 
proceed with error posting. 

(If the retry limit has not been reached) 
Restart the ERP channel program. 

If the wrong ACK is received: 

(If dynamic buffering is being used) Clear 
the special return indicators and proceed 
with error posting . 

(If dynamic buffering is not being used) 
Clear the special return indicators and 
restart the channel program at the Write Text 
CCW. 

If the failing CCW is a Write ENQ: 



If the maximum retry count (7) has not been 
reached, restart the channel program at the 
Write ENQ CCW. If the maximum count has been 
reached, proceed with error posting. 

If the correct alternating acknowledgment was 
received: post normal completion. 
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Table 39. Special Return codes (Part 5 of 6) 



Code 



|Set: 
■+ 



| Action 
4 



If the wrong alternating acknowledgment 
was received: If dynamic buffering was 
used, proceed with error posting; if 
not used, and the failure occurred dur- 
ing a timeout situation, restart the 
channel program at the Write Text CCW; 
if not used and the failure did not 
occur during a timeout situation, 
resend the ENQ character. 

If NAK was received, restart the chan- 
nel program at the Write Text CCW. 

If EOT or RVI was received, clear the 
error indicators in I0BFLAG1 and the 
special return indicators, then return 
control to the supervisor. 

If some character other than one of the 
foregoing was received, restart the 
channel program at the Write ENQ CCW. 



X f 87* 



When Unit Exception is 
indicated on a Reset 
operation (TP-Op code 
21) 



If ENQ was received: 

Clear the special return indicators 
and restart the user channel program 
at the failing CCW. 

If ENQ was not received. 

(Failing CCW is the last CCW in user 
channel program) Restart channel pro- 
gram at failing CCW. 

(Failing CCW is not last CCW in user 
channel program) Restart channel pro- 
gram at the following CCW (Disable) . 



X»88* 



When Unit Exception is 
indicated on a Poll 
or Write Text CCW. 



Clear the special return indicators and 
restart the user channel program at the 
failing CCW. 
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Table 39. Special Return Codes (Part 6 of 6) 

. T . 



r t 

| Code | Set: 

h 



Action 



X'89' 



When Unit Exception is 
indicated when STX ENQ 
is received. 



If EOT was received, set the retry count to 
7, clear the special return indicators, and 
proceed with error posting. 



If EOT was not received and the first 
characters are not STX or DLE STX, set 
"should-not-occur" bit in DECERRST. 



If the first characters are STX ENQ or 
DLE STX ENQ, and the maximum retry count 
has not been reached, restart the channel 
program at the failing CCW; if the retry 
count has been reached, proceed with error 
posting. 

If the first characters are not STX ENQ 
or DLE STX ENQ, clear the error indicators 
in I0BFLAG1 and the special return indicators, 
then return control to the supervisor. 



X'8A" 



When Unit Exception is 
indicate on a first 
ERP Write CCW. 



Execute a Read Skip CCW and set special 
return code X'8A' in IOBWORK+1 after the 
original return code is saved. After 
executing the Read Skip, restore the 
original command and return codes. 



X'8B' 



When Data Check is 
indicated on a Read 
Text CCW (TP-Op 
code 11) 



If ENQ was received, and the maximum retry 
count has not been reached, restart the 
ERP channel program (Write NAK and TIC 
to the Read CCW) . 

If ENQ was not received, clear the special 
return codes and proceed with error 
posting. 



X'8C* 



When timeout is 
indicated on a Read 
ID Response CCW (TP-Op 
code 07) 



Clear the special return indicators and 
proceed with error posting. 
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Table 40. Error Post Actions (1 of 2) 



I Condition 



Action 



h 



Retry count is at 
limit (7) 



--+ 



Set up new polling or addressing 
characters, if applicable, and restore the 
original status and sense information to the 
IOB (this indicates the nature of the original 
error that occurred during the user channel 
program and that caused ERP to be initiated). 
If a Timeout error has occurred but the message 
is to be suppressed, pass control to the BTAM 
channel end appendage; if not, pass control to 
the operating system message writer. 



Retry count is not at 
limit and: 



1. Failing CCW is not an 

ERP CCW 



Same as for action when retry count is 
at the limit. 



~+ 



2. A special return code 
is present and the 
failing CCW is a 
Write CCW. 



Set special return code X'lA* in IOBERRCT+1 
to force control to be returned to 
the .Error Post routine when the next 
interrupt occurs, indicate that ERP is in con- 
trol (X*2H* in IOBFLAG1), and restart the chan- 
nel program at the CCW following the failing 
CCW. 



Lost Data is 
indicated in the sense 
byte following 
execution of an 
ERP channel program 
for a Write Connect 
operation. 



Indicate that ERP is in control (X 1 24* 
in IOBFLAG1) , and restart the ERP 
channel program at the beginning. 



An error other than 
Lost Data has 
occurred following 
execution of an 
ERP channel program 
for a Write Connect 
operation. 



Indicate that ERP is in control (X*24* 
in IOBFLAG1) and restart the channel 
program at the CCW that ended with the 
error that caused ERP to be initiated. 



~+ 



An ERP Write 
CCW has ended 
with an error. 



Same as action for condition 2, above. 



-4 



The interrupt 

occurred on an ERP 

CCW other than 

Write, and no 

sense errors were 

indicated in the sense 

byte (ignoring Lost Data) 



Return control to the ERP Control routine 



-+ 



The interrupt 
occurred on an ERP 
CCW other than Write, 
and the sense byte 
indicates that an error 
other than Timeout 
or Lost Data occurred. 



Same as for action when retry count 
is at the limit. 
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Table 10. Error Post Actions (2 of 2) 



(Condition 
h 



Action 
Same action as for condition 4, above. 



8. The interrupt 

occurred on an ERP 
CCW other than 
Write, the sense 
byte indicates Timeout 
and the skip bit 
of the failing CCW 
is on. 



9. The interrupt 

occurred on an ERP 
CCW other than Write, 
the sense byte 
indicates Timeout, 
and the Skip bit of 
the failing CCW 
is not on. 



Restart the failing ERP channel 
program at the beginning. 



~+ 



10. SOH % E or SOH % C 

message was received. 



Set up the fields used in printing operator- 
awareness messages generated by terminals for 
SYS1.LOGREC. The control is passed to the 
Teleprocessing Recorder. 
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LOCAL 3270 DISPLAY SYSTEM ERROR RECOVERY PROCEDURES 



ERRORS DETECTED BY THE DEVICE OR CONTROL 
OMIT AND CHANNEL DATA CHECK ERRORS 

Error Conditions 

Table 40A lists error conditions according 
to the bits that are on in the CSW and 
sense byte. 



Table 40B indicates (by error condition 
and failing command) the recovery actions 
taken by BTAM error recovery procedures. 
If a diagnostic command is found in the 
failing CCff chain, action 1 is taken. 



CSW Bits 


Sense Bits 


Error Condi ton 


32 


34 


35 


36 


37 


38 


39 


44 





1 


2 


3 


4 


5 


6 


7 












X 










X 












1 












X 








X 














2 












X 






X 
















3 




(X) 




X 


X 


X 










X 












4 




(X) 




X 


X 


X 




















X 


5 




(X) 




X 


X 


X 














X 








6 




(X) 




X 


X 


X 














X 


X 






7 




(X) 




X 


X 


X 


















X 




8 




(X) 




X 


X 




X 




















9 




(X) 




(X) 


X 




X 




















10 




(X) 


(X) 


(X) 


X 


X 








X 




X 




X 






11 




(X) 


(X) 


(X) 


X 


X 








X 














12 




(X) 


(X) 


(X) 


X 


X 












X 




X 






13 




(X) 


(X) 


(X) 


X 


X 














X 








14 




(X) 


(X) 


(X) 


X 


X 














X 


X 






15 




(X) 


(X) 


(X) 


X 


X 


















X 




16 




(X) 


(X) 


(X) 


X 


X 




















X 


17 


X 




(X) 






X 












X 










18 


X 




(X) 






X 














X 


X 






19 
















X 


















20 


X indicates that the bit is on. 
(X) indicates that the bit may be on if stacking is done by the channel. 



Table 40A. Error Conditions (according to CSW and sense byte) 



Local 3270 Display System Error Recovery Procedures 228.1 



Failing 
Command 


Command 
Code 


Error condition (See Table 40A) 


1 


2 
CC& 


2 
CC=3 


3 


4' 


5' 


6' 


7' 


8' 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


Write 


01 


6 2 


4 




2 


3 


2 


3 


3 


3 


7 


2 


(l 


4 


1 


3 


3 


3 


2 


6 2 


3 


3 


Erase write 


05 


6 2 


4 




2 


6 2 


2 


6 2 


6 2 


6 2 


7 


2 


1 


4 


1 


6 2 


6 2 


6 2 


2 


6 2 


3 


5 


Diagnostic 
write 


09 


I 


2 




I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


6 2 


3 


1 


Read buffer 


02 


6 2 


4 




2 


2 


2 


6 2 


3 


6 2 


7 


2 


2 


2 


2 


2 


2 


2 


2 


6 2 


3 


6 2 


Read modified 


06 


6 2 


4 




2 


2 


2 


6 2 


3 


6 2 


7 


2 


2 


2 


2 


2 


2 


2 


2 


6 2 


3 


6 2 


Diagnostic 
read 


0A 


1 


2 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


6 2 


3 


1 


Select 


0B 


6 2 


4 




2 


2 


2 


6 2 


6 2 


6 2 


7 


7 


2 


2 


2 


6 2 


3 


6 2 


2 


6 2 


3 


5 


Erase all 
unprotected 


OF 


6 2 


4 




2 


2 


2 


6 2 


6 2 


6 2 


7 


7 


2 


2 


2 


6 2 


3 


6 2 


2 


6 2 


3 


5 


Sense 


04 


6 2 


4 




2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


6 2 


3 


5 


No operation 


03 


6 2 


4 




2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


6 2 


3 


5 



This error condition may be the result of stacking in the channel. 
*■ Action 3 is taken instead if it cannot be verified that the preceding command was not a. write command. 

Table 4 0B. Recovery Actions (by error condition and failing command) 



The recovery actions are: 



1. 



2. 



3. 



t». 



Permanent error 

The request is marked as a permanent 
error condition. The operation is 
terminated. The error is logged in 
the system error log. Unless the 
failing device is the console, a 
message is issued to the console 
operator indicating the failing device, 
operation, and conditions. 



should not occur 
The request is marked as a 
nonrecoverable error condition, 
operation is terminated. 



The 



Nonrecoverable error 
The request is marked as a 
nonrecoverable error condition. The 
operation is terminated. The error 
is logged in the system error log. 

Assistance needed 

The request is held until a temporary 
device error condition is corrected. 
A message is issued to the cconsole 
operator asking for assistance. When 
the error condition is corrected, 



the operation is retried. The error 
is logged in the statistics table. 



Note : If the failing device is the 
console, action 3 is taken. 

5. Retry failing CCW 

Restart the channel program on the 
failing CCW. When the retry count 
exceeds the number for the error 
condition and command, action 1 is 
taken. 

6. Retry channel program 

Restart the channel program on the 
first CCW in the chain. When the 
retry count exceeds three, action 
1 is taken. 

Not e: If the channel program cannot 
be reconstructed or verified, action 
3 is taken. 

7. Busy 

The request is held until the device 
is ready. Then the operation is 
retried. 
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EBBORS DETECTED BY THE CHANNEL (EXCEPT 
CHANNEL DATA CHECK EBRORS) 

Error Conditions 

Table 40C lists error conditions according 
to the bits that are on in the ERPCODES 
field, which is byte seven of the Error 
Becovery Procedure Interface Block (EBPIB) 
built by the Channel Check Handler. 

Note s Channel data checks are handled 
as though they were device-detected errors. 
Channel control checks and interface 
control checks are processed only if the 
Channel Check Handler is in the system. 



ERPCODES Bits 


Error 
Condition 


5 


6 


7 








21 






X 


22 




X 




23 




X 


X 


24 


X 






25 


X 




X 


26 


X 


X 




27 


X 


X 


X 


28 


X indicates that the bit is on. 



9. Should not occur 

A message is issued to the console 
operator. Action 1 is taken. 

10. Nonrecoverable error 

A message is issued to the console 
operator. Action 1 is taken. 

11. Retry failing CCW 

The failing CCW is retried. If the 
error occurs a second time, a message 
is issued to the console operator, 
and action 1 is taken. 



Failing 
Command 


Command 
Code 


Error Condition (See Table 40C) 


21 


22 


23 


24 


25 


26 


27 


28 


Write 


01 


9 


11 




10 


11 


10 


9 


9 


Erase write 


05 


9 


11 




10 


11 


10 


9 


10 


Diagnostic write 


09 


9 


8 


8 


8 


8 


8 


9 


8 


Read buffer 


02 


9 


11 




11 


11 


11 


9 


11 


Read modified 


06 


9 


11 




11 


11 


11 


9 


11 


Diagnostic read 


0A 


9 


6 


8 


8 . 


8 


8 


9 


8 


Select 


0B 


9 


11 




11 


11 


11 


9 


11 


Erase all 
unprotected 


OF 


9 


11 




11 


11 


11 


9 


11 


Sense 


04 


9 


11 




11 


11 


11 


9 


11 


No operation 


03 


9 


11 




11 


11 


11 


9 


11 


Note: Action 10 is taken instead of action. II if it cannot be verified 
that the preceding command was not a write command. 



Table 40D. Recovery Actions (by error 

condition and failing command) 



Table 40C. Error Conditions (according to 
ERRCODES field in ERPIB) 



Becovery Actions 

Table 40D indicates (by error condition 
and failing command) the recovery actions 
taken by BTAM error recovery procedures. 
If a diagnostic command is found in the 
failing CCW chain, action 1 is taken. 

The recovery actions are: 

8. Permanent error 

The device is unable to recover. 
An EBP involving operator intervention 
may be given control, and the failing 
CCW may be retried. 
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SUGGESTED RETRY OPTIONS FOR BSC READ AND WRITE OPERATIONS 



Once a user-program-issued Read or Write operation is completed, the program must 
decide what the next operation should be. This depends largely on the result of 
the preceding operation — whether it was completed normally, with or without some 
exceptional condition or abnormally; and if the latter, what kind of error caused 
the abnormal completion. The tables in this chapter suggest, for various comple- 
tion codes and ending conditions, the next READ or WRITE macro it might be appro- 
priate for the user program to issue. 

Table 41. Retry Options for Write Operations (Nonswitched Point-to-Point Line [BSC1]) 



TP-OP 

Code 

(hex) 



Completion 

Code 

(hex) 



Other 

Indications 

(hex) 



Meaning 



Retry Options 



7F 



DECFLAGS : 4 



NAK received in response to ENQ 



7F 



DECFLAGS: CO 



WACK received in response to ENQ 



1,3, or 6 



OC 



41 



ENQ in DECRESPN 



ENQ received in response to ENQ 
(MODE=CNTRL in DCB macro) 



D£iCi? JLAlifc) : 



xu 



isNQ received xn response to ENQ 
(MODE =CNTRL in DCB macro) 



11 



41 



Data check 



(for TIV, TIVX, TTV, TTVX only) 
Text was received with error 



7F 



DECFLAGS: 20 



Wrong acknowledgment received in 
response to text 



-+- 



25 



7F 



DECFLAGS: 40 



EOT received in response to text 



7F 



DECFLAGS: 42 



RVI received in response to text 



7F 



DECFLAGS: CO 



-+ 



WACK received in response to text 



3 or 6 



41 



DECFLAGS: 40 | NAK received in response to text 

X X 



Retry Options : 



1. Issue a WRITE Initial (TI) macro. 

2. Issue a READ Repeat (TP) macro. 

3. Issue a WRITE Inquiry (TQ) macro. 

4. Issue a WRITE Continue (TT) macro. 

5. Issue a READ Initial (TI) or READ Initial Inquiry (TIQ) macro. 

6. Issue a WRITE Reset (TR) macro. 

7. Continue normally. 
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Table 42. Retry Options for Read Operations — Answering (Switched Point-to-Point [BSC23) 



TP-Op 

Code 

(hex) 



Completion j other 

Code j Indications 

(hex) | (hex) 



Meaning 



Retry Options 



OB 



41 



j Timeout 



ENQ not received 



7F JDECFLAGS: 10 
I 



Received [ID] ENQ did not match 
expected [ID] ENQ 



11 



41 j Timeout 
+ 

41 | Lost data, data 
j check, or 
j overrun 



[ID] ENQ not received 



Text was received with error 



2 or 4 



41 | Timeout 
+ _ 

41 j DECFLAGS : 01 
x 



H- 



No text received 

STX ENQ received in lieu of text 



1,3 or 4 



Retry Options ; 



1. Issue a WRITE Break (TB) macro to disconnect the line. 

2. Issue a READ Repeat (TP) macro. 

3. Issue a READ Inquiry (TQ) macro. 

4. Issue a WRITE Disconnect (TD) macro to disconnect the line. 

5. If expanded ID verification is in use, BTAM automatically disconnects 
the line and reissues the READ Connect macro. If expanded ID 
verification is not in use, issue a WRITE Break (TB) macro. 

6. If expanded ID verification is in use, BTAM automatically disconnects 
the line. You may therefore reissue the READ Connect macro. If expanded 
ID verification is not in use, issue a WRITE Break (TB) macro. 



Table 43. Retry Options for Read Operations — 

r t t -t 

TP-Op | Completion | other | 

Code | code | Indications 
(hex) | (hex) | (hex) 



Calling (Switched Point-to-Point [BSC2]) 

T ' — 1 

I 
I 

| Retry Options 



| Meaning 



0C 



41 



j Timeout 



j No response received to ENQ 



OB 



41 



| Timeout 



| ENQ not received 



--+- 



I 1 
4 



07 l~ 



j 7F JDECFLAGS: 10 j Invalid ID received in response to 

j | ID ENQ j 2 



41 



j Timeout 



No response received to [ID] ENQ 



Retry Options ; 



1. Issue a WRITE Disconnect (TD) macro to disconnect the line, 

2. Issue a WRITE Break (TB) macro to disconnect the line. 

3. Issue a READ Repeat (TP) macro. 

4. Issue a READ Inquiry (TQ) macro. 



I 1 





-+- 
1 
1 
1 


41 


+ 

|Lost data, 
j check, or 
j overrun 


y 

data| 

(Text was received with error 
1 


+- 

1 
1 
1 


1 or 3 


11 


1 


41 


+— 

| Timeout 


+ 

| No text received 


+- 

1 


1,2, or 4 




t_ 




JL 


-j. _ 


X 
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Table 44. Retry Options for Write Operations (Switched Point-to- Point 



TP-Op 

Code 

(hex) 



OC j- 



Completion 

Code 

(hex) 



7F 



Other 

Indications 

(hex) 



DECFLAGS: 20 



Meaning 



Line (BSC23) 

T 



Retry Options 



Wrong acknowledgment received in 
response to ENQ 



lor ft 



7F 



DECFLAGS: 40 



NAK received in .response to ENQ 



1 or 4 



07 



7F 



DECFLAGS: 10 



Invalid ID received in response to 

ID ENQ 



If original 
operation is 
Write TI, 
option 4. 

If original 
operation is 
Write TC f 
option 5 



7F 



DECFLAGS: 40 



~+ 



NAK or ID NAK received in response to 

ID ENQ 



4 or 5 



7F 
41 



DECFLAGS : CO 



WACK received in response to ID ENQ 
No response received to [ID] ENQ 



4 or 5 



Timeout 



If original 
operation is 

Uv-i +• A f|»T 

option 4 

If original 
operation is 
Write TC, 
option 5 



11 



41 



Lost data, data 
check, or 
overrun 



(for TIV,TIVX,TTV, TTVX only) 
Text was received with error 



3 or 4 



25 



7F 



DECFLAGS: 20 



-+ 



Wrong acknowledgment received in 
response to text 



1 or 4 



41 



NAK xn DECRESPN 



NAK received in response to text 



2 or 4 



41 



Timeout 



No response received to text 



1 or 4 



Retry Options : 



1. issue a WRITE Inquiry (TQ) macro. 

2. Issue a WRITE Continue macro to retransmit the text. 

3. Issue a READ Repeat (TP) macro. 

4. issue a WRITE Disconnect (TD) macro to disconnect the line. 

5. Reissue the WRITE Connect (TO macro. 
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TP-OP 

Code 

(hex) 


Completion Code 
(hex) 


Other Indications 
(hex) 


Meaning 


Retry Options 


OA 


41 


Timeout 


No index byte was received 


l / 2 / or4 


09 


7F 


DECFLAGS: 04 


Negative response to polling 


1 , 2, or 4 


03 


41 


Timeout 


No terminal responded to polling 


1, 2, or 4 


48 




Initial read terminated by RESETPL macro 


1, 2, or 4 


11 


41 


DECFLAGS: 01 


STX ENQ sent in lieu of text 


2 


41 


Lost data, data check, 
or overrun 


Text was received in error 


2 or 3 


41 


DECFLAGS: 40 


Text was received ending with an ENQ 


5 


7F 


DECFLAGS: 02 


Error status message was received 


6 


Retry Options: 

1 . Issue a READ Initial (Tl) macro to poll the same or a different station. 

2. Issue a WRITE Reset (TR) macro. 

3. Issue a READ Repeat (TP) macro. 

4. Issue a WRITE Initial (Tl) macro. 

5. Issue a READ Initial (Tl) macro (using the polling entry of the remote 3270 device for which completion was posted) 
to receive the error status message. 

6. Issue a READ Continue (TT) macro, and examine the sense/status bytes to determine what action to take. 



Table 45. Retry Options for Read Operations (nonswitched Multipoint Lines (BSC3) ) 
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TP-OP 

Code 

(hex) 


Completion Code 
(hex) 


Other Indications 
(hex) 


Meaning 


Retry Options 


06 


7F 


DECFLAGS: 04 


NAK received in response to addressing 


1, 2, or 7 


7F 


DECFLAGS: 42 


RVI received in response to addressing 


1, 2, or 7 


7F 


DECFLAGS: 42 


RVI received (remote 3270) 


2 or 8 


7F 


DECFLAGS: CO 


WACK received in response to addressing 


1 or 2 


41 


Timeout 


No response received to addressing 


1 or 2 


11 


41 


Data Check 


(TIV, TIVX, TTV, TTVX only) 
Text was received with error 


2 or 5 


41 


DECFLAGS: 40 


(TIV only) 

Text was received ending with an ENQ 


8 


25 


7F 


DECFLAGS: 20 


Wrong acknowledgment received in response to text 


2 or 4 


7F 


DECFLAGS: 42 


RVI received in response to text 


2 or 6 


•7F 


DECFLAGS: CO 


WACK received in response to text 


2 or 4 


7F 


DECFLAGS: CO 


WACK received (remote 3270) 


9 


41 


DECFLAGS: 40 


NAK received in response to text 


2 or 3 


41 


DECFLAGS: 40 
DECRESPN: EOT 


EOT received in response to text 


8 


41 


Timeout 


No response received to text 


2 or 4 


Retry Options: 

1. Issue a WRITE Initial (Tl) macro to address the same or a different station. 

2. Issue a WRITE Reset (TR) macro to terminate selection. 

3. Issue a WRITE Continue (TT) macro. 

4. Issue a WRITE Inquiry (TQ) macro. 

5. Issue a READ Repeat (TP) macro. 

6. Continue normally. 

7. Issue a READ Initial (Tl) macro to poll another station. 

8. Issue a READ Initial (Tl) macro (using the polling entry of the remote 3270 device for which completion 
was posted) to receive the error status message. 

9. If the write operation started a printer, issue a WRITE Reset (TR) macro to reset the line, and continue normally. 



Table 46. Retry Options for Write Operations (Nonswitched Multipoint Line (BSC3) ) 
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Completion 

Code 

(hex) 


Other 

Indications 

(hex) 


Meaning 


Retry Options 


7F 


DECFLAGS:01 


OLTEP received control of the device following normal 
completion of the I/O operation 


1, 2, 3, or 4 


41 


DECFLAGS:01 

(and other error flags) 


OLTEP received control of the device following a permanent 
I/O error 


2, 3, or 5 


41 


DECERRST:80 


Control unit not operational 


1 , 2, or 3 


41 


DECERRST.-00 
DECSENSOrOl 


Incorrect data stream 


6 


41 


DECERRSTrlO 


Integrity of the device regeneration buffer is questionable 


4 


41 


Other than above 


I/O error 


5 


44 




I/O request intercepted 


7 


48 




Read Tl canceled 


1 


Retry Options: 

1. Continue normally. 

2. Inform the system operator, and request additional information. 

3. Wait for some interval of time before trying the next I/O operation. 

4. Issue a WRITE TS macro instruction to reconstruct the buffer contents. 

5. Further use of the device is questionable, although not prohibited. The problem program should consider 
the device unavailable and should consider requesting that diagnostics be run on the device. 

6. Check that the data stream is correct (that is, buffer addresses are correct, order sequences are complete, 
and orders do not cause overrun). 

7. The contents of the device buffer are doubtful, because (1) an error occurred following the completion of the 
previous I/O operation or (2) a request-for-test message was received from the device requesting that a test 
message be sent to another device. If the current operation is a write erase, it should be done. Otherwise, 

a WRITE TS macro instruction should be issued to reconstruct the buffer contents before doing the current operation. 



Table 46A. Retry Options for Local 3270 Read and Write Operations 



232.2 OS BTAM SRI, 



ON-LINE TESTIN3 



On-line testing is an optional BTAM 
facility that permits the user to verify 
proper operation of terminals and of the 
communication lines that link them to the 
computer, and to aid in diagnosing line or 
terminal troubles. On-line testing centers 
around transmission of predefined standard 
test messages, the formats of which depend 
on the purpose of the test. 



the format of which is: 

r T T T T T T 1 

| || I TO J UNIT j j END j 

1 1 99999 j xx j type j ADDR | SELECT j text j CHAR | 

L X X X X X X J 

5 2 1 lor2 lor2 Variable 1 



Field length (bytes) 



On-line testing is performed during 
normal BTAM operation. Only the communica- 
tion lines and terminals specified are 
involved; data transmission proceeds as 
usual on other lines. Operation of the 
program is affected only to the extent of 
the line time required for test transmis- 
sions and of the CPU time required to pro- 
cess requests for tests. 



You may wish to perform certain kinds of 
on-line testing as a routine procedure, for 
example, to test line or terminal function- 
ing at the beginning of each day, or at 
intervals during the day. Other kinds of 
tests are appropriate as diagnostic aids, 
and are normally performed as needed by the 
computer or terminal operator, or IBM cus- 
tomer engineer. 



In order to have the on-line testing 
facility available, you must code T among 
the EROPT operands of the DCB macro 
instruction for the line group. 

On-line testing is implemented somewhat 
differently for start-stop lines and for 
binary synchronous lines. 



ON-LINE TESTING FOR START-STOP 
COMMUNICATIONS LINES 



For start-stop communication lines, test 
requests may be initiated only at remote 
terminals. The tests requested may involve 
message switching, comparing the contents 
of a test message to a predefined character 
sequence in main storage, sending a string 
of characters to a specified terminal, or 
checking the IBM SELECTRIC typing element 
mechanism of a terminal printer. 

Start-stop on-line tests are initiated 
by transmission of test request messages. 



99999 

identifies this message as a test 
request. 



defines the type of test to be executed 
(see Test Type Codes, below). 



type 

specifies the type of terminal from 
which the test is being requested. 
Applicable type codes are: 

Code Device 

2741 

1 1030 card reader 

2 1050 

3 1060 

4 2740 (with or without 2760 
attached) 

5 1030 badge reader or manual entry 
unit. 

6 2260 (Remote) and 2265 (Remote) 

TO ADDR 

specifies the address of the terminal 
to which the message is to be sent (for 
2760 tests, specifies function to be 
performed) . 

TO ADDR is a one-byte field for the 
IBM 1030 Card Reader and 1050, 2740, 
and 2741 terminals; it contains the ad- 
dressing character for the selected 
terminal. For those 2740 and 2741 ter- 
minals not using addressing characters 
(i.e., all terminals not equipped with 
station control) , this field should 
contain a space character (in the hexa- 
decimal representation of the transmis- 
sion code pattern for space) except 
when a 2760 frame change or scan point 
test is performed. 

TO ADDR is a two- byte field for 1030 
badge readers and manual entry units, 
1060 terminals, 2260 and 2265 ter- 
minals; it contains a two-byte code 
indicating which addressing characters 
BTAM is to send on the line. 
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For 1030 



Code 
02 
03 
04 



Addressing Character 
B 
C 
D 



is to receive the message* i.e., 1052, 
1053, 1055, 1062 Printer 1 or 2, etc. 
The appropriate unit select code can be 
determined from the SRL publication 
pertaining to the terminal. For 2760 
tests, this field contains the A ir A 2 
characters that specify amount of film- 
strip movement. See Figure 8. 



26 



Note; Codes of 01 and 10, representing 
A and J, may not be used, as A and J 
are invalid 1030 addresses. 



For 1060 



code 
01 
02 
03 



26 



Addressing Character 
A 
B 
C 



For 2760 

TO ADDR contains the F- character that 
specifies the 2760 function to be per- 
formed. Figure 14 lists the F- 
characters and their meanings. 



For 2260 or 2265 (or 1053 Attached to 
the 2848 or 2845) (2 characters) 

2260 and 2265 Display Stations and 1053 
Printers are selected by transmitting a 
predefined code in these character 
positions. The device selection code 
can be one of 25 USASCII non-control 
characters. 



Actual 
Unit Address 



1011001 - 1053 attached 
to 2845 



Code 



by ... b*. 






1000000 


) 


01 


1000001 


(2260 and 1053 


02 




(attached to 


... 


1011000 


J2848 


25 


1011001 


- 2265 attached 
to 2845 


26 



27 



For 2848 (2260) and 2845 (2265) 

TO ADDR is used to select the 2848 or 
2845 display control unit. The addres: 
of a display control unit can be any 
USASCII non-control character (i.e., 
any character in columns 3-7 in the 
USASCII code chart) , therefore allowing 
96 possible display control addresses. 



Actual 
Unit Address 
by • . .bi 
0100000 
0100001 



Code 

01 
02 



Note : The UNIT SELECT code applicable 
to a particular 2260 display station 
can be determined from that display 
station itself by utilizing the Request 
Address test (test type 09) . 

END CHARACTER 

1030 = EOB 
1050 = EOT 
1060 = EOB 

2740 = EOT 

2741 = EOT 
2760 = EOT 
2848 = ETX 



1111111 



96 



Note ; The TO ADDR code applicable to a 
particular display control unit can be 
determined from one of its attached 
display stations by. specifying the 
Request Address test (test type 09) in 
the test message. 

UNIT SELECT 

Note ; Unit select is not applicable to 
1030, 2740, or 2741 tests? therefore, text 
can start in this position. 

For 1050 and 1060 (1 Character) 

UNIT SELECT specifies the particular 
component of the selected terminal that 



Note ; The test message is transmitted from 
a 1060 terminal by utilizing the data and 
transaction keys. The EOB character is en- 
tered by depressing the teller A or B key. 



TEST TYPE CODES 



01 Message Switching 

This test receives a message from the 
requesting terminal and transmits it to 
the terminal (on the same line) speci- 
fied in the test message. Note ; The 
length of the message to be switched 
cannot exceed the length of the data 
area specified in the READ macro for 
the line over which the test is 
requested. 
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02 Tilt 



This test sends the tilt test to the 
requested terminal. This test is 
designed to check the SELECTRIC type- 
writer print ball mechanism. 



03 Rotate 



This test sends the rotate test to the 
requested terminal. This test is 
designed to check the SELECTRIC type- 
writer print ball mechanism. 

04 Twist 

This test sends the twist test to the 
requested terminal. This test is 
designed to check the SELECTRIC type- 
writer print ball mechanism. 

05 Stored Compare 

This test provides a means to compare 
the received message with a particular 
character sequence in main storage. 
The message in main storage is compat- 
ible with the transmitting capabilities 
of the terminals involved. 

The test message to be compared with 
the character sequence in main storage 
is transmitted from the terminal and 
consists of the numbers through 9 
followed by the alphabet (A through Z) . 
The incoming test message must specify 
the comparison characters in the same 
order as they appear in the sequence in 
main storage although not all of them 
need be specified. 

The length of the test message can- 
not exceed the length of the data area 
specified in the READ macro that will 
receive the message. The data area 
must be long enough to contain the 
header information (99999, etc.), the 
characters to be compared, and the end 
character. 



Exceptions ; 



1. 



When transmitting from any 2740 
terminal, a space character must 
precede the comparison data. This 
space character is in addition to 
the space character in the TO ADDR 
field. 



2. The stored compare test for a 1060 
is requested by entering the fol- 
lowing message: 

r ■ 1 

J999996534 210 EOB j 
L J 

Comparison is then made to this 
message. Responses to this request 
are printed only at the requesting 
terminal . 

Messages received at the terminal are : 

1. If the comparison to the stored 
message is valid, the following 



message is sent to the terminal 
specified in the TO ADDR field: 

r 1 

| CMP VLD-*| 
l J 

The character printed in the posi- 
tion of the asterisk will be the 
last character against which a com- 
parison could be made. Exception: 
The message sent to a 1060 after a 
valid comparison is: 

| CMP VLD | 
l J 

If the request was received proper- 
ly, but an insufficient count was 
specified in the READ and thus no 
characters could be compared, a / 
character is printed in the 
asterisk position. 

2. If the comparison to the stored 
message is invalid, the data 
received is mess age- switched to the 
terminal specified in the TO ADDR 
field. 

Note : The Stored Compare test is not 
applicable for the 1030 manual entry 
unit or badge reader. 

06 All Characters Test 

This test provides the standard All 
Characters test for IBM Customer Eng- 
ineer terminal checkout and serves as a 
start-up message. Special characters 
are not used in the terminal test. 
Characters received at the terminal 
are: 

For 1030, 1060, 2848 (2260 and 1053): 

Numbers: 0-9, and alphabet: A-Z. 

For 1050, 2740, 2741 : 

Numbers: 0-9, alphabet a-z (lower 
case), and alphabet A-Z (upper 
case) . 

07 SELECTRIC Analyzer Test 

This test provides an exercise to ana- 
lyze the capability of the SELECTRIC 
typewriter carrier mechanism to perform 
within specifications. When this test 
is requested, BTAM sends to the termi- 
nal a predefined message that exercises 
the carrier mechanism. This test is 
not applicable to a 1053 Printer 
attached to a 2848 or 2845 Display 
Control. 

08 Write at Line Address Test (2260 and 
2265) 



This test provides line selectivity 
checkout by using the first two charac- 



On-Line Testing 235 



ters after the UNIT SELECT field as a 
new display line code. This can be 
followed by data which is to be 
switched to the terminal and displayed 
on the display station screen at the 
selected line. The codes and asso- 
ciated display lines are: 

Code Display Line 



01 
02 
03 



12 



12 



probed response points printed on the 
2740 printer. The request for a scan 
point test is entered at the 2740 key- 
board. BTAM generates a frame change 
message and sends it to the 2760. The 
Customer Engineer then probes one or 
more response points, depending on the 
mode specified in the test request mes- 
sage. BTAM sends to the 2740 a message 
containing the coordinates of the 
response points probed. 

See On-Line Testing under IBM 2760 Opt- 
ical Image Unit - General Information, 
for further information on 2760 on-line 
tests. 



09 Request Address Test (2260 and 2265) 

This test allows the operator at a dis- 
play station to determine the display 
control and display station address ap- 
plicable to that station. 

The TO ADDR and UNIT SELECT fields are 
not utilized in this test message since 
the test itself provides these fields 
to the requesting terminal. ETX can be 
sent immediately after the TYPE field. 

BTAM returns to the requesting display 
station a 9 character message giving 
the addressing information for that 
station. The format is: 

DC+DVxxyy 

DC+DV indicates that the message con- 
tains the requested addressing informa- 
tion; xx and yy are the display control 
and device (i.e., display station) 
addresses . 

Note : This test provides only the TO 
ADDR and UNIT SELECT codes of the re- 
questing display station. It is not a 
means of getting these codes for some 
other display station. 

10 Frame Change Test (2760) 

This test enables an IBM Customer 
Engineer to request that a filmstrip be 
moved to a new frame. The request for 
a frame change test is entered on the 
2740 keyboard. BTAM uses the data in 
this message to generate the appropri- 
ate frame change message and sends it 
to the 2760. The Customer Engineer 
visually verifies the correctness of 
the film movement. 

11 Scan Point Test (2760) 



This test performs a filmstrip movement 
and then allows the Customer Engineer 
to probe the screen and have the hori- 
zontal and vertical coordinates Of the 



TERMINAL TEST RESTRICTIONS 



1. A remote terminal may send a test 
request message only when the opera- 
tion in effect for the line is a Read 
Initial or Read Conversational 
operation. 

2. The user program input area must be 
long enough to accommodate the entire 
test message. The response to polling 
must be read into the first byte of 
this area. If dynamic buffering is 
used there is an additional restric- 
tion: the data area of the first 
buffer in the chain must contain all 
of the characters in the test request. 

3. No READ macro that specifies an an- 
swering list can include the Reset 
option. For example, a READ TI or TV 
can be issued, but not a READ TIR or 
TVR , for a line over which test 
requests may be received. The line 
connection must be maintained during 
the terminal test (the Reset option 
causes BTAM to break the connection). 

4. To request a test from a 1030 badge 
reader, the badge reader must be wired 
to read out the entire 10 columns of 
the badge (refer to SRL publications 
for the IBM 1030) . 

5. The transaction code received from a 
1030 is not included as part of the 
test request. 

6. All 1030 tests require a 1033 Printer 
on the same line as the requesting 
terminal. The printer address must be 
specified in the TO ADDR field. 

7. The terminal tests will not test 1035 
Badge Readers or 1030 Badge Readers in 
a 1035 environment. 
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8. If insufficient storage is available 
for the test pattern, the request will 
be switched to the terminal specified 
by the TO ADDR field. 

ON-LINE TESTING FOR BINARY SYNCHRONOUS 
COMMUNICATIONS LINES 



On-line tests for BSC lines may be 
requested by the central computer, by 
remote stations, or both, depending upon 
the type of test and the line and station 
.configuration. There are 23 types of 
tests, not all of which apply to all 
configurations . 

On-line testing is available for all 
types of remote BSC stations. For S/360- 
to-S/360 operation, both computers may 
run under BTAM with the on-line test 
facility, or one may run under BTAM and 
the other under an on-line diagnostic 
program. Operation between S/360 and 
a S/360 Model 20, 1800, 2715, 2770, 2780, 
2972, or remote 3270 requires the S/360 
to run under BTAM or an on-line diagnostic 
program. For S/360 to System/3 or 1130 
operation, the S/360 must run under BTAM, 
and the System/3 or 1130 must run under 
an on-line diagnostic program. 

In S/360-to-S/360 operation, either 
computer may initiate on-line tests. 
In operations between the central computer 
and a S/360 Model 20, System/3, 1130, 
1800, 2770, or 2972, the central computer 
cannot initiate the on-line test except 
for a test type of 0. In operations 
between the central computer and a 2715, 
only the 2715 can initiate an on-line 
test. In operations between the central 
computer and a remote 3270, any remote 
terminal on the same line can initiate 
an on-line test of the remote 3270. 

When the central computer initiates the 
test with a 2780, the 2780 mode switch must 
be set to either Print or Punch position if 
the 2780 is on a point-to-point line. 

Tests are requested at a remote station 
by sending to the central computer a mes- 
sage having a special format, called a 
request-for-test (RFT) message. The method 
of sending the RFT message differs for the 
various types of remote station. For a 
2780, the RFT message is punched in a card. 
For an 1130, System/3 or System/360 Model 
20, the message is sent by a diagnostic 
program. For a remote 3270, (1) the 
cursor is positioned at the top left of 
an unformatted screen (by pressing the 
CLEAR key and then the RESET key, for 
example) , (2) the text of the RFT message 
(test type, number of times, length of 
address, selection address) is entered 



by means of the keyboard, and (3) the 
TEST REQUEST key is pressed to frame the 
text with control characters (SOH % / 
STX and ETX) . 

To request a test at the central comput- 
er, the programmer codes an ONLTST macro 
instruction in the program at the point at 
which the test is to be performed. The 
ONLTST macro generates the proper RFT mes- 
sage and sends it to the remote computer or 
terminal specified in the ONLTST macro. 

The format of the RFT message is the 
same whether it is sent by the central com- 
puter or is received by the central comput- 
er from a remote computer or terminal. The 
format is shown below under Formats of RFT, 
Test, and Console Messages. 

Transmission of an RFT message is fol- 
lowed by one or more transmissions of test 
messages. The RFT message contains a field 
called the X field, which contains a code 
indicating the type of test to be per- 
formed. The code, from 00 to 22, governs 
the sequence of I/O operations comprising 
the test and determines the content of the 
test message. 



TYPES OF TESTS 



Type 00 



For this type of test the requesting sta- 
tion sends an RFT message, immediately fol- 
lowed by a test message, or a sequence of 
test messages* the content of which is 
user-specified. The test message is sent 
the number of times specified in the Y 
field of the RFT message, which may be from 
one to 99. For example, if you specify a Y 
value of 5, the requesting station sends 
the RFT message, followed by five consecu- 
tive transmissions of the same test mes- 
sage . The computer or terminal that 
receives the RFT and test message responds 
with an acknowledgment after each message. 

For this type of test, the requesting 
station may be the central computer except 
when the remote station is a 2715 Model 1, 
or any type of remote station. When the 
requesting station is a 2770,2780, or 2972, 
however, the operation differs somewhat. 
First, the test message is sent not as a 
separate message following the RFT message, 
but as a part of the RFT message itself. 
Second, the Y field of the RFT message can 
only be coded as one, since the RFT mes- 
sage, including the message text, is sent 
only once. 

Another restriction applies when the 
station receiving the RFT message is a 2770 
or 2780. The job switch (2770) or mode 
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switch (2780) must be set to permit the RFT 
message to be received at the printer, card 
punch, paper tape punch (2770), or display 
(2770), unless the text contains component 
selection characters. 

The requesting station may not be 
a remote 3270 display station. 

Type 01 



For this type of test, the requesting sta- 
tion sends an RFT message that includes 
user-specified text characters. The sta- 
tion receiving the RFT message acknowledges 
it, prepares a test message containing the 
text characters from the RFT message, and 
sends the test message the number of times 
specified in the Y-field of the RFT message 
— from 1 to 99. The station receiving the 
test messages (i.e., the station that sent 
the test request) responds with an acknowl- 
edgment after each test message. 

For this type of test, the requesting 
station may be the central computer only if 
the remote station is a System/360 (exclud- 
ing Model 20). The requesting station may 
be any type of remote station. If the re- 
questing station is a 2770 or 2780, its job 
switch (2770 or mode switch (2780)) must be 
set to permit the test messages returned 
from the central computer to be received at 
the printer, card punch, paper tape punch 
(2770), or display (2770), unless the text 
contains component selection characters. 

Notice that in type 00 tests, the re- 
questing station also sends the test mes- 
sages , and receives acknowledgments in 
reply, while in type 01 tests the request- 
ing station receives test messages in 
reply . 

Typ es 02-34 



For these, types of tests, the requesting 
station sends an RFT message. Unlike tests 
of types 00 and 01, the RFT message neither 
contains nor is followed by a test message. 
Instead, the X field of the RFT message 
indicates to the receiving station which 
of 34 BTAM-def ined standard test messages 
it is to return to the requesting station. 
When BTAM receives the RFT message, it 
examines the X and Y fields, selects the 
test message designated by X, and sends it 
Y times. The contents of test messages for 
each type of test are given below under 
Formats of RFT, Test, and Console Messages. 

For this type of test, the requesting 
station may be the central computer only if 
the remote station is a System/ 360 using 
BTAM. The requesting station may also be 
any type of remote station. If the re- 
questing station is a 2770 or 2780, its job 



switch (2770) or mode switch (2780) must be 
set to permit the test messages sent from 
the central computer to be received at the 
printer, card punch, paper tape punch 
(2770), or display (2770), unless the text 
contains component selection characters. 



Note ; Set the 2780 •On Line Test* switch 
to the on position. This will suppress 
the generation of an STX character 
preceding the RFT message. 



BTAM RESPONSES TO REQUEST- FOR-TEST MESSAGES 



BTAM recognizes and responds to any RFT 
messages received from a remote computer or 
terminal provided that: 



1. The on-line test facility is available 
(you have coded T among the EROPT 
options in the DCB macro for the line 
group) . 

2. The FFT message was received on a 
Read Initial V (TI) operation. Or, 
if tihe device to be tested is part 
of a remote 3270 display system, the 
RFT message may have been received 
on a Read Continue (TT) operation. 

3. The length of the input area specified 
by the READ macro is at least 300 
bytes for test types 02-34. If 
buffering is used, the entire 300-byte 
area must be contained wihtin on 
buffer. For test types 02-34, if the 
area is less than 300 bytes, BTAM 
returns and EOT instead of a test 
message. The EOT ends the test before 
any test messages are sent. For test 
types 00 and 01, no check is made to 
determine the length of the input 
area; instead the length specified in 
the READ macro is used. You must 
ensure that the area is large enough 
to accommodate the text data in the 
RFT message or the test message that 
follows the RFT message. Otherwise 
lost data and timeout errors will 
result. 

4. The RFT message was received without 
error. 



The remote computer or terminal may 
send an BFT message only when the BTAM 
program has a Read Initial operation 
pending on the line over which the FFT 
message will be received, unless the 
device to be tested is part of a remote 
3270 display system, which can send an 
BFT message on a Read Continue operation. 
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When BTAM recognizes the message received 
by a Read Initial operation as an RFT 
message, the Read operation is not posted 
complete as it is for non-RFT messages. 
Instead, control is given to the on-line 
test logic, which examines the RFT message, 
generates the reguested test message in 
the area specified in the READ macro, 
and sends the test message to the 
reguesting computer or terminal (or other 
specified destination, for multipoint 
lines) .. If the RFT message specified 
a type 00 test, only a response is returned 
to the reguesting computer or terminal, 
as explained previously. Following 
transmission of the test message the 
reguested number of times, the on-line 
test logic sends an EOT character for 
nonswitched lines, or DLE EOT (and disables 
the line) for switched lines, then restarts 
the program at the Read Initial operation 
that received the RFT message. When an 
RFT message is received for a remote 3270 
display station on a Read Continue 
operation, BTAM gives control to the on- 
line test logic, which generates and sends 
the test message and then posts the Read 
Continue operation complete and places 

a « TCAT 1 *! r* +■ \% <k in nn +> a y»o» enA^n ^fi «/l A. r> 

the read operation. 
Notes : 



1. Test mode will not be entered until the 
RFT message is received correctly and 
positively acknowledged and until the 
proper positive response (ACK-0) to 
selection or line bid is received. If 
a positive response to selection 
(ACK-0) is not received initially or 
after seven retries, the test will be 
terminated. 

2. Once test mode has been entered, if one 
or more WACK responses are received, 
the transmitting station will respond 
to each WACK with an ENQ, until the 
regular positive response is received. 
The number of WACKs that will be 
accepted is 25; if more than this num- 
ber are received consecutively, the 
on-line test is terminated. 

3. When a test message is reguested for 
a remote 3284 or 3286 printer, the 
RFT message should specify that the 
test message be sent only once. This 
avoids wasting line time, since the 
test message appears only once on 

a remote 3270 printer even though 
attempts are made to send it more 
than once when the I field of the 
RFT message is greater than one. 



BTAM INITIATION OF REQUEST-FOR-TEST 
MESSAGES * 



As mentioned previously, you may initiate 
on-line tests by coding the ONLTST macro 
instruction in your program. ONLTST causes 
the on-line test logic to prepare an RFT 
message, send it, send or receive test mes- 
sages (depending on test type), receive or 
send appropriate acknowledgments, and accu- 
mulate and display on the central computer 
console the results of the test . The 
ONLTST macro is described below. Message 
formats for each type of test are given 
under Formats of RFT, Test, and Console 
messages. 



ONLTST (On-Line Test) Macro Instruction 



The ONLTST macro instruction is used to 
send a request- for- test (RFT) message on a 
binary synchronous communication line. It 
provides the information necessary to build 
the RFT message, generates the linkage to 
the on-line test routine., and causes the 
RFT message to be sent. 

The Write operation executed by the 
ONLTST macro is similar to a Write Initial 
operation; the ONLTST macro must therefore 
be used in the same manner. That is, it 
may appear in your program only where a 
Write Initial macro could appear. ONLTST 
may be issued only when the computer or 
terminal that is to receive the RFT message 
is capable of recognizing it as such and 
acting accordingly. For example, if the 
computer that is to receive the RFT message 
is operating under BTAM, ONLTST may be 
issued only when the corresponding opera- 
tion at the receiving computer is a Read 
Initial or Read Connect operation for which 
the input area length is at least 300 
bytes. 

Upon completion of an on-line test on a 
switched point-to-point line, BTAM breaks 
the line connection. 

After issuing an ONLTST macro, you must 
issue a WAIT or TWAIT macro (or otherwise 
test for completion of the on-line test) 
before starting any other Read or Write 
operation for the line. 

After execution of the ONLTST macro, 
control is returned to the next sequential 
instruction in the user program. 

Note -: ONLTST cannot be issued to initiate 
a test between the central computer and 
an IBM 2715 or a remote IBM 3270. 
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Name 



T T 

Opera- | 

tion | Operands 



DECB 



[symbol] |ONLTST|DECB=decb address, 
|X=type of test, 
|Y=no. of transmissions, 
|DCB=dcb address, 
|AREA=rft message area 
| [,TEXT=user text area, 
| LENGTH=user text length] 
| [,ENTRY=list address] 
| [,RLN=line number] 
j. 



specifies the address of the data 
event control block for the line on 
which the on-line test is to be 
performed. 



specifies the type of test to be per- 
formed. Permissible values of X and 
their meanings are tabulated below, 
under Formats of RFT, Test, and Con- 
sole Messages. 



LENGTH 

specifies the number of text charac- 
ters in the RFT message, where TEXT is 
specified. This operand must be coded 
if the TEXT operand is coded. 



ENTRY 



RLN 



specifies the address of the address- 
ing or I.D. list (OPENLST, DIALST, or 
BSCLST types) . The list must contain 
only one entry. A calling list, not 
an answering list, must be specified 
if the line is switched point-to- 
point. 

This operand is not used for on-line 
tests on point-to-point lines. 



specifies the relative line number of 
the line within the line group on 
which the test is to be performed. 



Notes : 



DCB 



AREA 



specifies the number of times the test 
message is to be transmitted. Y may 
be from 1 to 99. 



specifies the address of the data con- 
trol block for the line group. 



specifies the address of the area from 
which the RFT message is to be sent. 
The on-line test routine formats the 
RFT message in this area and also 
reads into it the responding test mes- 
sages, for test types 01-19. For type 
00, BTAM moves the data comprising the 
test message into this area. For test 
type 00 or 01, this area must be large 
enough to receive the expected test 
message. For test types 02-22, this 
area must be at least 300 bytes long. 
If buffering is used, the entire area 
must be contained within one buffer. 



TEXT 



specifies the address of the user- 
defined test message where X (test 
type) equals or 1. For non- 
transparent text, you must begin and 
end the text with the appropriate 
framing characters (STX and ETX) ; for 
transparent text, you supply only DLE 
STX at the beginning of the text; BTAM 
provides the DLE ETX at the end of the 
message. Some amount of text data 
must be specified when the X operand 
is or 1. For other values of X, 
this operand is not required, and is 
ignored if coded. The contents of 
this area are not destroyed by ONLTST 
and may be used for successive tests. 

240 OS BTAM SRL 



1. No ONLTST macro may be issued for a 
line until a data event control block 
has been established for that line by 
means of a READ or WRITE macro in list 
or standard format. 

2. In an on-line test between a System/ 360 
and a 2770, test messages sent to the 
2772 control unit cannot exceed a 
length of 128 bytes, unless the 2772 
has the Expanded Buffer feature, in 
which case the maximum length is 256 
bytes . 

Return codes : After an ONLTST macro is 
issued, BTAM sets register 15 to zero if no 
error was detected. If an abnormal condi- 
tion is detected, the on-line test opera- 
tion is not started, and control is 
returned to your program at the instruction 
following the ONLTST macro. A return code 
in register 15 indicates the error. Bits 
through 23 are zero; bits 24 through 31 
contain one of the following error codes in 
hexadecimal notation. (Code 0C is issued 
for the ONLTST macro itself; the other 
codes result from errors occurring when the 
on-line test routine executes a Write 
operation.) 

04 Busy. The specified line is busy with 
a previously requested Read or Write 
operation. 

08 Invalid RLN. The relative line number 
specified in ONLTST is zero or exceeds 
the number of lines in the line group. 

0C Invalid test type or transmission 

count. The value specified by the X 
operand is undefined, or the value 
specified by the Y operand exceeds 99. 



10 The skip bit of the addressing list 

entry specified by the ENTRY operand is 
on. 

14 A line error occurred during Open. 

18 On-line test facility was not specified 
in the EROPT operand of the DCB macro. 

Mote: All nonzero return codes indicate 
that no I/O operation was initiated; there- 
fore the program must not issue a WAIT or 
TWAIT macro for an ONLTST macro that 
resulted in a nonzero return code. 



For. type 01 testsz and type 02-34 t^ffrs 
requested f roft a. station other than a. 
remote 3270; 



r t 

JSOH %\ X 
I X 



"T T- 



ADDR 



| Text j 



2 2 1 0-9 
Field length (bytes) 



variable 



For type 02-34 tests requested from 
a remote 3270; ~~ 



Completion Codes : On completion of an on- 
line test operation, a completion code is 
set in the high-order byte of the event 
control block for the line being tested. 
The code, in hexadecimal notation., indi- 
cates the nature of the completion: 



7F Normal completion: 
Device end. 



Channel end - 



SOH % 


/ 


STX 


X 


Y 


N 


ADDR 


ETX 



11 Operation completed with I/O error. 

The DECB for the line does not contain 
error indicators when this occurs. The 
operator at the computer executing BTAM 
receives a message indicating the 
nature of the error. It is suggested 
that the user program check the comple- 
tion code and if it is 41, issue a 
Write- to-oper ator-with-reply ( WTOR) 
macro to permit the operator to deter- 
mine what further action should be per- 
formed (e.g., retry the on-line test by 
reissuing the ONLTST macro, or indicate 
to the user program that no further 
Read or Write operations can be per- 
formed on that line) . In the latter 
case the operator can, after the error 
condition has been cleared, notify the 
program that I/O operations may be 
resumed.) 



FORMATS OF RFT, TEST, AND CONSOLE MESSAGES 



SOH % 

/ identifies the message as an RFT 
message from a remote 3270. 



specifies the test type (00-22). 
a two- byte zoned decimal field. 



X is 



specifies the number of times (1-99) 
the test message is to be sent. Y is a 
two-byte zoned decimal field. If X 
equals 0, and the remote station is a 
2770, 2780, or 2972, Y must equal 1, 
because these stations transmit only 
the RFT message, not separate test 
messages. If the test message is to be 
set to a remote 3284 or 3286 printer, 
Y should equal one, since the test 
message appears only once on a remote 
3270 printer. 



Request-For-Test Messages 

An RFT message has one of two formats. 
For type 00 tests *-: 



r t t t t- 

j SOH % j X | Y j N j 
i x x .x x. 



ADDR | STX ETX j 



2 2 1 0-9 
Field length (bytes) 



^-except for RFT messages from a 2770 or 

2780. 
2 and for type 00 RFT messages from a 2770 

or 2780. 



specifies the length (0-9) of the ADDR 
field. Code N as and omit the ADDR 
field for tests over point-to-point 
lines, unless component selection 
characters are desired in the ADDR 
field. 



ADDR 



Contains the address of the station or 
device to which the test message is to 
be sent, or (for 2770), component 
selection characters (DC1, DC2, or 
DC3). For a multipoint configuration, 
the ADDR field contains the selection 
address of the unit to which the test 
message is to be sent. (For the re- 
mote 3270, for example, //AA would 
be entered as the selection address 
for device 1 on control unit 1 . ) 
This need not be the same unit that 
sent the RFT message. For a point- 
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Text 



to-point configuration, the ADDR 
field contains the required component 
selection sequence, e.g., ESC x, 
where x indicates the component to be 
selected. This sequence is limited 
to two characters. The ADDR field is 
not present if N=0. 



is the data and framing characters to 
be sent when X (test type) equals 00 
or 01. For nontransparent text the 
data characters must be framed by STX 
or ETX. For transparent text the data 
characters must be framed by DLE STX 
and DLE ETX. 



Test Messages 



The contents of test messages are deter- 
mined by the X field (test type) of the RFT 
message that initiates transmission of the 
test message. The values of X, the con- 
tents of the corresponding test message, 
and the configurations for which the test 
types are valid, are as follows: 

X=00 For this test type, the test message 
is sent Y times, except for an RFT 



X=01 



message from a 2770 or 2780, in 
which case the text is sent as part 
of the RFT message, not separately 
(RFT messages from a 2770 or 2780 
must specify a Y value of 1). The 
RFT and test messages are acknowl- 
edged by DLE, ACK-1 if received 
without errors, by NAK if a data 
check is detected, and are not 
responded to at all if any other 
ending condition is detected. The 
RFT message and the following test 
messages (or included text data) can 
be received from any type of remote 
BSC station: S/360 (including Model 
20), System/3, 1130, 1800, 2715, 
2770, 2780, and 2972. 

Note : If this test type is speci- 
fied, the size of the input area 
specified by the Read Initial opera- 
tion that receives the RFT message 
(via the DECB length parameter) must 
be large enough to receive the 
entire RFT message, including the 
text portion. 

For this test type* the content of 
the test message is identical to the 



242 OS BTAM SRL 



text portion of the RFT message, 
including the framing characters. 
The text is transmitted Y times. 
This message may be sent to any type 
of remote BSC station: S/360 
(including Model 20), System/3, 
1130, 1800, 2715, 2770, 2780, and 
2972. 

For the remaining test types, the text of 
the test message is predefined by the on- 
line test routine. 

X=02 Transparent EBCDIC Message; 

DLE STX ...Text... DLE ETX 

The text consists of all 256 EBCDIC 
codes in collating sequence order. 
This message may be sent to a S/360 
(including Model 20), System/3, 
1130, 1800, 2715, and 2770. 

X=03 Transparent USASCII Message: 



DLE STX ...Text, 



DLE ETX 



The text is in USASCII code (high- 
order bit always zero) , and consists 
of all 128 USASCII codes in collat- 
ing sequence order. This message 
may be sent only to a S/360 (includ- 
ing Model 20). 

X=04 Normal EBCDIC Message: 



STX SYN SYN 



Text... ETX 



The text is in EBCDIC code, and con- 
sists of the 245 non-data link con- 
trol characters. The characters 
excluded are SOH, STX, ETX, ETB, 
EOT, ENQ, ACK, NAK, SYN, US, DLE. 
This message may be sent to a S/360 
(including Model 20), System/3, 
1800, and 2770. * 



X=05 Normal USASCII Message: 
STX SYN SYN . . . Text. . . 



ETX 



The text is in USASCII code and con- 
sists of the 117 non-data link con- 



*Note : The text includes several terminal 
control characters, such as CR, HT, VT, 
and FF, that, when sent to an output 
device, cause the associated function to 
occur, if the device is capable of per- 
forming that function. For example, the 
HT or FF characters in text sent to a ter- 
minal printer will cause the printer to 
execute the horizontal tab and forms feed 
operations, if the printer is so equipped. 



trol characters. The excluded 
characters are the same as for X=04. 
(S/360-S/360, This message may be 
sent to a S/360, (including Model 
20), System/3, 1800, 2770, and 
2780. i 



X=06 Alphameric USASCII Message: 

STX SYN SYN ABCDEFGHI 
LMNOPQRSTUVWXYZ 
3 4 5 6 7 8 9 ETX 



This message may be sent to a 
S/360, (including Model 20), System/ 
3, 1800, 2770, and 2780. 



X=07 USASCII Printer Message: 

STX ESC QABCDEFGH 
NOPQRSTUVWXYZ 
5 6 7 8 9 ETX 



This message is used to test the IBM 
2780 printer. It may also be sent 
to a S/360 (including Model 20) , and an 
1800; these stations treat the ESC Q 
sequence (printer selection code) as data, 



X=08 USASCII Punch Message: 

STX ESC 4ABCDEFG 
NOPQRSTUVWXY 
5 6 7 8 9 ETX 



J K 
1 2 



L M 
3 4 



This message is used to test the IBM 
2780 card punch. It may also be sent 
to a S/360 (including Model 20), and 
an 1800; these stations treat the ESC 

4 sequence (punch selection code) as 
data. 

X=09 TRANSCODE Printer Message: 

STX ESC /ABCDEFGHIJKLM 
NOPQRSTUVWXYZ01234 

5 6 7 8 9 ETX 

This message is coded in TRANSCODE 
and is used to test the IBM 2780 
printer. It is valid only for a 
2780 on a switched line or a non- 
switched multipoint line. 

X=10 TRANSCODE Punch Message: 

STX ESC 4ABCDEFGHIJKLM 
NOPQRSTUVWXYZ01234 
5 6 7 8 9 ETX 

This message is coded in TRANSCODE 
and is used to test the IBM 2780 
Card punch. It is valid only for a 
2780 on a switched line or a non- 
switched multipoint line. 
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X=ll TRANSCODE Message; 



STX SYN SYN ABCDEFGH 
MNOPQRSTUVWXYZ 
4 5 6 7 8 9 ETX 



I J K L 
12 3 



STX SYN SYN ...text... ETX 

The text consists of 40 bytes of 

X«AA f , followed by 40 bytes of 

X 1 55* . This message may be sent to 

a S/360 (including Model 20) , 

System/3, 1130, 1800, 2770, and 

2780. 



This message is coded in TRANSCODE 
and may be used to test either the 
card punch or the printer of an IBM 
2780. It is valid only for a 2780, 
on any type of line configuration. 

X=12 EBCDIC Printer Message; 

This message has the same content as 
the TRANSCODE printer message, X=09, 
except coded in EBCDIC. This mes- 
sage is used to test the IBM 2780 
printer. It may also be sent to a 
S/360 (including Model 20), 1130, 
1800, and 2972; these stations treat 
the ESC / sequence (printer selec- 
tion code J as data. 

X=13 EBCDIC Punch Message; 

This message has the same content as 
the TRANSCODE punch message, X=10, 
except coded in EBCDIC. This mes- 
sage is used to test the IBM 2780 
card punch. It may also be sent to 
a S/360 (including Model 20), 1130, 
1800, and 2972; these stations treat 
the ESC 4 sequence (punch selection 
code) as data. 

X=14 EBCDIC Alphameric Message; 

This message has the same content as 
the TRANSCODE message, X=ll, except 
coded in EBCiDIC. This message may 
be used to test either the card 
punch or the printer of an IBM 2780. 
It may also be sent to a S/360 
(including Model 20), System/3, 
1130, 1800, and 2770. 

X=15 EBCDIC Weak Pattern Message 3 - 

STX SYN SYN ...text... ETX 
The text consists of 74 NUL (X^O*) 
characters, followed by six SYN 
(X'32*) characters. This message 
may be sent to a S/360 (including 
Model 20), System/ 3, 1130, 1800, 
2770, and 2780. 



X=16 EBCDIC Weak Pattern Message 2 



X=17 Transcode Weak Pattern Message 1 - 

STX SYN SYN ...text... ETX 
The text consists of 80 SOH (X'OO 1 ) 
characters. This message may be 
sent only to a 2780. 

X=18 Transcode Weak Pattern Message 3 

STX SYN SYN ...text... ETX 
The text consists of 40 N's 
(X'lSM, followed by 40 ESC (X^AM 
characters. This message may be 
sent only to a 2780. 

X=19 EBCDIC Weak Pattern Message (DLE 
SYN Insertion ) 

DLE STX . . .text. . . DLE ETX 
The text consists of 280 NUL 

t-xr» /\ rt • \ —1 a- £ A 1 1 _.._J 1 4 f\ 

SYN (X*32*) characters. This mes- 
sage may be sent to a S/360 
(including Model 20), System/3, 
1130, 1800, and 2715. 

X=20 Transparent EBCDIC Message 

DLE STX . . .text. . . DLE ETX 
The text consists of the characters 
U through Z, through 9, and X*00' 
through XMF* (a total of 80 chara- 
cters). This message may be sent 
to a S/360 ( excluding Model 20), 
1800, 2770, and 2780. 

X=21 Transparent EBCDIC Message 

DLE STX ...text... DLE ETX 
The text consists of the characters 
A through Z, through 9, and X^O' 
through X"53 t (a total of 120 
characters) . This message may be 
sent to a S/360 ( excluding Model 
20), 1800, 2770 and 2780. 

X=22 Transparent EBCDIC Message 

DLE STX ...text... DLE ETX 
The text consists of the characters 
A through Z, through 9, and X'OO' 
through X'6B* (a total of 144 
characters) . This message may be 



*This test type is intended for use by the 
IBM Customer Engineer to test for proper 
functioning of the data set clock (for 
switched lines) or business machine clock 
(for switched or nonswitched lines). 



2 This test type is intended for use by the 
IBM Customer Engineer to test for proper 
functioning of the data set clock (for 
nonswitched lines) . 
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sent to a S/360 ( excluding Model 
20). 1800, 2770, and 2780. 

The two SYN characters following the STX 
in non transparent test messages are present 
to allow space for a component selection 
address, if required in a point-to-point 
configuration. If a component selection 
address is not required in the message, the 
SYNs will be transmitted, but will be 
deleted by the receiving station. 

X=23 3270 Basic Test Message (EBCDIC) 

This test message checks all 
alphameric characters at a display 
station or printer. It checks 
the use of the HCC to sound the 
audible alarm and allows attribute 
field specification to be checked 
at a display station. It starts 
a printer, printing 40 characters 
to a line. 

X=24 3270_ Model 1 Align .Test Pattern 
(EBCDIC) 

This test pattern checks position 
alignment for the 480-character 
display station. It also checks 
the HCC for sounding the audible 
alarm. It starts a printer, 
printing 40 characters to a line. 

X=25 3270 Model 2 Align Tes^ Pattern 
(EBCDIC) 

This test pattern checks position 
alignment for the 1920-character 
display station. It also checks 
the HCC for sounding the audible 
alarm. It starts a printer, 
printing 80 characters to a line. 

X=2 6 3270 Orders Test .Message (EBCDIC) 

This test message checks 3270 
orders (for example, SF and SBA) , 
checks the WCC for sounding the 
audible alarm, and uses high and 
normal intensities. It starts 
a printer, printing 64 characters 
to. a line. 

X=27 3270 Basic Printer Test Pattern 
HI&DICL " 

This test pattern, which is mainly 
intended for the printer, checks 
several solid lines of alphameric 
print. It checks the HCC for 
starting the printer and prints 
132 characters to a line (honoring 
NL and EOM orders) . (If issued to 
a display station, it checks the 
HCC for sounding the audible alarm.) 



X=2 8 3g7Q NL/EOM printer Test Pattern 

This test pattern, which is mainly 
intended for the printer, checks 
the end of message (EOM) order 
and multiple sew- line (NL) orders. 
It checks the HCC for starting 
the printer and prints 132 
characters to a line. (If issued 
to a display station, it checks 
the HCC for sounding the audible 
alarm.) 

X=21zAH 3270 Test Messages and Patterns 
(ASCII) 

These test messages and patterns 
correspond to types 23-28. ASCII 
transmission code is used instead 
of EBCDIC. 

Table 47 shows the types of on-line 
tests that can be used for each type of 
remote station, except 3270 display 
stations and printers. 

Table 47A shows the types of on-line 
tests that can be used for each remote 
3270 display station or printer. 

Console Messages 



The on-line test facility prints on the 
console typewriter of the central computer 
the results of an on-line test. Messages 
are in one of two formats: For messages 
reporting the results of BTAM-transmitted 
test messages, or of a BTAM-transmitted RFT 
message specifying a test type (X field) of 
00: 

|IEC807I cuu ON-LINE TEST xx yy tt nn | 
I ii...ii | 

For • messages reporting the results of test 
messages received by BTAM from a remote 
computer or terminal: 



r t 

JIEC808I cuu ON-LINE TEST xx yy tt 11 dd | 

L . ■• 



The meanings of the message fields are: 



cuu 



XX 



indicates the address of the line 
(channel and unit) 

indicates the test type (X field of the 
RFT message ) . 
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The table shows the test types available for each type of remote station, and whether the RFT message that initiates the test can be sent from the central 
computer (indicated by "C") or from the remote station (indicated by "R"), or from both. Where a - appears, the test type is not usable for that type of 
remote station. 


Test 


type - specified in RFT message X - field 


S/360 
except 
Mod 20 


S/360 

Mod 

20 


S/3 


1130 


1800 


2715 


2770 


2780 


2972 




Content of test message 


00 
01 
02 
03 
04 
05 


(User-specified) 

(User-specified) 

EBCDIC, all bit patterns, transparent 

USASCII, all bit patterns, transparent 

EBCDIC, all bit patterns except data link controls 

USASCII, all bit patterns except data link controls 


C,R 
C,R 
C,R 
C,R 
C,R 
C,R 


C,R 

R 

R 

R 

R 

R 


C,R 

R 

R 

R 
R 


C,R 

R 

R 

R 


C,R 

R 

R 

R 
R 


R 
R 
R 


C,Rl 

R 

R3 

R3 
R 


C,Rl 
R 

R2 


C,Rl 
R 


06 
07 
08 
09 
10 


USASCII, A-Z, 0-9 

USASCII, printer selection code and A-Z, 0-9 
USASCII, punch selection code and A-Z, 0-9 
Transcode, printer selection code and A-Z, 0-9 
Transcode, punch selection code and A-Z, 0-9 


C,R 
C,R4? 


R 

R4 

R4 


R 


- 


R 

R4 

R4 


- 


R 

R4 

R4 


R 

R5 

R5 

R5 

R5 


- 


11 
12 
13 
14 
15 


Transcode, A-Z, 0-9 

EBCDIC, printer selection code and A-Z, 0-9 

EBCDIC, punch selection code and A-Z, 0-9 

EBCDIC, A-Z, 0-9 

EBCDIC, 74 NUL (X'00') characters 6 SYN (X '32') 

characters 


C,R4 
C,R4 
C,R 
C,R 


R4 
R4 
R 
R 


R 
R 


R4 
R4 
R 
R 


R4 
R4 
R 
R 


- 


R4 
R4 
R 
R 


R 

R5 

R5 

R 

R 


- 


16 
17 
18 

19 

20 


EBCDIC, 40 bytes of X 'AA', 40 bytes of X '55' 
Transcode, 80 SOH (X '00') characters 
Transcode, 40 N's (X '15'), 40 ESC (X '2A') 

EBCDIC, 280 NUL (X '00') characters 10 SYN 

(X '32') characters (transparent) 

EBCDIC: 80 characters, U-Z, 0-9, X '00' - X '3F' 

(transparent) 


C,R 

C,R 
C,R 


R 
R 


R 
R 


R 
R 


R 

R 
R 


R 


R 
R 


R 
R 
R 

R 


- 


21 
22 


EBCDIC, 1 20 characters: A-Z, 0-9, X '00' - X '53' 

(transparent) 

EBCDIC, 144 characters: A-Z, 0-9, X '00' - X '6B' 

(transparent) 


C,R 
C,R 


- 


- 


- 


R 
R 


- 


R 
R 


R 
R 


- 


1 RFT message sent from a remote 2770, 2780, or 2972 that specify X=00 must specify a transmission count (Y-field) of 1 . 

2 Printer only. The print chain must be at least 120 characters. 

32770s with expanded buffer capability. 

^The printer and punch codes apply to the 2780 only; the devices that contain programming (S/360 Model 20, 1 130, 1800) treat the codes as data. 

5Nonswitched or switched point-to-point line only; not valid for multipoint. 



Table 47. Summary of BSC On-Line Test Options (except for remote 3270 test options) 
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yy 



tt 



nn 



11 



11 



dd 



indicates the number of transmissions. 
For IEC807I messages, this value is 
obtained from the N field of the RFT 
message. For IEC808I messages, this 
value is accumulated by the on-line 
test routine as each test message is 
received by BTAM. 

indicates the number of occurrences of 
timeout errors. 

is the number of NAK responses to BTAM- 
transmitted test messages. 

is the terminal identification 
sequence. This is printed for tests on 
multipoint lines. 

indicates the number of occurrences of 
lost-data errors. 

indicates the number of occurrences of 
data check errors. 



ON-LINE TE STING FOB LOCAL 3270 DISPLAY 
SYSTEM 



On-line tests for local 3270 devices are 
requested from local display stations. 
There are six types of tests, not all 
of vhich apply to all devices. 

On-line testing between a System/360 
computer and a local 3270 device requires 
that BTAM or an on-line diagnostic program 
be running in the computer. Only the 
local 3270 display system can initiate 
an on-line test. Tests are requested 
by sending a request-for-test (RFT) message 
to the computer. For a local 3270, (1) 
the cursor is positioned at the top left 
of an unfromatted screen (by pressing 
the CLEAR key and then the RESET key, 
for example) , (2) the text of the RFT 
message (test type, number of times, 
length of address, channel and unit 
address) is entered by means of the 
keyboard, and (3) the TEST REQUEST key 
is pressed to precede the text with control 
characters (SOH % / STX) . 



TYPES OF TESTS 

Types 23-28 

The local 3270 display station sends an 
RFT message, which neither contains nor 
is followed by a test message. The X 
field of the RFT message indicates which 
of six BTAM-defined standard test messages 
it is to return to a local 3270 device. 
The Y field indicates how many times the 
test message is to be sent. The ADDR 
field indicates which local 3270 device 



is to receive the test message. The 
device receiving the test message must 
be associated with the same DCB as the 
device sending the RFT message. The 
contents of test messages are given below. 



BTAM RESPONSE TO REQUEST-FOR-TEST MESSAGES 

BTAM recognizes and responds to any RFT 
message received from a local 3270 display 
station provided that: 

1. The on-line test facility is available 
I (that is, T was specified among the 

EROPT options of the DCB macro 
instruction for the group of local 
3270 devices) . 

2. The RFT message was received on a 
read initial operation (that is, a 
READ TI macro instruction was issued) . 

3. The input area is at least 300 bytes 
long (that is, the inlength operand 
of the READ macro instruction was 

at least 300). If buffering is used, 
the entire 300-byte area must be 
contained within one buffer. 

4. The RFT message was received without 
error. 

When BTAM recognizes an RFT message, 
control is given to the on-line test 
logic, which examines the message, 
generates the reguested test message in 
the input area for the read operation, 
and sends the test message the reguested 
number of times. If the test message 
was sent to the same device from which 
the RFT was received, the read initial 
operation is restarted. If the test 
message was sent to a different device, 
the read initial operation is posted 
complete with a completion code of X'UH 1 . 



FORMATS OF RFT, TEST, AND CONSOLE MESSAGES 

Request-for-Test Mess age 

An RFT message from a local 3270 display 
station has the format: 



SOH % 


/ 


STX 


X 


Y 


N 


ADDR 



1 2 2 

Field length (bytes) 
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SOH % 



/ 



identifies the message as an BFT 
message. 

identifies the message as an RFT 
message from a local 3270. 



specifies the test type (23-28) . 

X is a two-byte zoned decimal field. 



specifies the number of times (1-99) 
the test message is to be sent. Y 
is a two-byte zoned decimal field. 



specifies the length (3) of the ADDR 
field. 



ADDB 



contains three characters (0-9, A- 
F) that indicate the channel and unit 
address of the device that is to 
receive the test message. 



Test Messag es 

The contents of test messages are 
determined by the X (test type) field 
of the BFT message that initiates the 
sending of the test message. 

X=23-28 3270 Test Mess ages and Pattern s 
illCDICI 

These test messages and patterns 
correspond to types 23-28 for 
remote 3270 display stations and 
printers. See the descriptions 
of test messages 23-28 above under 
"On-line Testing for Binary 
Synchronous Communications Lines." 

Table 47B shows the types of on-line 
tests that can be used for each local 
3270 display station or printer. 

Console Messages 

See the description of console messages 
above under "On-Line Testing for Binary 
Synchronous communications Lines." 



X's indicate the test type available for each remote 3270 device. 






3271 




3275 




Test Type 


Content of Test Message 


3277 


3284 or 3286 






Model 1 


Model 2 


Model 1 


Model 2 


Model 1 


Model 2 


3284 
Model 3 


23 


3270 Basic (EBCDIC) 


X 


X 


X 


X 


X 


X 




24 


3270 Model 1 (EBCDIC) 


X 




X 




X 






25 


3270 Model 2 (EBCDIC) 




X 




X 




X 




26 


3270 Orders (EBCDIC) 


X 


X 


X 


X 


X 


X 




27 


3270 Basic Printer (EBCDIC) 






X 


X 






X 


28 


3270 Nl/EOM Printer 
(EBCDIC) 






X 


X 






X 


29 


3270 Basic (ASCII) 


X 


X 


X 


X 


X 


X 




30 


3270 Model 1 (ASCII) 


X 




X 




X 






31 


3270 Model 2 (ASCII) 




X 




X 




X 




32 


3270 Orders (ASCII) 


X 


X 


X 


X 


X 


X 




33 


3270 Basic Printer (ASCII) 






X 


X 






X 


34 


3270 NL/EOM Printer 
(ASCII) 






X 


X 






X 



Table 47A. Summary of BSC On-Line Test Options for Remote 3270 Devices 
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X's indicate the test types avai 


able for each local 3270 device. 


Test 
Type 


Content of 
Test Message 


3272 


3277 


3284 or 


3286 


Model 1 


Model 2 


Model 1 


Model 2 


23 


3270 Basic 


X 


X 


X 


X 


24 


3270 Model 1 


X 




X 




25 


3270 Model 2 




X 




X 


26 


3270 Orders 


X 


X 


X 


X 


27 


3270 Basic Printer 






X 


X 


28 


3270 Nl/EOM 
Printer 






X 


X 



Table 47B. Summary of On-Line Test Options for Local 3270 Devices 
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APPENDIX A; FORMAT OF TERMINAL LISTS 



This appendix illustrates each of the various kinds of terminal lists 
given under Defining and Modifying Terminal Lists, elsewhere in this 
manual . 

Each terminal list consists of one or more entries, each representing 
a remote station or a specific component of a remote station* Terminal 
lists vary in format; the illustrations in this appendix show how each 
type is organized. 

Hote a Terminal lists are not used for the local 3270 display systea. 

In lists of the OPENLST and WRAPLST type, each entry contains a con- 
trol byte, illustrated in Figure 31. The bits in this control byte have 
the following meaning: 



Bit 
Position 



1 



2 
3-7 



Meaning 

If on, indicates that the entry is the last in the list. 
If on, indicates that the entry is to be skipped when polling 
or addressing. If off, indicates an active entry. This bit 
is turned on and off with the CHGNTRY macro. 
If on, indicates that the list is a wraparound list. 
List entry number. Each entry is numbered successively start- 
ing with 1. This field limits to 31 the number of terminal or 
component entries for a list created by the DFTRMLST macro. 
This field is not presently used by BTAM, but is reserved for 
later use. Large lists can be created by coding a series of 
DFTRMLST macro instructions of the OPENLST type. If a wrap- 
around list is desired, code a series of DFTRMLST macros of 
the OPENLST type, and follow the last in the series by the 
instruction DC HL2'-n', where n is the number of bytes occu- 
pied by the terminal list entries. 



Note ; In the examples the polling and addressing characters 
and the identification sequences are shown as alphabetic and 
numeric characters, but you must code them in the DFTRMLST 
macro as the hexadecimal representation of the appropriate 
transmission code bit patterns. 

— End -of- List Flag (E) 

— Skip Flag (S) 

— Format Flag (F) 



List Entry Number 

A 






1 


2 


3 


4 


5 


6 


7 



Figure 31. Format of Control Byte for OPENLST and WRAPLST Entries 
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OPENLST Format 



Each entry in an open list (polling or addressing) consists of a one 
(1030) or two (all others) byte field for the polling or addressing 
characters plus the control byte. Examples for 1050 and 1030 are 
shown in Figure 32. 



Format 



Control Byte 



Polling Characters 
(in Transmission Code) 


E 


S 


F 


Entry No. 



v 

1 Byte (1030) 
2 3ytes (1050, 1060, 83B3, 115A) 



J^ 



Y 

1 Byte 



Example , 
IBM 1050 * 



A 


5 























1 


A 


6 





1 














1 





B 


5 




















1 


1 


B 


6 

















1 








C 


5 





1 











1 





1 


E 





1 














1 


1 






D 























1 


E 




















1 





F 


1 

















1 


1 



Example 
IBM 1030 



Figure 32. Open Polling or Addressing List (OPENLST) : Format and Examples 



WRAPLST Format 

Wraparound polling lists differ from open lists in two ways: 

1. Format bit (bit 2 in control byte) is on in the last entry. 

2. A two-byte field follows the last entry and contains a negative 
binary value used by the polling restart routine to find the 
start of the list. 

An example is shown in Figure 33. 
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Control byte 



Format 



Polling Characters 
(in Transmission Code) 


E 


S 


F 


Entry No. 


Negative Offset 



V y A - 

1 Byte (1030) 
2 Bytes (1050, 1060, 83B3, 115A) 



— v — 

1 Byte 



-A. 



Example . 
(IBM 1050)' 



v 

2 Bytes 
(following last entry) 



Figure 33. Wraparound Polling List (WRAPLST) : Format and Example 



B 


5 























1 




C 


5 




















1 







C 


6 




















1 


1 




D 


5 

















1 










D 


6 








1 








1 





1 


- 15 



Control Byte 

-A- 



Format 



Number of 
Dial Digits 



Dial Digits 



-JJ- 



Polling or Addressing 

Characters 

(in Transmission Code) 



Entry No. 



Y 

1 Byte 



v 

2 Bytes 



— v — 

1 Byte 



Example: 
Calling - 
Polling List 



< f- 



* 5- 



Example: 
Answering - 
Polling List 






B 


6 























1 




B 


7 


1 

















1 






Example: 
Calling - 
Addressing 
List 



* J- 



* f- 






B 


9 


1 




















1 



Example: 
Answering - 
Addressing 
List 

* Length in bytes eauals number of dial diaits 

Figure 34. Dial List (DIALST) : Format and Examples 
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DIALST Format 



Terminal lists for stations on switched lines are illustrated in 
Figure 34. 



IDLST Format 



Terminal lists for TWX terminals (Models 33 or 35) are illustrated 
in Figure 35. 



SSALST and SSAWLST, AUTOLST and AUTOWLST Format 

Terminal lists for all stations for which Auto Poll is employed are 
illustrated in Figure 36. 
TE 

the total number of entries in list (1-253)* 
AE 

the total number of active entries in list (0-253)* 

NNN 

entry width Pi+Ii (2-7) 

W 

Wraparound flag (on for SSAWLST and AUTOWLST, off for SSALST 
and AUTOLST) 

UC 

Usage Count (0-15). The usage count indicates the total num- 
ber of polling operations using, the terminal list at any one 
time. 

Pi 

polling characters (1 or 2 bytes). The value X'FE' must not 
be used as a polling character. 

Ii 

index (1-253)* 

X'FE' 

Scan stop byte used to find end of list. 

OFFSET 

2-byte field used to find heading of list from end of list. 

* 

TE, AE, and Ii can be as high as 253, but at the time of pub- 
lication, the assembler imposes additional restrictions. 



BSCLST Format 



Terminal lists for s/360-to-S/360 communication over a switched 
line are illustrated in Figure 37. 



WTTALST Format 

Terminal lists for World Trade telegraph terminals are illustrated 
in Figure 38 . 
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SWLST Format 



The format and contents of the header and entries of a calling and an- 
swering list of the SWLST form is as follows (see Figure 39). 



Field 



Contents 



(HEADER) 
Pointer to 
Sequence Matching 
Received Sequence: 



Number of 
List Entries: 



Address (right-adjusted) of the last authorized 
ID sequence that was received prior to completion 
of the READ Connect or WRITE Connect operation. 
(Byte contains X f FF* to indicate that the list 
is of the SWLST form. ) 

Number (binary) of entries in the list (i.e., the 
number of different authorized ID sequences that 
will be honored) . 



Entry Length: 



Read- In Area 
Length: 



Dial Count: 



Read- In Area: 



Dial Digits: 



Id Count: 



Number of bytes (binary) in each entry in the 
list. This number is specified by the entry- 
length operand of the DFTRMLST macro, and should 
equal the number of bytes required to accommodate 
the longest expected ID sequence, plus the user- 
data field (0 or 4), plus one (for the control 
byte). 



Number (binary) of characters in the longest 
expected ID sequence. This number will have a 
minimum value of 2, to accommodate a two- 
character sequence such as DLE EOT. 

For an automatic dialing list: number (binary) 
of dial digits to be used in calling the remote 
station. Fqr a manual dialing list or an answer- 
ing list: 0. 

Area into which the ID response is read from the 
remote station. The length of this field is 
determined by the longest possible sequence that 
can be received, but no less than 2 bytes. 

The dial digits (binary), for an automatic dial 
calling list. For an answering list or a manual- 
dial calling list, this field is omitted. 

Number of characters (binary) in the sequence 
defined in the Id Sent field. 



Id sent 



(ENTRY) 
Authorized 
Sequence : 



For a calling list, this field contains the 
characters of the ID-ENQ sequence to be sent to 
the remote station. For an answering list, this 
field contains the ID ACK-0 sequence to be sent 
to the remote station when the control byte value 
of the entry containing the received ID ENQ 
sequence is 0. It is recommended that the first 
two characters of each ID sequence be identical, 
to provide greater identification reliability. 



The characters composing an authorized sequence 
that can be received. The size of this field is 
usually the length of the Read-In Area. Since 
this length is never less than 2, the size of 
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this field is less than the size of the Read-In 
Area when an answering list is defined with only 
one entry, containing the single ENQ character. 
Authorized sequences can be of different lengths; 
each sequence is left-adjusted in the Authorized 
Sequence field. 



User Area 
(optional) : 



May contain a user-specified relocatable expres- 
sion for each list entry. This four-byte field 
is included in each entry if you specify the 
userlenqth operand of the DFTRMLST macro as 4; 
otherwise, the field is omitted. 



Control Byte: 



A value, specified in the controlvalue operand of 
the DFTRMLST macro, indicating the action BTAM is 
to perform when an authorized ID sequence is 
received. The value may be 0, 1, or 2. (See 
description of the DFTRMLST macro for the signi- 
ficance of these values.) 



Format- 



Number of 
Dial Digits 



— v 

1 Byte 



Dial Digits 



J^ 



-ih 



Number of I.D. 
Characters 



(Blank) 



Terminal I.D. 

Characters 

(in Transmission Code) 



^^ 



1 Byte 



— v — 

1 Byte 



Example: 
Addressing List 






10 


Null CR LF DEL NYC CR LF XON 



Example: 
Calling List 





u 1 




~~* f_ l 




10 


3032881234 
if- 


10 


-tf— 


Null CR LF DEL C G O CR LF XON 



* Length in bytes equals number of dial digits 
** Length in bytes equals number of terminal I.D. characters 

Figure 35. Identification List (IDLST) : Format and Example 
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Symbol 



+NNN 



TE 



AE 



NNN! 



w|uc 



y 

1 byte 



1 byte 

+(NNN)(TE-1) 



y 

1 byte 



it 



"V 

1 or 2 bytes 



1 byte 



+(NNN)(TE) 





1 — hs — 1 

P TE-1 
U 


•te-i 


X'FE' 


Offset = * - Symbol +3 



y 

1 or 2 bytes 



1 byte 



Y 

1 byte 



Y 

2 bytes 



Figure 36. Open and Wraparound Auto Poll Lists for Start- Stop (SSALST, 
SSAWLST) and BSC (AUTOLST, AUTOWLST) : Format 



Format 



Example: 
Calling List 




1 Byte 



Number of 
Characters 

to be 
Transmitted 



_W_ 



1 Byte 



7 


5495777 


12 


-d 


XYZ CORP CGO ACK-0 


12 


XYZ CORP NYHQENQ 



1 Byte 



-tt 



Characters 

to be 
Transmitted 

-tv- 






12 


4$ 


XYZ CORP NYHQENQ 


12 


XYZCORP CGO ACK-0 



Example: 
Answer List 



* Length in bytes equals number of dial digits. 
** Length in bytes equals number of terminal ID characters. 
*** Length in bytes equals number of characters to be transmitted. 



The control characters are coded in their 
hexadecimal equivalents shown below: 



ENQ 
ACK-0 



X'2D' 
X'1070' 



Figure 37. BSC Dial List (BSCLST) (for S/360-S/360) : Format and Example 
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Format 



~V — 

1 byte 



Number 
of ID 
characters 



St 



(blank) 



JV_ 



~ Y~ 

1 byte 



J^ 



SV 



"V 



JV. 



SS— 

Terminal ID 
characters 

\S— 



Number of 
characters 
to be 
transmitted 



"V 



J^ 



"""V — 
1 byte 



JK. 



U 

Characters 
to be 
transmitted 

— SS 



** 



Example A . 






11 


Jb 


TELETYPE**! 


10 


COMPUTER*2 



Example B. 






10 


COMPUTER*3 



If the transmission code used with the WT terminals is the International 
Telegraph Alphabet No. 2, these terminal lists would be defined by 
coding : 

Example A : 

DFTRMLST WTTALST, 0, 11, 0110091001150D100H043D, 10, 0E03070D1C01100A0439 

Example B ; 

DFTRMLST WTTALST, 0, 0, 0,10, OE03070D1C01100A0430 

♦length in bytes equals the number of terminal ID characters to be 
received. 

♦♦Length in bytes equals number of computer ID characters to be 
transmitted. 

Figure 38. WT Terminal List (WTTALST): Format and Examples 
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General Format of List: 



Header 



Entry 1 



Entry 2 



-hS- 



-sv- 



Entry n 



Header of Auto-Dial Calling List: 



Pointer to 
Sequence 
Matching 
Received Sequence 



Number 
of 
List 
Entries 



Entry 
Length 



Read-in 

Area 

Length 



Dial 
Count 



-4V- 



Read-In Area 



Length 
in bytes: 



Header of Manual-Dial Calling List or Answering List: 



-IS- 



=Read-ln 
Area Length 



Length 
in bytes 



Entry including User Area: 



=Read-ln 
Area Length 



■4V- 



Authorized Sequence 
— ^ 



User Area 



Control 
Byte 



Length 

in 

bytes: 

Entry omitting User Area: 
=5P 



=Read-ln 

Area 

Length 



Length 

in 

bytes: 



Authorized Sequence 

— IV- 



Control 
Byte 



=Read-ln 

Area 

Length 



-4V- 



Dial Digits 



-ss- 



=Dial Count 













[ SS 1 




^ 


Pointer to 
Sequence 
Matching 
Received Sequence 


Number 
of 
List 
Entries 


Entry 
Length 


Read-In 

Area 

Length 





Read-In Area 

\S 


ID 
Count 


ID 
Sent 



=ID 
Count 



Figure 39. Calling and Answering Lists for Expanded ID Verification 
(SWLST) : Format 



ID 
Count 



ID 
Sent 



=ID 
Count 
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APPENDIX B: DATA EVENT CONTROL BLOCK 



DECSDECB 



Standard 4- byte ECB. Only the first byte of this field is of con- 
cern to the BTAM programmer. This byte can contain the following 
hexadecimal completion codes: 

Hex 
Value Meaning 

00 After Read or Write macro instruction issued, before WAIT. 

80 WAIT macro instruction issued; event not complete. 

Note : As long as the wait bit is on, the contents of some 
DECB fields are unpredictable (the fields are used internally 
by BTAM) ; the contents of the DECB should therefore be con- 
sidered meaningful only after the Read or Write operation has 
been completed (i.e., the completion bit is on). 

7F Normal completion: The Read or Write operation has ended 
with indications of Channel End- Device End and either Unit 
Exception or Incorrect Length, or both, if they are normal 
conditions (e.g.. Unit Exception indicating end-of- 
transmission or negative response to polling) . The user pro- 
gram should examine the bits in DECFLAGS to determine the 
status of the operation. 

41 Complete with I/O error; the program should examine the bits 
in DECERRST to determine the kind of error. 

44 The I/O request was rejected, because (1) a device error was 

detected after the last I/O operation oa the device was posted 
complete or {2) a request-f or-test message was received from 
a local 3270 display station requesting that a test message 
be sent to another local 3270 device. 

48 Enable Command Halted or I/O Operation Purged: Indicates one 
of the following : 

• An Enable command (automatic answering function for a 
switched line) was terminated by Halt I/O as a result of a 
RESETPL macro instruction (second operand omitted or speci- 
fied as ANSRING) . 

• An Enable command was terminated as a result of closing 
(CLOSE macro instruction) a line group with Enable commands 
outstanding. 

• An I/O operation was purged at Channel End interrupt time 
as a result of closing the line group while I/O operations 
were still in progress. 

• A Read Initial operation for World Trade telegraph has 
ended with a Halt I/O command because a RESETPL macro 
instruction was issued (second operand omitted) . 
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• A Bead Initial operation for the local 3270 display systea 
was canceled, because a BESETPL aacro instruction vas issued. 

DECTYPE Operation type: 

first byte: (In any combination) 

bit - current operation is a Read operation using Auto Poll 

Exception : When BSC on-line test is in control of the 
line, the and 1 bits have the following meaning: 

bit - indicates that on-line test has been requested by 
the ONLTST macro 

bit 1 - (meaningful only when on-line test has been 

initiated) =0 if test messages are sent by BTAM; 
=1 if test messages are received by BTAM 
=1 if RJE (Remote Job Entry) requested WTO timeout 
message suppression 

bits 2-U - (reserved) 
bit 5 - 'entry' coded as *S* 
bit 6 - 'area' coded as 'S' 
bit 7 - 'length' coded as 'S' 

second byte: bits 3, 4 f 5, 6, and 7 
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Hex 
Value 

00 

01 

02 

03 

04 

05 

06 

07 

08 
09 
0A 

OB 
OC 

OD 

OE 

OF 
10 
11 
12 

13 

15 
16 
17 
18 
19 
1A 
1B 
1C 
ID 
IE 
IF 



Operation 
Write Break (TB) 
Read Initial (TI) 
Write Initial (TI) 
Read Continue (TT) 
Write Continue (TT) 
Read Conversational (TV) 
Write Conversational (TV) 

Read Repeat (TP) , or Read Continue with Identification 
Exchange (TE) (WT terminal) 
Write Positive Acknowledgment (TA) 
Read Skip (TS) 

Write Negative Acknowledgment (TN) , Write Reset (TR), Write 
Disconnect (TN) (TWX) 
Read Buffer (TB) 

Write at Line Address (TL) # Write Initial Optical (TIO), 
Write Initial Transparent Block (TIE) 

Write Initial Conversational (TIV) , Read Continue with Lead- 
ing Acknowledgment (TTA) 

Write Erase (TS) , Write Invitational Optical (TCO), 
Write Continue Transparent Block (TTE) 
Write Continue Conversational (TTV) 
Write Disconnect (TD) (BSC) 
Read Connect (TC) , Reaa Modified (TM) 

Write Initial Transparent (TIX) , Write Conversational optical 
(TVO) , Write Unprotested Erase (TUS) 

Read Continue with Leading Graphics (TTL) , Read Buffer f roe 
Position (TBP) 

Write Continue Transparent (TTX) 
Read Inquiry (TQ) 
Write Inquiry (TQ) 

Read Repeat with Leading Graphics (TPL) 
(Reserved) 

Read Initial Inguiry (TIQ), Read Modified from Position (T MP) 
Write Wait Before Transaitting (TW) 
Read Interrupt <TR¥) 
Write connect (TC) 

Write Initial conversational Transparent (TIVX) 
Read Connect with Tone (TCW) 
Write Continue Conversational Transparent (TTVX) 



Bit of this second byte specif ies: Reset for Read Initial and Reset 
(TIR) , Write Initial and Reset (TIR), Read Continue and Reset (TTR), 
Write Continue and Reset (TTR) , Read Conversational and Reset (TVR), 
Write Conversational and Reset (TVR), Read Repeat and Reset (TPR), 
Read Buffer and Reset (TBR) , Write at line Address and Reset (TLR) , 
and Write Erase and Reset (TSR) . Bits 1 and 2 are reserved. 

DECLNGTH 

Buffer length or message area length. 

DECONLTT 

(Reserved) 

DECDCBAD 

Address of associated DCB. 
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DECAREA 

Address of the message area or first buffer. The high-order byte of 
this field must always contain zero. 

DECSENSO 

Sense information, as set by the control unit, when the CSW status 
(DECCSWST) indicates a unit check. 

Bit Meaning 

Command reject 

1 Intervention required 

2 Bus out check 

3 Equipment check 

4 Data check 

5 Overrun 

6 Lost data 

7 Timeout 

DECSENS1 

(Reserved) 

DECCOUNT 

Residual count from the CSW for the last CCW that was executed. 

DECCMCOD 

Command Code (one byte) identifies the type of command upon which 
the error occurred. 



Hex 




Value 


Command 


01 


Write 


02 


Read 


03 


I/O No-op 


04 


Sense 


06 


Prepare 


09 


Poll 


0A 


Inhibit 


0D 


Break 


27 


Enable 


29 


Dial 


2F 


Disable 



DECENTRY 

Address of the terminal list entry specified in the entry operand of 
the READ or WRITE macro instruction, prior to a Read or Write opera- 
tion; after the operation it contains the next sequential 
address of the terminal list if program polling and a terminal 
list of the WRAPLST type are specified. 

DECFLAGS 

Status flags that may be set regardless of whether there was an I/O 
error (i.e., the completion code in the DECSDECB may be either 7F or 
41). 

Bit 0: For , start-stop operations, this bit is reserved. For BSC 

operations, it indicates that a WACK ( Wait- bef ore-transmit) 
was received, if bit 1 is also on. If bit 1 is not on, bit 
indicates that an error status message was received. (An 
error status message begins with SOH % S and provides status 
information about a remote station. ) If a WACK has been 
received, the user program should respond by sending ENQ (or 
EOT, if transmission is to be ended), unless the WACK Was 
received in response to selection (multipoint line), in 
which case the user program should retransmit the selection 
characters, that is, reissue the WRITE macro. 

Bit 1: For start-stop operations, this bit is reserved. For BSC 

operations, it indicates that some response other than ACK-0 

*■ 

Appendix B: Data Event Control Block 259 



or ACK-1 was received into the DECRESPN field. Examination 
of the response will determine which action should be taken 
to reestablish proper communication. (This bit is set when 
WACK (see also bit 0) is received or when RVI (see also 
bit 6) is received. 

Bit 2: For start-stop operations, this bit is reserved. For BSC 

operations, it means that an incorrect alternating acknowl- 
edgment was received: ACK-1 received when ACK-0 was 
expected, or vice versa. If this bit is on and the comple- 
tion code for the operation is 7F (i.e., no line transmis- 
sion error occurred) , a complete message may have been lost. 

Bit 3: The ID received from a TWX 33/35 or a BSC station did not 

equal the expected ID as defined in the terminal list speci- 
fied in the WRITE TI, WRITE TC, or READ TC macro instruc- 
tion, or the index received as a result of an Auto Poll 
operation did not match the index byte in any of the active 
entries in the polling list. For BSC (non-switched line) 
this bit, when on, indicates that contention has occurred 
and this is not the control station. The control station 
should retry this WRITE and this (remote) station should 
issue a READ Initial. For World Trade telegraph terminals, 
this bit indicates that contention occurred, or that the ID 
received from a terminal did not equal the expected ID as 
defined in the terminal list specified in the READ TE macro 
instruction. Test the TP code in the DECB to determine 
which condition occurred. 

Bit 4: No buffer was available upon completion of a dynamic buffer- 
ing Read command. The last buffer is posted complete and 
the remainder of the message is read from the communications 
line (under control of a dynamic buffering Read Skip com- 
mand) , but the data is not placed into storage. 

Bit 5: 

• The end of the terminal list has been reached, or all the 
skip bits are on. This is an indication that: 

1. A negative response to polling has been received from 
the terminal represented by the last active (non- 
skipped) entry in an open polling list (OPENLST, 
SSALST, AUTOLST) ; 

2. A negative response to polling has been received fol- 
lowing a RESETPL macro instruction of the POLLING type 
(second operand omitted or specified as POLLING); 

3. All of the entries in a wraparound polling list 
(WRAPLST) are inactive (all skip bits are on) . 

Note : Condition 3 can occur only as a result of one or 
more skip bits being turned on after initiation of a pro- 
grammed polling operation with a wraparound polling list. 
If all skip bits were on at the time that the READ macro 
instruction was executed, no I/O operation would be 
initiated. 

• Negative response to addressing has been received. 

• The last message sent by a World Trade telegraph terminal 
ended with EOT or a time-out. 

• For 2741: Power is off or other Intervention Required 
condition exists. 

Bit 6: WT Terminals: Message ended with WRU signal. 

BSC Stations: RVI sequence received (see also bit 1). 
27_41: Write operation was ended by terminal interrupt. 
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Remote 3270 : If bit 6 is on, but bit 1 is not on, an error 
status message vas received. (An error status 
message for a remote 3270 device begins with 
SOH % R and provides sense and status infor- 
mation about the device.) 

Bit 7: WT Terminals; Contention condition was encountered. 
BSC Stations ; STX ENQ sequence was received. 

Local 3270 : OLTEP is using the device to run diagnostics. 

DECRLN 

Relative line number. 

DECRESPN 

Start-stop; First byte: one-character response to addressing 

Second byte: one-character LRC/VRC response to text 
BSC: two-character response to addressing, ENQ, or text. Excep- 
tion: responses to text for Write TIV, TIVX, TTV, and TTVX 
are read into the input area designated by the WRITE macro. 

DECTPCOD 

TP Op. code. Bits 2-7 of these codes identify types of channel com- 
mands that are not identifiable b v the command code alone= Bits 
and 1 are used in conjunction with, but independent of, bits 2-7, as 
described below. 

Hex 

Value Meanings 

00 Any command issued by On-line Test routine. 

01 Disable, when the disable is the first command of a channel 
program; dial, enable, prepare, write pad characters, or 
write wait-before- transmitting; or sense (World Trade tele- 
graph terminals) . 

02 Write EOA EOT EOT EOT sequence prior to selection, write EOT 
sequence prior to polling or addressing, write response to 
text, write EOA and 15 idle characters (Basic 2740) , or Write 
EOA PRE o (2740/2760). 

03 Write polling or addressing character or write / (/ is the 
broadcast addressing character) (2740 with Station Control), 
turn-around sequence (TWX) , CPU-ID sequence (TWX or BSC), 
Poll command with SSALST, SSAWLST, AUTOLST, or AUTOWLST, or 
write inquiry (ENQ). 

04 Write space (2740 with Station Control), write 2848 command 
(2260R), write FIGS (83B3), write 1 (1030), write WRU, Iden- 
tification, pad, or LTRS characters (World Trade terminals), 
or Sense (2740) . 

05 Read response to polling. 

06 Read response to addressing. 

07 Read ID response (TWX or BSC) . 
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08 



09 



0A 



Write end of addressing character following addressing (on 
1030, 1050, 1060, 2260R, or 2740). Write response to 
inquiry. Write response to text (BSC). Write EOB 
(2760/2740). 



NOP or TIC following Poll in the polling list: SSALST, 
SSAWLST, AUTOLST, or AUTOWLST. 



Read index (Auto Poll) or read response to polling (pro- 
grammed polling) . 



0B Read inquiry (BSC only) . 

0C Read response to inquiry (BSC only). 

10 Write at line address (2260R). 

11 Read or write text. Write frame change sequence (2760/2740). 

12 Read skip or TIC command for dynamic buffering. 

13 Write end- of -trans pa rent text (DLE ETX) characters (BSC). 

14 (Reserved) 

20 Read response to text (start-stop) . 

21 All reset commands. 

22 Read skip. 

23 Write break. 

24 Any command issued during OPEW, LOPEN, or CLOSE (Set Address, 
Enable, Disable, and Set Mode commands). 

25 Read Response to text (BSC). 

Bit : Indicates the final command in the channel program (not 
necessarily the last command executed) . 

Bit 1 : The command just executed was the first Read Text or Write 
Text CCW to be executed in a channel program using dynamic 
Buffering. 

DECERRST 

Error status flags that may be set if an I/O error has occurred 
(i.e., a completion code of 41 is placed in DECSDECB) . 

Bit : The START I/O instruction resulted in a condition code of 3 f 
indicating that the control unit or the specified line is 
not operational. 

Bit 1 ; An error condition that should not occur (is undefined for 
the particular command or device) has occurred. 

Bit 2 : An error condition occurred on an I/O operation initiated by 
the error recovery routines: (1) as part of an intermediate 
recovery procedure, (2) as part of a diagnostic write/read 
procedure (2701 only), or (3) as part of a disconnect proce- 
dure for a switched line. 

Bit 3z k diagnostic write/ read operation terminated in error, 

indicating a control unit failure {2701 only). An error 
occurred that lakes the integrity of the device 
regeneration buffer doubtful (local 3270 only). 
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Bit 4 : A Disable command was issued to a switched line by the error 
recovery routines after detecting a permanent error on that 
line. 

dote ; If this bit is on after execution of error recovery procedures, 
the user program must execute an initial-type Read or Write operation, 
in order to reestablish the line connection. 

Bits 5-7 ; (Reserved) 

DECCSWST 

Contains the status bits from the CSW for the last CCW that was 
executed. 

DECADRPT 

Pointer to the addressing list entry used in the previous operation. 

DECPOLPT 

For programmed polling, contains the address of the current entry in 
the polling list. For Auto Poll, the high-order byte contains the 
index to the current polling list entry. The remaining bytes con- 
tain the address of the polling list (i.e., the address of the first 
entry therein) . For BSC on-line test operations, contains the 
address of the area in which user- specified text data is placed (for 
test messages) - For local 3270 read operations, contains the relative 
xx iie uuaueL uj. uuts u««xv.<b: jn-wm *uj.v,u *.«•<= message sas read. 

DECftLNG 

Length of the data area in leading-graphics or conversational opera- 
tions or when using READ THC. 

DECK AREA 

Address of the data area in leading- graphics and conversational 
operations or when using READ TSC The high-order byte of this 
field must always contain zeros. 

Fields Defined by User 

It may be useful for the user program to maintain application- dependent 
information about the line and about the stations connected to the line. 
This may conveniently be done by appending to each DECB a sequence of 
fields containing the needed information, which might typically include: 

• Line status: A one-byte field that indicates the status of the 
line; for example, active or inactive. The inactive bit might be 
set after a certain number of transmission errors have accumulated,, 
to indicate to the message control routine that no further Read and 
Write operations are to be executed using that line. 

• Address of User Terminal Table: This table would contain a series 
of fixed-length entries, one for each terminal, containing terminal 
information such as whether or not the terminal is active, and the 
addresses of the terminal list entries for that terminal. 

• Terminal Count: A count of the number of terminals connected to the 
line. 

• Processing Routine Address: Contains the address of the next rou- 
tine to be given control for the line. For example, this field 
would contain the address of a line analysis routine to be given 
control upon completion of a Read or Write operation. 
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Standard DECB 
Fields 



DECB Fields 
Peculiar to BTAM 



Present only in 
DECBs for 
BSC lines 



Fields Defined 
By User 





DECSDECB 

















Standard Event Control Block 


DECTYPE 




DECLNGTH 






Operation Type 


Message Area Length or Buffer Length 


4 


DECONLTT 


1 
1 

Address of DCB 




DECDCBAD 


8 


Reserved 


1 
1 


DECAREA 


1 

1 

1 Address of Message Area 

i or Address of First Buffer 
1 


12 


Reserved 




DECSENSO 




DECSENSl 




DECCOUNT 




1(S 


Sense Byte 




Reserved 




CSW Residual Count 




DECCMCOD 








DECENTRY 


| Address of Terminal List 
1 or of an Entry Therein 
1 


20 


Command Code 


DECFLAGS 




DECRLN 




DECRESPN 


1 
1 


24 


Status Flags 




Relative Line Numbe 


r 


Response to Addressing 
(1 byte for Start/Stop, 
2 bytes for BSC) 


j Response to 

| VRC/LRC 

| (Start/Stop Only) 

1 




DECTPCOD 




DECERRST 




DECCSWST 




?8 


TP-OP Code 




I/O Error Status 






CSW Status 




DECADRPT 




Pointer to Previous (or Only) 
Entry in Addressing List 


V 


Reserved 


1 




DECPOLPT 


1 


Address of Current Entry in 
Polling List (Programmed Polling) 
Address of Polling List (Auto Poll) 


36 


Index byte (Auto Poll o 
Relative line number 
(local 3270 only) 


^ly) 




Reserved 


DECWLNG 




40 


Length of 1 
Conversati 
Leading G 


)ata Area (for BSC Write 
snal and BSC Read with 
raphics operations) 




DECWAREA 




Address of Data Area (for BSC Write Conversational and BSC 
Read with Leading Graphics operations) 


44 


Reserved 




Line Status 


Address of User Terminal Table 




Terminal Count 


Polling List Address 
Processing Routine Address 




Other User - Defined Data 



Figure 40. Format of Data Event Control Block 
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APPENDIX C: .BTAM ERROR MESSAGES AND ABEND CODES 



This appendix explains each of the BTAM-related error messages that may 
be printed during program execution at the console of the central com- 
puter, or at some other console, if the system includes the Multiple 
Console Support facility, or in the assembler listing in the SYSPRINT 
data set during program assembly. Also given are Abend codes 090 - 098 
which may be issued during opening of a BTAM DCB. 

Both system-generated and user- generated messages are described 
herein. System-generated refers to those messages printed at a console 
(or in an assembly listing) by the operating system; these begin with a 
standard identification, e.g., IEC801I. 

User-generated refers to those messages that are sent by the user 
(e.g., the operator of a remote station) to the central computer for 
routing to the user program, console, or an error file on a system resi- 
dence device. 



ASSEMBLY ERRORS 

These messages are produced by the assembler program during expansion of 
supervisor and data management macro instructions. They appear on the 
assembler listing in the SYSPRINT data set. 

r ■ 1 

| IHB002 INVALID xxx OPERAND SPECIFIED-yyy | 

L J 

Explanation : An operand whose position or name is xxx was 
specified as yyy. The specified operand is invalid. 

System Action : The macro instruction was partially expanded; 
expansion stopped on detection of the error. Severity code = 
12. 

Programmer Response : Probable user error. Correct the inval- 
id operand and reassemble. If the problem recurs, do the fol- 
lowing before calling IBM for programming support: 

• Have the associated program listing available. 



r 

j IHB072 LERB REQUESTED - EROPT=C ASSUMED 

L 



Explanation : LERB was coded in the DCB but EROPT=C (indicat- 
ing a reguest for line error recording) was not coded. 

System Action : The macro instruction was expanded normally 
with line error recording provided. Severity code=*. 

Programmer Response : Probable user error. Delete the LERB 
operand if line error recording is not wanted. If line error 
recording is wanted, code EROPT=C. If the problem recurs, do 
the following before calling IBM for programming support: 

• Have the associated program listing available. 
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r ■ 1 

| IHB073 LERB OMITTED - ERROPT=C IGNORED | 

L . J 



Explanation : Line error recording was requested by EROPT=C 
but no LERB address was given. 

System Action : The macro instruction was expanded normally 
with no line error recording provided. Severity code=* . 

Programmer Response : Probable user error. Delete EROPT=C if 
line error recording is not wanted. If line error recording 
is wanted, code a LERB address. If the problem recurs, do the 
following before calling IBM for programming support: 

• Have the associated program listing available. 

r 1 

| IHB074 EROPT=N - LERB IGNORED | 

L J 

Explanation : LERB was coded in the DCB but error recovery 
procedures were not requested (EROPT=N) . 

System Action : The macro instruction was expanded normally 
with no line error recording provided. Severity code=* . 

Programmer Response : Probable user error. Delete the LERB 
operand if line error recording is not wanted* If line error 
recording is wanted, code EROPT=C. If the problem recurs, do 
the following before calling IBM for programming support: 

• Have the associated program listing available. 

r ■ t 

| IHB075 TABLENAME OPERAND REPEATED -. XXX | 

L ■ J 

Explanation : In the ASMTRTAB macro instruction, a table name 
operand was coded more than once. XXX is the repeated 
operand. 

System Action : The macro instruction was expanded normally. 
Severity code=*. 

Programmer Response : Probable user error. Remove the duplic- 
ate operand and reassemble. If the problem recurs, do the 
following before calling IBM for, programming support: 

• Have the associated program listing available. 

r ■ 1 

j IHB076 MACRO NAME FIELD BLANK - NAME REQUIRED j 

i . ;. J 

Explanation : A name must be specified in the name field for 
this macro instruction. 

System Action : The macro instruction was not expanded. 
Severity code=12. 

Programmer Response : Probable user error. Code a name in the 

name field of the macro instruction and reassemble. If the 

problem recurs* do the following before calling IBM for pro- 
gramming support: 

• Have the associated program listing available. 
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r t 

| IHB078 XXX OPERAND REGISTER NOTATION INVALID - YYY | 

L - , J 

Explanation ; For the XXX operand, the operand was not en- 
closed in parentheses or specified an invalid register. YYY 
is the invalid notation. 

System Action : The macro instruction was not expanded. 
Severity code=12. 

Programmer Response : Probable user error. Correct the register 
notation or specify a valid register and reassemble. If the problem 
recurs, do the following before calling IBM for programming support; 

• Have the associated program listing available. 

r 1 

j IHB079 FIRST OPERAND REGISTER NOTATION REQUIRED | 

L J 

Explanation : Register notation is required for the first 
operand . 

System Action : The macro instruction was not expanded. 
Severity code=12 . 

Programmer Response ; Probable user error. Specify a register 
notation for the first operand and reassemble. If the problem 
recurs, do the following before calling IBM for programming 
support: 

• Have the associated program listing available. 

r 1 

j IHB080 ONE ECBLIST OPERAND ONLY REQUIRED | 

L J 

Explanation : The ECBLIST operand was omitted or more than one 
supplied. 

System Action : The macro instruction was not expanded. 
Severity code=12 . 

Programmer Response : Probable user error. Supply one and only 
one ECBLIST operand and reassemble. If the problem recurs, do 
the following before calling IBM for programming support: 

• Haye the associated program listing available. 

r n 

j IHB085 DEVD = XX CODED - EROPT = y IGNORED | 

L J 

Explanation : In a DCB macro instruction, one of the following 
occurred : 

• Both DEVD=BS and EROPT=N were coded. However, EROPT=N is 
invalid for binary synchronous devices. Error recovery 
procedures are required. 

• Both DEVD=WT and EROPT=R, W, or T were coded. However, 
EROPT=R, W r or T is invalid for World Trade telegraph 
terminals. 

System Action : The macro instruction was expanded normally. 
The EROPT operand was ignored. Severity code= *. 
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Programmer Response : Probable user error. Remove the EROPT 
operand and reassemble. If the problem recurs, do the follow- 
ing before calling IBM for programming support: 

• Have the associated program listing available. 

r • . 1 

| IHB100 X OR Y PARAMETER NOT WITHIN ALLOWABLE VALUE RANGE. | 

L . J 

Explanation : In the ONLTST macro instruction, either the X or 
Y operand specified an incorrect value. The X operand must 
specify a value from 00 through 22, and the Y operand must 
specify a value from 01 through 99. 

System Action : The macro instruction was not expanded. 
Severity code =12. 

Programmer Response : Probable user error. Correct the X or Y 
operand in the ONLTST macro instruction and reassemble. If 
the problem recurs, do the following before calling IBM for 
programming support: 

• Have the associated program listing available. 

r _ . n 

| IHB103 TEXT OR LENGTH MISSING WHEN X = OR X = 1 . | 

L . J 

Explanation : In the ONLTST macro instruction, although the X 
operand specified or 1, either the TEXT or the LENGTH 
operand was missing. Whenever the X operand specifies or 1„ 
the TEXT and LENGTH operands must also be specified. 

System Action : The macro instruction was not expanded. 
Severity code =12. 

Programmer Response : Probable user error. Include both the 
TEXT and LENGTH operands in the ONLTST macro instruction and 
reassemble. If the problem recurs, do the following before 
calling IBM for programming support: 

• Have the associated program listing available. 

r 1 

j IHB104 TEXT OR LENGTH MISSING. | 

l ; — j 

Explanation : In the ONLTST macro instruction, either the TEXT 
or the LENGTH operand was missing. If one of these two 
operands is specified, the other operand must also be 
specified. 

System Action : The macro instruction was not expanded. 
Severity code = 1 . 

Programmer Response : Probable user error. Include both the 
TEXT and the LENGTH operands in the ONLTST macro instruction 
and reassemble. If the problem recurs, do the following 
before calling IBM for programming support: 

• Have the associated program listing available. 
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r 1 

| IHB105 X GREATER THAN 1. TEXT AND LENGTH PARAMETERS IGNORED. | 

L J 

Explanation ; In the ONLTST macro instruction, although the X 
operand specified a value greater than 1, the TEXT and LENGTH 
operands were also specified. Whenever the X operand speci- 
fies a value greater than 1, the TEXT and LENGTH operands 
should not be specified. 

System Action ; The macro instruction is expanded normally, 
and the TEXT and LENGTH operands are ignored. 

Programmer Response ; Probable user error. Remove the TEXT 
and LENGTH operands from the ONLTST macro instruction. If the 
problem recurs, do the following before calling IBM for pro- 
gramming support : 

• Have the associated program listing available. 



| IHB107 DIALCOUNT AND DIALCHARS NOT IN AGREEMENT. 

l : 



Explanation ; In the DFTRMLST macro instruction, the length of 
the telephone number specified in the dialcount operand is not 
the same as the number of dial digits specified in the dial- 
chars operand. 



TV ^«4- -i r^r\ • 



the dialchars operand without regard to the length specified 
in the dialcount operand. Severity code = 4. 

Programmer Response ; Probable user error. Correct the dial- 
count or dialchars operand in error. If the problem recurs, 
do the following before calling IBM for programming support; 

• Have the associated program listing available. 

r ■ i 

| IHB108 POLLING CHARACTERS ARE IMPROPER. | 

I J 

Explanation : In the DFTRMLST macro instruction, the number of 
entries specified in the polling list was greater than 253 or 
one of the polling characters in an entry was hexadecimal FE, 
a value that must not be used as a polling character. 

System Action : The macro instruction was not expanded. 
Severity code = 12. 

Programmer Response ; Probable user error. Correct the poll- 
ing list. If the problem recurs, do the following before cal- 
ling IBM for programming support: 

• Have the associated program listing available. 

r '■ 1 

| IHB109 LENGTH OF POLLING CHARACTERS PER ENTRY IS IMPROPER. | 

L J 

Explanation ; In the DFTRMLST macro instruction, the entries 
in the polling list are not all of the same length. 

System Action ; All entries are truncated or expanded to equal 
the length of the first entry. Severity code = 4. 

Programmer Response : Probable user error, correct the poll- 
ing list so that all the entries are of the same length. If 
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the problem recurs, do the following before calling IBM for 
programming support: 

• Have the associated program listing available., 



IHB110 



DIAL CHARACTERS INVALID IN WTLIST. 



Explanation ; In a DFTRMLST macro instruction specifying a 
list type of WTLIST, dial digits were specified. However, a 
list type of WTLIST should be used only where manual dialing 
is intended, and no dial digits can be specified. 

System Action : The macro instruction was not expanded. 
Severity code =12. 

Programmer Response : Probable user error. Remove the dial 
digits from the DFTRMLST macro and reassemble. If the problem 
recurs, do the following before calling IBM for programming 
support : 

• Have the associated program listing available. 



j IHB111 LENGTH OR ADDRESS OF TONE OMITTED. 



Explanation : In a DFTRMLST macro instruction specifying an 
answering list of the WTLIST type, either the length or the 
address of the data tone characters was omitted. However, 
both operands must be included for a list of this type. 

System Action : The macro instruction was not expanded. 
Severity code =12. 

Programmer Response : Probable user error. Make sure that 
both length and adress operands are specified for an answering 
list of the WTLIST type. If the problem recurs, do the fol- 
lowing before calling IBM for programming support: 

• Have the associated program listing available. 



J IHB113 IDCOUNT AND IDSENT DO NOT AGREE. 

L ; ; 



Explanation : In a DFTRMLST macro instruction, the value spec- 
ified for the idcount operand does not equal the number of 
characters specified by the idsent operand. 

System Action : The macro instruction was partially expanded; 
expansion stopped upon detection of the error. Severity code 
= 12. 

Programmer Response : Probable user error. Correct the 
idcount value and reassemble. If the problem recurs, do the 
following before calling IBM for programming support: 
• Have the associated program listing available. 



| IHB114 

L 



IDCOUNT IS TOO LARGE. 



Explanation : In a DFTRMLST macro instruction, the value spec- 
ified for idcount is greater than 16 (for a calling list of 
the AD or MD type), or is greater than 17 (for an answering 
list of the AN type). 
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System Action : The macro instruction was partially expanded; 
expansion stopped upon detection of the error. Severity code 
= 12. 



Programmer Response : Probable user error. Correct the 
idcount value and reassemble. If the problem recurs, do the 
following before calling IBM for programming support: 

• Have the associated program listing available. 



| IHB115 INVALID TYPE ATTRIBUTES. 

L 



Explanation : In a DFTRMLST macro instruction, an invalid type 
attribute was specified for one of the operands. 



System Action : The macro instruction was partially expanded; 
expansion stopped upon detection of the error. Severity code 
= 12. 



Programmer Response : Probable user error. Correct the 
operand and reassemble. If the problem recurs, do the follow- 
ing before calling IBM for programming support. 



• Have the associated program listing available 



| IHB116 

L 



AUTHORIZED SEQUENCE IS MISSING 



Explanation : In a DFTRMLST macro instruction, either a con- 
trol value" or a user data area was specified without an 
authorized sequence having been specified. 

System Action : The macro instruction was partially expanded; 
expansion stopped upon detection of the error. Severity code 
= 12. 

Programmer Response : Probable user error. Either specify an 
authorized sequence or eliminate the control value or user 
data area. If the problem recurs, do the following before 
calling IBM for programming support: 

• Have the associated program listing available. 



| IHB117 PARENTHESIS IS MISSING. 

L 



Explanation : In a DFTRMLST macro instruction, the authorized 
sequence was not enclosed in parentheses. 

System Action : The macro was partially expanded; expansion 
stopped upon detection of the error. Severity code = 12. 

Programmer Response : Probable user error. Enclose the 
authorized sequence in parentheses and reassemble. If the 
problem recurs, do the following before calling IBM for pro- 
gramming support : 

• Have the associated program listing available. 
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I/O ERROR MESSAGE 



This message is printed at the console of the central computer following 
an error that BTAM error recovery procedures have failed to correct. 



IEA000I aaa,I/0 ERR,bb,cccc, ddee f f fgghhhh 



IEA000I 

is the standard message code for the operator. The internal 
component name is IEA, the serial number is 000, and the 
action code is I (meaning information); immediate operator 
action is not required. 

The following information is typed in hexadecimal (except I/O 

ERR) : 



aaa 

is the address of the communication line on which the error 
occurred. 

I/O ERR 

is the message text, indicating the occurrence of an I/O 
error. 



bb 



cccc 



dd 



ee 



ff 



is the command code of the failing command in the channel pro- 
gram. (See the DECCMCOD field in Appendix B for code values 
and meanings. ) 



is the status bytes of the channel status word (CSW) as speci- 
fied in the Input/Output Block (IOB) . 



is the first sense byte as specified in the IOB. 



is the sense information resulting from issuing diagnostic 
Write or Read commands if the commands resulted in a unit 
check (IBM 2701 only). 



is the TP operation code of the failing command in the channel 
program. (See the DECTPCOD field in Appendix B for code 
values and meanings.) 



gg 



(not used) 



hhhh 



is the terminal ID (polling or addressing characters). If 
only one polling character is used, it is left- justified in 
this field. (For IBM 27 4 Model 2: When this message is 
issued for an addressing error, the first character (hh..) is 
the address of the terminal, and the second character (..hh) 
indicates the kind of error that occurred on the previous 
Write operation. The meanings of the codes are given in the 
IBM 2740 — General Information section of the Start-Stop Read 
and Write Operations chapter. When the message is issued for 
a polling error, only one character, the polling character, 
appears at this point in the message.) 
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LIME ERROR RECORDING MESSAGES 

These messages indicate the number of errors occurring for a given line. 

Message IEC801I prints the contents of each of the four error thresh- 
old counters, indicating the number of data check, intervention 
reguired, or nontext time-out errors that have occurred since the last 
time the error threshold counters were reset. This message is printed 
whenever the threshold count has been reached for any of the three types 
of errors, or when the number of transmissions reaches the threshold 
count. (See the LERB (Line Error Recording Block) macro instruction for 
further information.) 

Message IEC802I prints the contents of each of the four cumulative 
counters (accumulators) , indicating the total number of data check, 
intervention required, and nontext timeout errors, and number of trans- 
missions that have been accumulated since the cumulative counters were 
last reset. This message is printed whenever the user program issues a 
LERPRT macro instruction. 

r i 

| IEC801I aaa THRESHOLD TRANS=bbb DC=ccc IR=ddd TO=eee | 
l J 

IEC801I 

is the standard message code for the operator. The internal 
component name is IEC, the serial number is 801, and the 
action code is I, meaning information; immediate operator 
action is not required. 

aaa 

is the address of the communication line on which the error 
occurred (printed in hexadecimal). 

THRESHOLD 

is the message text. 

TRANS=bbb 

is the number of transmissions that have occurred on this line 
(in decimal) . 

DC=ccc 

is the number of data check errors that have occurred on the 
line during the indicated number of transmissions (in 
decimal) . 

IR=ddd 

is the number of intervention required errors that have 
occurred on the line during the indicated number of transmis- 
sions (in decimal). 

TO=eee 

is the number of nontext timeout errors that have occurred on 
the line during the indicated number of transmissions (in 
decimal) . 

r 1 

| IEC802I aaa LINE TOTALS TRANS=bbbbbbbb DC=ccccc IR=ddddd TO=eeeee | 

L . J 

IEC802I 

is the standard message code for the operator. The internal 
component name is IEC, the serial number is 802, and the 
action code is I, meaning information; immediate operator 
action is not required. 
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aaa 

is the address of the communications line on which the errors 
occurred. 



LINE TOTALS 

is the message text, indicating the total number of errors on 
the specified line. 

TRANS=bbbbbbbb 

is the total number of transmissions that have occurred on the 
line since the accumulators were reset (in decimal). 



DC=ccccc 

is the total number of data check errors that have occurred on 
the line during the indicated number of transmissions (in 
decimal) . 



IR=ddddd 

is the total number of intervention required errors that have 
occurred on the line during the indicated number of transmis- 
sions (in decimal). 

TO=eeeee 

is the total number of nontext time-out errors that have 
occurred on the line during the indicated number of transmis- 
sions (in decimal). 



TRANSMISSION CONTROL UNIT INOPERATIVE MESSAGE 

This message is issued whenever an IBM 2701, 2702, or 2703 becomes 
inoperative. Usually, this message is printed during opening of a line 
group associated with the inoperative TCU. It appears when an I/O 
operation for some line connected to that TCU is attempted. When the 
message appears , the central computer operator should determine the 
reason for the condition and reactivate the TCU. 

IEC804A aaa CONTROL UNIT NOT OPERATIONAL. REPLY 
CONT OR POST 

IEC804A 

is the standard message code for the operator. The internal 
component name is IEC/ the serial number is 804, and the 
action code is A, meaning operator action is required. 



aaa 



is the address of the communications line. 



CONTROL UNIT NOT OPERATIONAL. REPLY CONT OR POST 

is the message text, indicating the response for the operator. 
Reply either CONT or POST. If the operator replies CONT, the 
I/O operation for which this message was printed will be 
retried. If the retry is unsuccessful, the message will be 
reissued. If successful, the operation will continue. If the 
reply is POST, the operation will be posted complete-with- 
error and the "not operational SIO" bit (bit 0) will be turned 
on in the DECERRST field of the DECB for the line. 

Note : If a reply is not entered before the requesting job is cancelled, 
the system may enter wait state. 
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IEC809I aaa CONTROL UNIT NOT OPERATIONAL 

IEC809I 

is the standard message code for the operator. The internal component name is IEC, 
the serial number is 809, and the action code is I, meaning no operator action is 
required. 

aaa 

is the address of the communications line. 

CONTROL UNIT NOT OPERATIONAL 
is the message text. 
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KEMOTE BSC STATION ERROR MESSAGES 



tiTAM allows remote BSC stations to send error information to the central 
computer.* This information is routed to the user program, to the cen- 
tral computer console, or to an error file on a system residence device. 
The format of the error message depends on which of these destinations 
is desired: 

1. Error information to be sent to the user program must appear in a 
message having this format: 

r T T T T T '/ T 1 

JSOHJ % j S* |DLE 2 |STX| text* | ETX j 
I J. X J. ,_X J. // X J 

11111 1 

2. Error information to be sent to the central computer console must 
appear in a message having this format: 

r T T T T T T // T 1 

|SOd| % I C 1 |DLE 2 |STX| r3 | text 4 * | ETX | 
I X X X X X X // X J 

111 1 11 1 

3. Error information to be sent to the system error file must aopear 
in a message having this format: 

r T T T T T T T " T // T 1 

j soil | % i E x |DLE 2 |STX| X' 08' | reserved | ID j text 4 * |ETX| 

l X X X _J X X X X // X J 

111111 2 2 1 

4. Error information from a renote 3270 display system to be sent 
to the problem program and to be recorded as T-type records in 
SYS1.L0GREC must appear in a message having this format: 



SOH 


% 


R 1 


STX 


text 


ETX 



i^otes : 

*-This character must be uppercase (EBCDIC or USASCII) . 

2 DLr, need be present only for transparent text; however, in the third 
format (system error file) , the text must begin in the eleventh byte. 

3 r in the routing code that specifies the console to which this message 
is to be routed. 

*The text of each message depends on the format: 

Format 1 - The text is user provided; its length depends on the size 

of the user's buffer. 

Format 2 - The text must consist of printable characters. The length 

of the text must oe either 17 or 60 characters; extra characters will 

be automatically truncated. 

Format 3 - The text is bit significant. The length may be from 35 to 

210 characters, but must be a multiple of 35 (i.e., it can be 35, 70, 

105, 140, 175, or 210 characters). If necessary, the text should be 

padded with ' FF' bytes. 
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Format *» - The text includes the control unit and device addresses 
of the remote 3270 device from vhich the message vas received and 
two sense/status bytes. 

After sending the error message to the user program, console, or 
error file, fcTAM restarts the user-program Read operation with which the 
error message was received. The remote station then may send another 
error message, a regular message, or EOT. 

Upon receiving an error message with a Read Initial Operation on a 
multipoint line, BTAM preserves the Auto Poll index byte in the first 
oyte of the input area. Therefore, following each Read Initial opera- 
tion on a multipoint line, the user program should check the second byte 
of the input area for an EOT character. 



♦Currently, the BSC stations that can send these messages are the 271$ 
{second and third formats only) , the 2770 (first format only) , and 
the remote 3270 {fourth format only). 
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ERROR STATUS MESSAGES (IBM 2770) 

One of the following five error messages may be sent by the 2770 termi- 
nal operator, as specified by the error recovery procedure for the 2770. 

• Checkpoint Restart: 

Last Restart Point: SOH % S STX X x X a C SP SP 
Specific Restart Point: SOH % S STX 2 X t X, C text... 

(The first format causes BTAM to begin retransmission at the point from 
which the previous transmission began, or at any other point decided by 
the user program when it detects the "C* preceding the two space charac- 
ters. The second format allows the terminal operator to indicate to the 
user program where he wishes for retransmission to begin. The text can 
be up to 50 characters long and can contain any information the user 
program needs to identify the point at which transmission is to begin. 
This might be, for example, a page number or form number. 

• Customer Engineer 

Attention Required: SOH % S STX X ± X 2 D Z ± Z 2 

• Job Restart: SOH % S STX X ± X 2 M SP SP 

• Format Error: SOH % S STX X ± X 2 F SP SP 
In these formats: 

Xj. is the station address 

X a is the component address 

text is any information the terminal operator wishes to send to identi- 
fy to the user program the point from which retransmission is to 
begin. 

Z ± is the station address. This is the same as X x if the component 

requires attention by a Customer Engineer, but the station is opera- 
tional; it is the address of an alternate station if the sending 
station requires CE attention; and it is a SP character if no 
alternate station is available or desired. 

Z a is the component address of an alternate componentatthe sending sta- 
tion or at an alternate station. 

When BTAM recognizes an error status message, it posts the operation 
complete with a completion code of X'7F f and turns on bit of DECFLAGS. 



TERMINAL ERROR STATUS MESSAGE (IBM 2715) 



This message, in one of four formats, provides the results of a scan of 
the error file of an IBM 2715 Transmission Control. The scan occurs 
when the error threshold for one of the area stations connected to the 
2715 is exceeded (threshold value is eight) or when manually requested 
at the 2715, the 2740 attached to the 2715, or the central computer. 
BTAM prints the message on the master console, the teleprocessing con- 
sole, or the system maintenance console, depending on the routing code 
included in the error scan message sent by the 2715. (The routing code 
does not appear in the message printed on the console.) 

In the four formats below: 

cuu 

is the address of the communications line (channel and unit) 
(EBCDIC) . 
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XX 

is the address of the area station for which the error scan is 
reported (hexadecimal) . 

tttt 

is the time (0001-2400) the error scan occurred (decimal). 

WW 

is the address of a particular adapter within the 2715 
(hexadecimal) . 

Other fields in the message are indicated under individual formats 
below. 



r ■ 1 

|IEC815I cuu xx tttt yy ERS Z | 

I J 

Explanation ; This message reports the results of an error 
scan by the 2715 when five or more of the eight errors 
involved a particular one of the devices attached to the area 
station. 

yy 

is the address of the device for which the errors occurred 
(hexadecimal). 

z 

is the number of errors (from 5 to 8) that occurred for the 
device (decimal) . 

Operator Response : None. 

r — 1 

JIEC815I cuu xx tttt THRESHLD | 

l •_. . J 

Explanation ; This message indicates that the threshold value 
of eight has been reached for the area station whose address 
is xx, but no one device attached to the station accounted for 
as many as five of the errors. 

Operator Response ; None 

r . 1 

JIEC815I cuu xx tttt yy eeee zzzz yy eeee zzzz yy eeee zzzz yy eeee zzzz | 

L . J 

Explanation ; This message is issued whenever an error scan 
for a particular area station is manually requested at the 
2715, 2740 attached to 2715, or the central computer. The 
message appears twice in succession. Each indicates the 
nature of four errors; the two messages together provide this 
information for the eight most recent occurences for area sta- 
tion xx. 

yy 

is the address of a device (hexadecimal) . 

eeee 

is the error data for device yy (hexadecimal) . 
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zzzz 

is the time (0001-2400) the error data was recorded on the 
2715 disk (decimal). 

Operator Response : None . 



|IEC815I cuu ww tttt eeeeeee zzzz eeeeeee zzzz eeeeeee zzzz eeeeeee zzzz 

L 



Explanat ion ; This message is issued whenever an error scan 
for a particular 2715 adapter is manually requested at the 
2715, 2740 attached to 2715, or the central computer. The 
message appears twice in succession. Each indicates the 
nature of four errors; the two messages together provide this 
information for the eight most recent error occurrences for 
adapter ww. 

eeeeeee 

is the error data for adapter ww (hexadecimal). 

zzzz 

is the time (0001-2400) the error data was recorded on the 
2715 disk (decimal). 

Operator Response ; None. 

ERROR STATUS MESSAGE (REMOT E IBM 32701 

An etror status message fro a a remote 3270 device has the format: 



SOH 


% 


R 


STX 


CU 
address 


device 
address 


sense/status 
byte 1 


sense/status 
byte 2 


ETX 



cu address 



device address 



is the address of the control unit of the device froa 
which the message was received (see Figure 3270-1 in 
the section "IBM 3270 Display System - Programming 
Considerations'*). 

is the address of the device from which the message 
was received (see Figure 3270-3 in the section "IBM 
3270 Display System - Programming Considerations") . 



sense/status byte 1 has the format: 
g it Defini tion 

Setting depends on bits 2-7 (see Figure 3270-4 in the 
section "IBM 3270 Display System - Programming 
Considerations") 

1 Setting always 1 

2 Reserved 

3 Reserved 

4 Device Busy <DB) 

5 Unit Specify <US) 

6 Device End (DE) 

7 Transmission Check (TC) 
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sense/status byte 2 has the format: 
lit Definit ion 

Setting depends on bits 2-7 (see Figure 3270-4) 

1 Setting always 1 

2 Command Reject <CR) 

3 Intervention Reguired (IR) 

4 Eguipment Check (EC) 

5 Data Check (DC) 

6 Control Check (CC) 

7 Operations Check (OC) 

For more information about the sense/status bytes, see XI! 3270 
Inf o rmatio n Display System, Component Descript ion , GA27-2749. 

When BTAM recognizes an error status message from a remote 3270 
device, the operation is posted with a completion code of X'lF* , and 
bits 1 and 6 are turned on in the DECFLAGS field of the DECB. BTAM 
sends the error status message to the problem program and records the 
information as T-type records in SYS1.L0GREC. 



Error Condition 


Suggested 
Action 


Sense/Status Bytes 


Bit(s) Set 


Unit(s) 


X'4050' 


IR 


3271, 3275 


6 


X'4060' 


CR 


3271, 3275 


8 


X'4QC1' 


OC 


3271, 3275 


8 


X'40C2' 


CC 


3271 


4 


X'40C3' 


CC, OC 


3271 


2 


X'40C4' 


DC 


3271, 3275 


4 


X'40C6' 


DC, OC 


3271 


2 


X'40DP 


IR, OC 


3271 


7 


X'4C40' 


DB, US 


3271, 3275 


14 


X'4E40' 


DB, US, DE 


3271, 3275 


4 


X'C140' 


TC 


3275 


16 


X'C240' 


DE 


3271, 3275 


NA 


X'C250' 


IR, DE 


3271, 3275 


6 


X-C2C4' 


DC, DE 


3271, 3275 


4 


X'C2C8' 


EC, DE 


3275 


11 


X'C2D8' 


IR, EC, DE 


3275 


11 


X'C4C]' 


OC, US 


3271 


17 


X , C4C4' 


DC, US 


3271, 3275 


4 


X'C4C5' 


DC, OC, US 


3271 


5 


X'C6C4' 


DC, US, DE 


3271, 3275 


12 


X'C6C8' 


EC, US, DE 


3271 


11 


X'C6D8V 


TR, EC, US, DE 


3271 


11 


X'C840' 


DB 


3271, 3275 


13 


X'C8C1' 


DB, OC 


3271 


15 



Table 47C. Suggested Actions According to Remote 3270 Error Status Message 

Table 47C indicates suggested actions according to the contents 
of the sense/status bytes in error status messages. The suggested 
actions are: 
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1. Execute a new address selection sequence, and retransmit the message 
starting with the command sequence that was being executed when 

the error occurred. If the operation is not successful after two 
retries, consider the error nonrecoverable, and take action 9. 

2. Do the same as in action 1, except take action 10 after two retries. 

3. Do the saae as in action 1, except retransmit the entire failing 
chain of commands. 

4. If possible, reconstruct the entire screen buffer image, and retry 
the failing chain of commands (within the BSC sequence of 
operations) . If the screen buffer cannot or need not be 
reconstructed, retry the operation anyway. If the operation is 
not successful after three retries, consider the error 
nonrecoverable, and take action 9. 

5. Do the same as in action 4, except reconstruct the buffer of the 
"from" device specified in the copy command. If the operation 
is not successful' after three retries, consider the error 
nonrecoverable, and take action 10. 

6. Wait for the display operator or system operator to ready the 
printer. Retry the printout by issuing a write command with the 
WCC and no data stream. Or take action 4. 

7. Wait for the display operator or system operator to ready the 
"from" device specified in the copy command. Take action 2. 

8. Examine the data stream to determine the cause of the nonrecoverable 
programming error. 

9. Request maintenance on the malfunctioning device. After repair, 
try to reconstruct the screen buffer image (using an erase/write 
command to correct a missing or aultiple cursor condition in the 
buffer). Retry the failing chain of commands as in the previous 
action. 

10. Request maintenance on the malfunctioning device (the "from" device 
specified in the copy command). After repair, try to reconstruct 
the screen buffer image (using an erase/write command to correct 

a missing or multiple cursor condition in the buffer). Retry the 
failing chain of commands as in the previous action. 

11. If a new printout is required, take action 6. 

12. If a new printout is required, take action 4. 

13. Periodically issue a specific poll to read the Device End indication 
that is sent by the device to the TCO when the device goes not 
busy. 

14. Periodically issue a specific poll to read the Device End indication 
that is sent by the device to the TCU when the device goes not 
busy. Take action 4. 

15. Do the same as in action 14, except take action 1 when the "from" 
device specified in the copy command goes not busy. 

16. If the failing command is (1) a vrite command with a data stream 
of more than one byte or (2) one of a chain commands that contains 
a previous write command without an SBA order immediately following 
the WCC, take action 4. Otherwise, take action 3. 

17. An unauthorized attempt was made to copy data from a device. The 
device address in the error status message is the address of the 
"to H device specified in the copy command. 
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BTAM ABEND CODES 



090 Explanation : The error occurred during execution of a BTAM 
OPEN macro instruction. 

An Open routine found that a device other than a communica- 
tions device was allocated to the data control block (DCB) 
being opened; that is, the device class code in the unit con- 
trol block (UCB) for the device allocated to the data control 
block was not equal to hexadecimal HO. 

Programmer Response : Either the UNIT parameter of the DD sta- 
tement for the communications device is incorrect or unit con- 
trol block generated during system generation is invalid. 
Check for improper specification of the UNIT parameter of the 
DD statement or the UNIT operand of the IODEVICE macro 
instruction. After correcting the error, execute the job step 
again. If the problem recurs, do the following before calling 
IBM for programming support: 

• Make sure that MSGLEVEL= (1,1) was specified in the JOB sta- 
tement and that a SYSABEND DD statement was included for 
the failing job step. 

• Have the associated job stream and program listing 
available. 

091 Explanation : The error occurred during execution of a BTAM 
OPEN macro instruction. 

An Open routine found an invalid or unsupported type of trans- 
mission control unit specified in the unit control block (UCB) 
for the device allocated to the data control block (DCB) being 
opened . 

Programmer Response : Check for improper specification of the 
IOCONTRL macro instruction used in generating the system. 
After correcting the error, execute the job step again. If 
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the problem recurs, do the following before calling IBM for 
programming support: 

• Make sure that MSGLEVEL= (1,1) was specified in the JOB sta- 
tement, and that a SYSABEND DD statement was included for 
the failing job step. 

• Have the associated job stream and program listing 
available. 

092 Explanation ; The error occurred during execution of a BTAM 
OPEN macro instruction. 

An Open routine found an invalid or unsupported type of termi- 
nal control or terminal adapter specified in the unit control 
block (UCB) for the device allocated to the data control block 
(DCB) being opened. 

Programmer Response : Check for improper specification of the 
ADAPTER operand in the IODEVICE macro instruction used in 
generating the system. Correct the error and execute the job 
step again. If the problem recurs, do the following befor 
calling IBM for programming support: 

• Make sure that MSG LEVE L= ( 1 , 1 ) was specified in the JOB sta- 
tement, and that a SYSABEND DD statement was included for 
the failing job step. 

• Have the associated job stream and program listing 
available. 

093 Explanation : The error occurred during execution of a BTAM 
OPEN macro instruction. 

An Open routine found an invalid or unsupported type of termi- 
nal specified in the unit control block (UCB) for the device 
allocated to the data control block (DCB) being opened. 

Programmer Response : Check for improper specification of the 
UNIT operand in the IODEVICE macro' instruction used in 
generating the system. Correct the error and execute the job 
step again. If the problem recurs, do the following before 
calling IBM for programming support: 

• Make sure that MSG LEVE L= (1,1) was specified in the JOB sta- 
tement and that a SYSABEND DD statement was included for 
the failing job step. 

• Have the associated job stream and program listing 
available. 

09U Explanation : The error occurred during execution of a BTAM 
OPEN macro instruction. 

An Open routine found an invalid or unsupported optional fea- 
ture or mode of operation specified in the unit control block 
(UCB) for the device allocated to the data control block (DCB) 
being opened. 

Programmer Response : Check for improper specification of the 
FEATURE operand in the IODEVICE macro used in generating the 
system. Correct the error and execute the job step again. If 
the problem recurs, do the following before calling IBM for 
programming support: 

• Make sure that MSG LEVE L= (1,1) was specified in the JOB sta- 
tement and that a SYSABEND DD statement was included for 
the failing job step. 
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• Have the associated job stream and program listing 
available. 

095 Explanation : The error occurred during execution of a BTAM 
OPEN macro instruction. 

An Open routine found that the lines allocated to the line 
group did not have identical types of terminals or lines, or 
that the terminals did not have the identical features. 

Programmer Response : Determine which line group contains dif- 
ferent types of terminals or lines and redefine its lines 
through DD statements or a new system generation. If the pro- 
blem recurs, do the following before calling IBM for program- 
ming support: 

• Make sure that MSGLEVEL= (1,1) was specified in the JOB sta- 
tement and that a SYS ABEND DD statement was included for 
the failing job step. 

• Have the associated job stream and program listing 
available. 

096 Explanation : The error occurred during execution of a BTAM 
OPEN macro instruction. 

An Open routine found that dynamic buffer allocation had been 
specified in the DCBBFTEK field of the data control block 
(DCB). However, the Open routine could not dynamically alloc- 
ate buffers because the data control block specified neither 
the address of a buffer pool control block (in the DCBBUFCB 
field) nor the number and length of the buffers (in the DCBBU- 
FNO and DCBBUFL fields). 

Programmer Response : Correct the error by (1) providing a 
buffer pool and specifying the address of its control block in 
the DCBBUFCB field, (2) specifying the number and length of 
the buffers in the DCBBUFNO and DCBBUFL fields, or (.3) handl- 
ing buffering in the user program and deleting the BFTEK=D 
operand in the DCB macro instruction or the DCB parameter of 
the DD statement. Then execute the job step again. If the 
problem recurs, do the following before calling IBM for pro- 
gramming support : 

• Make sure that MSGLEVEL=(1, 1) was specified in the JOB sta- 
tement and that a SYSABEND DD statement was included for 
the failing job step. 

• Have the associated job stream and program listing 
available. 

097 Explanation : The error occurred during execution of a BTAM 
OPEN macro instruction. 

An Open routine required an additional entry in the device I/O 
directory; however, the directory was already full. Since the 
last system start, the maximum number of device types have 
been allocated. Normally, the maximum number is 16. 

Programmer Response : Do the following before calling IBM for 
programming support : 

• Make sure that MSGLEVEL=(1,1) was specified in the JOB sta- 
tement and that a SYS ABEND DD statement was included for 
the failing job step. 

• Have the associated job stream and program listing 
available. 
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098 Explanation ; The error occurred during execution of a BTAM 
OPEN macro instruction. 

Although Dual Communication Interface B or Dual Code Feature B 
was specified in the data control block (DCB), the transmis- 
sion control unit is not an IBM 2701 or the unit control block 
(UCB) established at system generation time did not specify 
that the 2701 is equipped with the Dual Communication Inter- 
face or Dual code feature. 

Programmer Response ; Probable user error. Correct the DCB 
macro that defined the data control block that erroneously 
specified the Dual communication Interface B or Dual Code B, 
reassemble, and re-execute the job step. If the problem 
recurs, do the following before calling IBM for programming 
support ; 

• Make sure that MSGLEVEL=(1,1) was specified in the JOB sta- 
tement and that a SYSABEND DD statement was included for 
the failing job step. 

• Have the associated job stream and program listing 
available. 
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APPENDIX D; SYSTEM GENERATION MACRO INSTRUCTIONS 



This appendix explains the operands that 
must be included in the system generation 
macro instructions when generating an 
operating system that includes BTAM. Only 
those macro instructions and operands 
directly related to BTAM are given; for 
other macro instructions required for 
generating a system, and an explanation of 
the generation process, see the OS 
SYSGEN publication. In particular, 
refer to explanations of the DATAMGT, 
IOCONTRL, IODEVICE, and TELCMLIB macro 
instructions. 



TELCMLIB Macro Instruction 



During system generation, you must specify 
the TELCMLIB macro instruction. It causes 
the telecommunications subroutine library, 
SYS1. TELCMLIB, to be included in your 
operating system. 



DATAMGT Macro Instruction 



UNIT 

Specifies the type of transmission 
control unit: 2701, 2702, or 2703. 
For the local 3270 display system, 
specifies the type of control unit: 
3272. 

ADDRESS 

Specifies the control unit address 
to which the TCU is connected. For 
the local 3270 display system, 
specifies the channel control unit 
address to which the 3272 control 
unit is connected. The address value 
consists of two hexadecimal digits 
having a valid range of 00 to 6F. 
The first digit identifies the channel, 
and the second identifies the control 
unit address. 

MODEL 

Specifies whether the 3272 control 
unit given by the UNIT operand is 
a model 1 (480-character buffer) or 
model 2 (1920-character buffer). 
Code M0DEL=1 or M0DEL=2. 



DATAMGT causes one or more optional access 
methods to be included in your operating 
system. To include BTAM, code: 



N ote : The MODEL operand applies only 
to the local 3270 display system. 

IODEVICE Macro Instruction 



r t t 1 

| Name | Operation | Operand | 

k + __ + ^ 

j | DATAMGT | ACSMETH=BTAM | 

l_, ± J. . J 



IOCONTRL Macro Instruction 

IOCONTBL identifies to the operating 
system the type of transmission control 
unit (TCU) or control unit to be attached 
to a S/360 chajinel control unit address. 
Specify one IOCONTRL macro for each TCU 
or control unit to be operated under BTAM. 
Only the operands shown are applicable 
for a BTAM system. 

If you wish to specify an IBM 2702 hav- 
ing the 31-line expansion feature, you must 
code a separate IOCONTRL macro for each of 
the two sets of lines. 



Name 


Operation 


Operand 


[name"] 


IOCONTRL 


UNIT=rype, 

ADDRESS=iaddress 

MODEL=model, 



IODEVICE describes to the operating system 
the characteristics of an input/output 
device and its operating system require- 
ments. For BTAM, IODEVICE identifies the 
type of device, i.e., remote station, that 
is connected to a communications line, or 
the type of line configuration. You there- 
fore code one IODEVICE macro for each line, 
regardless of how many remote stations 
are connected to the line. For BTAM 
support for the local 3270 display system, 
IODEVICE identifies the type of local 
3270 device connected to a 3272 control 
unit. You code one IODEVICE macro for 
each local 3270 device. 

Only the operands shown are applicable 
for a BTAM system. 



Name 


Operation 


Operand 


symbol 


IODEVICE 


UNIT=type 
ADDRESS^ ddress 
MODEL=model, 
ADAPTER=type 
[, FEATURE=(fearurel,] 

feature2^- • • )_] 
r,$ETADDR=rypeJ 
[,OBRCNT=n] 
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UNIT 



specifies the type of remote terminal 
(start-stop) or type of line configu- 
ration (BSC) associated with the line 
address given by the ADDRESS operand. 
For the local 3270 display system, 
specifies the type of local device 
with the device address given by the 
ADDRESS operand. VAlid UNIT parameters 
are: 

• For start- stop: 

1030 

1050 

1060 

2260 

2740 

2741P (2741 using PTTC code) 

2741C (2741 using Correspondence 

code) 
83B3 
115A 
TWX 

WTTA (World Trade Telegraph 
Terminals) 



• For BSC 

BSC1 (for nonswitched point-to- 
point line) 

BSC 2 (for switched point-to-point 
line) 

BSC 3 (for nonswitched multipoint 
line) 
• For local 3270 display system: 

3277 
3284 
3286 

Alternatively, for BSC, specific station 
types may be coded: S3 60 (S/360 except 
Model 20), 2020 (S/360 Model 20), 1130, and 
2780. If more than one of these types of 
station are connected to the same multi- 
point line, or can call the central comput- 
er over the same switched line termination 
(telephone number), the following rules 
apply: 

• If the combination consists only of the 
S/360 and S/360 Model 20, code UNIT=2020. 

• If the combination includes 2780, togeth- 
er with S/360 or S/360 Model 20, or both, 
but excluding 1130, code UNIT=2780. 

• If the combination includes 1130, code 
UNIT=1130, regardless of which other 
types are in the combination. 

These alternative UNIT values provide 
compatibility with earlier versions of 
BTAM, that is, the UNIT operand need not be 
recoded as BSC2 or BSC3. Future releases 
of BTAM will, however, require that BSC1, 
BSC 2, or BSC 3 be coded. 



ADDRESS 

Specifies the three-digit address 
of the line over which the type of 
station given by UNIT is to 
communicate. For the local 3270 
display system, specifies the three- 
digit address of the local 3270 device 
given by the UNIT operand. Valid 
parameters are within the range 000- 
6FF, inclusive (hexadecimal) • 

MODEL 

Specifies whether the local 3270 
device given by the UNIT operand is 
a model 1 (480-character buffer) or 
model 2 (1920-character buffer). 
Code M0DEL=1 or M0DEL=2. 

Note : The MODEL operand applies only 
to the local 3270 display system. Only 
model 1 devices (3277, 3284, 3286) may 
be connected to a model 1 3272 control 
unit. Model 1 or model 2 devices or both 
may be connected to a model 2 3272 control 
unit. 

ADAPTER 

Specifies the type of TCU terminal 
control and terminal adapter asso- 
ciated with the line address given by 
the ADDRESS operand. Code one of the 
following values: 

IBM1 For IBM 1050,1060, 2740 or 2741 
communicating with: 

• IBM 2701 through an IBM Terminal 
Adapter, Type I, and either: (1) 
an appropriate data set, or (2) an 
IBM Line Adapter. 

• IBM 2702 or 2703 through an IBM 
Terminal Control, Type I, and 
either: (1) a Data Set Line 



Adapter and an appropriate data 
set, or (2) an IBM Line Adapter. 

IBM2 For IBM 1030 communicating with: 

• IBM 2701 through an IBM Terminal 
Adapter, Type II, and either: (1) 
an appropriate data set, or (2) an 
IBM Line Adapter. 

• IBM 2702 or 2703 through an IBM 
Terminal Control, Type II, and 
either: (1) a Data Set Line 
Adapter and an appropriate data 
set, or (2) an IBM Line Adapter. 

IBM3 For IBM 2260-2848 communicating 
with : 

• IBM 2701 through an IBM Terminal 
Adapter, Type 7~t and an appropri- 
ate data set. 
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IBMT For IBM 1050 communicating with: 

• IBM 2701 through an IBM Telegraph 
Adapter . 

• IBM 2703 through an IBM Terminal 
Control, Type I, and a Telegraph 
Line Adapter. 

TELE1 For AT&T 83B3 or Western Union 
115A communicating with: 

• IBM 2701 through a Telegraph 
Adapter, Type I. 

• IBM 2702 or 2703 through a Tele- 
graph Terminal Control* Type I, 
and a Telegraph Line Adapter. 

TELE2 For WU TWX (Model 33 or 35) 
communicating with: 

• IBM 2701 through a Telegraph 
Adapter, Type II* and an appropri- 
ate data set. 

• IBM 2702 or 2703 through a Tele- 
graph Terminal Control, Type II, 
and a Data Set Line Adapter and an 
appropriate data set. 

TELEW For World Trade Telegraph ter- 
minal communicating with: 

• IBM 2701 through a World Trade 
Telegraph Adapter. 

• IBM 2702 or 2703 through a World 
Trade Telegraph Adapter and a 
Telegraph Line Adapter. 

BSCA For IBM System/360, System/360 
Model 20, System/3, 1130, 1800, 2715, 
2770, 2780, or 2972 communicating 
with: 



•IBM 2701 through a Synchronous Data 
Adapter, Type II, and an appropri- 
ate data set. 

• IBM 2703 through a Synchronous 
Terminal Control and an appropri- 
ate data set. 

FEAT 0B E 

Specifies certain optional features 
with which the transmission control 
unit (TCO) or remote station is 
equipped. For the local 3270 display 
system, specifies certain features 
with which the local 3270 display 
station is equipped. Code each of 
the applicable parameters: 



AUTOCALL if the TCU (2701, 2702, or 
2703) to which the remote station is 
connected is equipped with the Auto 
Call feature and the line is con- 
nected to the TCU terminal adapter by 
means of an Automatic Calling Unit 
and an appropriate data set. When 
these conditions are met, and you 
specify AUTOCALL, the channel pro- 
grams generated for the line whose 
address is specified by the ADDRESS 
operand can automatically dial the 
remote stations, using the telephone 
number you specify in the terminal 
list associated with the line. 

AUTOANSR if the data set (modem) 
connecting the access line specified 
by the address operand to the TCU is 
a switched line over which calls are 
to be answered. AUTOANSR must be 
coded regardless of whether the line 
is equipped with an automatic answer- 
ing unit. When you specify 
AUTOANSR, the channel programs 
generated for the specified line will 
automatically initiate message trans- 
mission when a remote station calls 
the computer - 

AUTOPOLL if the automatic polling 
facility of the TCU is to be used. 
This facility is a standard feature 
of the IBM 2703, and an optional fea- 
ture (called Auto Poll) of the IBM 
2702. For the IBM 2701 this param- 
eter is valid only for lines connected 
through the Synchronous Data Adapter 
Type II. If you specify AUTOPOLL, the 
Read Initial channel programs 
generated for the specified line will 
be so arranged that a negative 
response from a remote station causes 
the TCU to automatically poll the 
next station in the terminal list 
without signalling an I/O interrupt. 
If you omit AUTOPOLL, Read Initial 
operations will employ programmed 
polling with each negative response 
from a remote station causing an I/O 
interrupt. Only those Read Initial 
operations that send polling characters 
are affected. 

This parameter is valid only for 
nonswitched multipoint lines to which 
are connected the IBM 1030,, 1060, 
1050, 2740, or any BSC stations, (as 
specified by the UNIT operand)., as 
only these types of stations can be 
polled using the Auto Poll facility. 
The AUTOPOLL operand must be coded 
for BSC stations on multipoint lines, 
and may be coded for the foregoing 
start-stop terminals. 
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If UNIT=2740 is specified, you 
must also code in the FEATURE 
operand, either SCONTROL or SCONTROL 
and CHECKING (in addition to the 
AUTOPOLL parameter) . 

DUALCOMM if the TCU (IBM 2701 only) 
to which the line specified by 
ADDRESS is connected is equipped with 
the Dual Communication Interface spe- 
cial feature. This feature allows 
program selection (in the DCB macro) 
of either of two data sets (modems) 
over which transmission is to occur 
(BSC lines only) . 

DOALCODE if the TCU (IBM 2701 only) 
is equipped with the Dual Code spe- 
cial feature. This feature allows 
program selection (in the DCB macro) 
of the transmission code to be used 
on the communication line (BSC lines 
only) . 



For IBM 2740 Terminals only; 



CHECKING if UNIT=2740 is specified 
and the terminal is equipped with the 
Record Checking special feature. 

SCONTROL if UNIT=27U0 is specified 
and the terminal is equipped with the 
Station Control special feature. 
This parameter and the AUTOCALL, 
AUTOANSR, OIU, and XCONTROL parame- 
ters are mutually exclusive. 

XCONTBOL if UNIT=2740 is specified ana 
the terminal is equipped with the Transmit 
Control special feature and the Dial Up 
special feature. Tou also must indicate 
the Dial Op special feature in the FEATURE 
operand by the AUTOCALL or AUTOANSB 
parameter, or both, as appropriate. The 
XCONTROL parameter and the OIU parameter 
are mutually exclusive. 

OIU if the UNIT=2740 is specified and 
the terminal is equipped with an IBM 
2760 Optical Image Unit. This para- 
meter and the SCONTROL and XCONTROL 
parameters are mutually exclusive. 

For local 3270 device s only: 

• One of the following character 
generator options: 

DOCHAR if the device has a domestic 
monocase character generator. If 
the FEATURE operand is not coded, 
this value is assumed. 

ASCACHAB if the display station has 
an ASCII A monocase character 
generator. 



ASCBCHAB if the display station has 
an ASCII B monocase character 
generator. 

FBCHAB if the device has a French 
monocase character generator. 

GBCHAB if the device has a German 
monocase character generator. 

KACHAB if the device has a Katakana 
monocase character generator. 

UKCHAB if the device has a United 
Kingdom monocase character generator. 

• One of the following keyboard options 
(if a keyboard is present) : 

EBKI3277 if the display station has 
an EBCDIC typewriter keyboard. 

ASKY3277 if the display station has 
an ASCII typewriter keyboard. 

DEKI3277 if the display station has 
a data entry keyboard. 

OCKY3277 if the display station has 
an operator console keyboard. 

• One of the following keyboard options 
(if a keyboard is present) : 

KB66KEJ if the display station has 
a 66-key keyboard (that is, has no 
program function keys) . 

KB78KEY if the display station has 

a 78-key keyboard (that is, has program 

function keys) . 

KB70KEY if the display station has 
a Katakana character generator and 
a 70-key data entry keyboard. 

KB81KEI if the display station has 
a Katakana character generator and 
an 81-key EBCDIC typewriter keyboard. 

• As many of the following options as 
reguired: 

SELPEN if the display station has 
a selector pen. 

NU BLOCK if the display station has 
the numeric lock feature. 

AUDALRH if the display station has 
a keyboard and an audible alarm. 

MAGCDBD if the display station has 
a magnetic card reader adapter. 
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SETADDR 



Specifies which of the four Set 
Address (SAD) commands is to be 
issued to the transmission con- 
trol unit (IBM 2702 only) for 
operations on the line specified 
by the ADDRESS operand. The SAD 
command selects the appropriate 
line speed for the type of ter- 
minal connected to the line. 
The association between the spe- 
cific command (Sadzer, Sadone, 
Sadtwo, or Sadthree) and the 
corresponding line speed is 
established by internal connec- 
tions within the 2702; this is 
done by the customer engineer 
when the 2702 is installed. You 
must code this operand if the 
TCU to which the line is con- 
nected is a 2702; if it is a 
2703, the SAD commands will be 
ignored. Do not code this 
operand if the TCU is a 2701, as 
a command reject will be sig- 
nalled when the line group is 
opened. 



Code: 


If the SAD command for 




the line is: 





Sadzer 


1 


Sadone 


2 


Sadtwo 


3 


Sadthree 



For IBM 2715 Transmission Control Unit only ; 



OBRCNT 

specifies the number of area stations 
connected to the 2715s on the line 
represented by the IODEVICE macro. 
(This value is used to compute the 
space required on SYS1.LOGREC for 
error data received from the 2715.) 
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APPENDIX E; CODE CH ARTS FOR BINARY SYNCHORONOPS COMMUNICATION 
AND THE LO CAL 3270 DISPLAY S YSflEM 



Six Bit Transcode 



Standard Representation of USASCII 



c 



Code Positions • 



"2345 







1 




10 




11 




10 




10 1 




110 




111 




10 




10 1 




10 10 




10 11 




110 




110 1 




1110 




1111 



-0 1 


1 


1 


1 





1 


1 


1 1 




SOH 
12-9-1 


& 
12 


11 






A 
12-1 


J 
11-1 


/ 
0-1 


1 
1 


B 
12-2 


K 
11-2 


s 

0-2 


2 
2 


C 
12-3 


L 
11-3 


T 
0-3 


3 
3 


D 
12-4 


M 
11-4 


U 
0-4 


4 
4 


E 
12-5 


N 
11-5 


V 
0-5 


5 
5 


F 
12-6 


O 
11-6 


W 
0-6 


6 
6 


G 
12-7 


P 
11-7 


X 

0-7 


7 
7 


H 
12-8 


Q 
11-8 


Y 

0-8 


8 
8 


1 
12-9 


R 
11-9 


Z 
0-9 


9 
9 


STX 
12-9-2 


SPACE 
No Punch 


ESC 
0-9-7 


SYN 
9-2 


12-8-3 


$ 
11-8-3 


0-8-3 


# 
8-3 


K 

12-8-4 


* 
11-8-4 


% 
0-8-4 


@ 
8-4 


BEL 
9-7 


US 

1 1-9-8-7 


ENQ 
0-9-8-5 


NAK 
9-8-5 


SUB 
9-8-7 


EOT 
0-9-8-7 


ETX 
12-9-3 


EM 
11-9-8-1 


ETB 
0-9-6 


DLE 
12-11-9-8-1 


HT 
12-9-5 


DEL 
12-9-7 



Rows 


Columns 





1 


2 


3 


4 


5 


6 


7 




b 7 b 6 b 5 


000 


001 


010 


on 


100 


101 


110 


111 




b 4 b 3 b 2 b, 
























NUL 


DLE 


SP 





@ 


P 


\ 


P 


1 


1 


SOH 


DC1 


1 


1 


A 


Q 


a 


q 


2 


10 


STX 


DC2 


11 


2 


B 


R 


b 


r 


3 


11 


ETX 


DC3 


# 


3 


C 


S 


c 


s 


4 


10 


EOT 


DC4 


$ 


4 


D 


T 


d 


t 


5 


10 1 


ENQ 


NAK 


% 


5 


E 


U 


_e 


u 


6 


110 


ACK 


SYN 


& 


6 


F 


V 


f 


V 


7 


111 


BEL 


ETB 


' 


7 


G 


W 


g 


w 


8 


10 


BS 


CAN 


( 


8 


H 


X 


h 


X 


9 


10 1 


HT 


EM 


) 


9 


1 


Y 


i 


y 


10 


10 10 


LF 


SUB 


* 




J 


Z 


i 


z 


11 


10 11 


VT 


ESC 


+ 


; 


K 


L" 


k 


[ 


12 


110 


FF 


FS 


/ 


< 


L 


\ 


I 


! 


13 


-110 1 


CR 


GS 


- 


=■ 


M 


: 


m 


3 


14 


1110 


SO 


RS 


. 


> 


N 


A 


n 


~ 


15 


1111 


SI 


US 


/ 


? 


O 




o 


DEL 



Data Link Control Functions 





Characters Used In: 




Function 


EBCDIC 


USASCII 


TRANSCODE 


ACK-0 


DLE, X'70' 


DLE, 


DLE, - (hyphen) 


ACK-1 


DLE, X'61' 


DLE, 1 


DLE, T 


WACK 


DLE, X'6B' 


DLE, ; 


DLE, Z 


RVI 


DLE, X'7C 


DLE, < 


DLE, 2 
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IBCD-IC 



Bit Positions 

and 1 — *■ 


00 


01 




Bit Positions 

2 and 3 — •■ 


00 


01 


10 


11 


00 


01 


10 


11 






0000 


135 

NUL 


DLE 


(•> 

DS 


<2> 


SP W 


P 


.© 


® 






0001 


SOH 


DC1 


SOS 








ft 




1 


C 

o 


0010 


STX 


DC2 


FS 


SYN 










2 


•o 

IT? 


0011 


ETX 


DC3 














3 




0100 


PF 


RES 


BYP 


PN 










4 


o 
a. 


0101 


HT 


NL 


LF 


RS 










5 


IS 


0110 


LC 


BS 


EOB 


UC 










6 




0111 


DEL 


IL 


PRE 


EOT 










7 




1000 




CAN 














8 






9 
12 


9 
11 


9 



9 


9 
12 




9 
12 
11 


9 

11 




9 
12 
11 

9 






m 


lone P 


unches 




— — • 





>- 



Bit Positions 
and 1 — — - 
Bit Positions 
2 and 3 «- 



10 


11 


00 


01 


10 


11 


00 


01 


10 


11 



0000 










® 


® 


© 


o w 


8-1 


0001 


a 


J 






A 


J 


© 


1 


1 


0010 


b 


k 


s 




B 


K 


S 


2 


2 


0011 


c 


1 


f 




C 


L 


T 


3 


3 


0100 


d 


m 


u 




D 


M 


U 


4 


4 


0101 


e 


n 


V 




E 


N 


V 


5 


5 


0110 


f 





w 




F 


O 


W 


6 


6 


0111 


9 


P 


X 




G 


P 


X 


7 


7 


1000 


h 


q 


Y 




H 


Q 


Y 


8 


8 


1001 


i 


r 


z 




I 


R 


Z 


9 


9 
























12 



12 
11 


11 




12 
11 



12 


11 











• 






Zone Punche 






• 





2 
><2 



Bit Positions 
Oond 1 • — »- 


00 


01 




Bit Positions 
2 and 3 — »- 


00 


01 


10 


11 


00 


01 


10 


11 




























1001 




EM 














8-1 


■o 


1010 


SMM 


CC 


SM 




<? 


! 


© 




8-2 


o 
•o 


1011 


VT 


CU1 


CU2 


CU3 




$ 




# 


8-3 


JO 


1100 


FF 


IFS 




DC4 


< 


* 


% 


@ 


8-4 


1101 


CR 


IGS 


ENQ 


NAK 


( 


) 




. 


8-5 


CO 


1110 


SO 


IRS 


ACK 




+ 


, 


> 


= 


8-6 




1111 


SI 


IUS 


BEL 


SUB 


1 


- 


? 


» 


8-7 


























9 
12 


9 
11 


9 



9 


12 


11 











" 




Zone Punches 

























12-0-9-8-1 ® 12-11-0-9-8- 

(2) 12-11-9-8-1 No Punches 

11- 0-9-8-1 12 



i USASCII 


EBCDIC Equivalents 


1 
1 


J RS 


IRS 


"1 
1 
| 


1 ETB 


EOB 


1 


, ESC 


PRE 


1 
1 


L_ fs __ 


IFS 


I 

1 



Bit Positions 
and 1 — »- 


10 


11 




Bit Positions 
2 and 3 — *■ 


00 


01 


10 


n 


00 


01 


10 


11 
























rx 


1010 


















8-2 


-o 

c 
o 


1011 


















8-3 


.0 


1100 


















8-4 


1101 


















8-5 


1 


1110 


















8-6 


CO 


1111 


















8-7 






12 




12 
11 


12 

n ! n 

1 


9 
12 




9 
12 
11 


9 

11 



9 
12 
11 












Zone Punche 






















1 





><£ 



li (T§) n-o @ o- i 

12-11-0 0-8-2 11-0-9-1 

12- @0 12-11 
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APPENDIX F; WORLD TRADE TELEGRAPH TERMINALS: TRANSLATION TABLE MODIFICATIONS 



Because the International Telegraph Alpha- 
bet No. 2 and the Figure Protected Code 
ZSC3 vary from country to country, the 
BTAM-supplied translation tables RCTW, 
RCT3, SCTW, and SCT3 may not fit a given 
installation. Therefore, four macro 
instructions, TRSLRCTW, TRSLRCT3, TRSLSCTW, 
and TRSLSCT3 are provided to modify these 
tables to produce new tables for use with 
the TRNSLATE macro instruction. These 
macros both modify the tables and cause 
them to be assembled into the user program, 
so it is not necessary to use the ASMTRTAB 
macro instruction. 



TRSLRCTW and TRSLRCT3 Macro Instructions 



r t t n 

| Name | Operation | Operand | 

j. + __. --—+- H 

j symbol j ) xkaijkCTWi j a x=code , . , . j 

| j ITRSLRCT3J j | 

L J. 1 J 



XRSLRCTW F6=6C 



where 6C is the hexadecimal representation 
of the % character in EBCDIC. 



TRSLSCTW and TRSLSCT3 Macro Instructions 



r t t 1 

| Name | Operation (Operand | 

V +- — + H 

I symbol j (TRSLSCTW) | Xyy=Fx, ... | 

I j ITRSLSCT3/ | | 

L J. X J 

symbol 

is the name to be given to the modi- 
fied table (i.e., the table name that 
will be specified in the TRNSLATE 
macro instruction. If symbol is 



J- J 3 



.1 ,-,-^rv,^ 



TT?r"rpopint.T 



or IECTSCT3, is the name of the modi- 
fied table. 



symbol 

is the name to be given to the modi- 
fied table (i.e., the name that will 
be specified in the TRNSLATE macro 
instruction) . If symbol is omitted, 
the original name, IECTRCTW or 
IECTRCT3, is the name of the modified 
table. 

TRSLRCTW 

specifies that table RCTW is to be 
modified and assembled. 

TRSLRCT3 

specifies that table RCT3 is to be 
modified and assembled. 

Fx=code 

specifies what modification is to be 
made. F stands for figures shift, x 
represents the number of the code com- 
bination to be translated. The per- 
missible values of x are: 
For TRSLRCTW: 1, 28 3, 6, 7, 8, 10 
through 14, 19, 22, 24, 26, and 32. 
For TRSLRCT3: 1, 5, 8, 9, 11, 12, 14, 
15, 17 through 20, 22, 24, 26, and 32. 



TRSLSCTW 

specifies that table SCTW is to be 
modified and assembled. 

TRSLSCT3 

specifies that table SCT3 is to be 
modified and assembled. 

Xyy=Fx. 

specifies what modification is to be 
made, yy is the hexadecimal represen- 
tation, in EBCDIC, of the character to 
be translated, x is the number of the 
code combination for the character to 
which yy is to be translated. (F 
stands for figures shift.) The per- 
missible values of yy are : 2A, 3F, 
UA through 50, 5A through 61, 6 A 
through 6F, and 7 A through 7F. 



Example : If the transmission code used by 
a WT terminal is the ITA No. 2, and if you 
wish to translate an EBCDIC % character 
(hexadecimal 6C in EBCDIC) to an ITA No. 2 
% character (combination 6 in figures 
shift), you would code: 



Example : If the transmission code used by 
a WT terminal is the International Tele- 
graph Alphabet No. 2, combination 6 in 
figures shift, representing the % charac- 
ter, does not exist in table RCTW. There- 
fore, you would modify table RCTW by coding 



TRSLSCTW X6C=F6 

Similarly, if you wish to translate an 
EBCDIC * character (hexadecimal 5C in 
EBCDIC) to a % character, you would code: 

TRSLSCTW X5C=F6 
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And if you wish both the % and * characters 
to be translated to % characters, you would 
code: 



TRSLSCTW X6C=F6,X5C=F6 



Note ; You can code the same macro several 
times, each with a different name, to cre- 
ate as many translation tables as needed. 
This permits several terminals using the 
same transmission code, but varying charac- 
ter arrangements to operate in the same 
installation. 



Code 


Elements 


Lettershift 


F 


igureshift 




Combination 
No. 


12 345 












Hex 
Code 


Character 


Hex 
Code 


Character 


ITA2 


ZSC3 


1 


11 000 


18 


A 


38 




+ 


2 


10 011 


13 


B 


33 





6 


3 


01 110 


0E 


C 


2E 




8 


4 


10 010 


12 


D 


32 


Who are you 


5 


10 000 


10 


E 


30 


3 


- 


6 


10 110 


16 


F 


36 


N/A 


4 


7 


01 011 


0B 


G 


28 


N/A 





8 


00 101 


05 


H 


2B 


N/A 


? 


9 


01 100 


OC 


1 


2C 


8 


Bell 


10 


11 010 


1A 


J 


3A 


Bell 


2 


11 


11 110 


IE 


K 


3E 


( 


( 


12 


01 001 


09 


L 


29 


) 


) 


13 


00 111 


07 


M 


27 




7 


14 


00 110 


06 


N 


26 


/ 


/ 


15 


00 011 


03 


O 


23 


9 




16 


01 101 


0D 


P 


2D 





9 


17 


11 101 


ID 


Q 


3D 


1 


N/A 


18 


01 010 


0A 


R 


2A 


4 


/ 


19 


10 100 


14 


S 


34 


i 


i. 


20 


00 001 


01 


T 


21 


5 


. 


21 


11 100 


1C 


U 


3C 


7 


1 


22 


01 111 


OF 


V 


2F 


— 


= 


23 


11 001 


19 


W 


39 


2 


3 


24 


10 111 


17 


X 


37 


/ 


N/A 


25 


10 101 


15 


Y 


35 


6 


5 


26 


10 001 


11 


Z 


31 


+ 


N/A 


27 


00 010 


02 




22 


CR 


CR 


28 


01 000 


08 




28 


LF 


LF. 


29 


11 111 


IF 




3F 


LTRS 


LTRS 


30 


n on 


IB 




3B 


FIGS 


FIGS 


31 


00 100 


04 




24 


Space 


Space 


32 


00 000 


00 




20 


N/A 


N/A 


Note: N/A= N 


lot assigned 












CR = Ca 


rriage return 












LF = Li 


ne feed 












LTRS = L 


etters shift 












FIG'S = F 


igures shift 












1 
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APPENDIX G: BTAM MACRO INSTRUCTION FORMAT CHARTS 



Each operand of each BTAM macro instruction can be coded in one or more ways, as indi- 
cated in the table to the right. Listed below are the meanings of each of the column 
headings in the table. The same information is given for each of the user- table- 
defining macro instructions for the IBM 2715; see the table following the BTAM Macro 
Instructions table. 

Abbreviations Used in Macro Instruction Tables 

Abbreviation Meaning 

You may code the operand as : 

Sym Any symbol valid in the assembler language. 

Dec Dig Decimal digits, within the range shown in the macro instruction 

description. (The sequence of digits is assembled as a single 
integer, not as individual digits.)* 

Register Register notation; i.e., a number of a general register, enclosed in 

parentheses. You must previously have loaded the specified register 
with the value or address indicated in the operand description. The 
value or address must be right-adjusted in the register, with all 
high-order bits set to zero. You may specify registers 2-12 symbol- 
ically (CTREG5) , or with an absolute expression (5). Registers 
and 1 can only be specified absolutely: (0), (1). 

Char Any character self-defining term, coded without the framing charac- 

ters, C V. 

Dec Char Concatenated decimal digits (each digit is individually assembled in 

binary format) . * 

Hex Char Concatenated hexadecimal digits, coded without the framing charac- 

ters, X* ' ' . 

Code One of the coded values as given in the individual macro instruction 

description. 

RX-type Any address that is valid in an RX-type instruction (e.g., LA). 

Rel Exp A relocatable expression (acceptable as an A-type or V-type address 

constant by the assembler). 

Abs Exp Any absolute expression as defined by the assembler: self-defining 

terms (decimal, hexadecimal, binary, character), length attributes, 
absolute symbols, paired relocatable terms in the same control sec- 
tion (CSECT) , and arithmetic combinations of absolute terms. 



♦The distinction between Dec Dig and Dec Char may be illustrated by two examples: 
19 coded where Dec Dig is specified is assembled as binary 1.0011; 
19 coded where Dec Char is specified is assembled as binary 0000 0001 0000 1001. 

267 coded where Dec Dig is specified is assembled as binary 1 0000 1011; 267 coded 
where Dec Char is specified is assembled as binary 0000 0010 0110 0000 0111. 
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Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 
type 


Rel 
Exp 


Abs 
Exp 


Char 


Dec 
Char 


Hex 
Char 


Code* 


(2-12) 


(1) 


(0) 


ASMTRTAB 


tablename 
























X 


CHGNTRY 


listaddr** 






X 








X 












dcbaddr*** 






X 








X 












listype 
























X 


listposition 






X 










X 










numchars** 






X 










X 










action 
























X 


CLOSE 


deb 














X 












MF= 
























X 


listrtame 






X 


X 




X 














DCB 


DSORG= 
























X 


MACRF= 
























X 


DDNAME= 


X 
























BUFNO= 
















X 










BUFL= 
















X 










BUFCB= 














X 












EXLST= 














X 












BFTEK= 
























X 


LERB= 














X 












EROPT= 
























X 


DEVD= 
























X 


MODE= 
























X 


CODE= 
























X 


DFTRMLST 


listype 
























X 


XX 






















X 




yy 






















X 




dial count 




X 






















dialchars 




















X 






numsent 




X 






















sentchar 






















X 




numensent 




X 























see macro description for allowable values 
does not apply to local 3270 display system 
applies only to local 3270 display system 
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Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 
type 


Rel 
Exp 


Abs 
Exp 


Char 


Dec 
Char 


Hex 
Char 


Code* 


(2-12) 


(1) 


(0) 


DFTRMLST 
(Continued) 


cntrlseq 






















X 




tidseq 






















X 




numrec 




X 






















ridseq 






















X 




AN 
























As Shown 


MD 
























As Shown 


AD 
























As Shown 


entrylength 




X 




















. 


userlength 




X 






















idcount 




X 






















idsent 






















X 




authsequence 






















X 




control value 




X 






















userdata 














X 












LERB 


nlines 
















X 










transmct 
















X 










da tack 
















X 










intreq 
















X 










notto 
















X 










LERPRT 


dcbaddr 


X 




X 


X 


















rln 






X 




X 






X 










cid 






X 








X 












CLEAR= 
























X 


LOPEN 


decbaddr 


X 




X 




















ONLTST 


DECB= 






X 


X 




X 














X= 






X 










X 










Y= 






X 










X 










DCB= 






X 






X 














AREA= 






X 






X 














TEXT= 






X 






X 














LENGTH= 






X 










X 










ENTRY= 






X 






X 














RLN= 






X 










X 










OPEN 


deb 














X 












MF= 
























X 


lisrname 






X 


X 




X 















Table G. BTAM Macro Instruction Format Charts (Part 2 of 6) 
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Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 
type 


Rel 
Exp 


Abs 
Exp 


Char 


Dec 
Char 


Hex 
Char 


Code* 


(2-12) 


(1) 


(0) 


READ 
(list form, 
MF=L) 


decbaddr 


X 
























optype 
























X 


dcbaddr 














X 












inoutarea 














X 












inarea 














X 












outarea 














X 












inoutlength 
















X 










inlength 
















X 










outlength 
















X 










entry 














X 












rln 
















X 










MF=L 
























As Shown 


READ 

(Execute form, 
MF=E) 


decbaddr 






X 


X 




X 














optype 
























X 


dcbaddr 






X 






X 














inoutarea 






X 






X 












'S' 


inarea 






X 






X 












'S' 


outarea 






X 






X 














inoutlength 






X 










X 








'S' 


inlength 






X 










X 








'S' 


outlength 






X 










X 










entry 






X 






•X 












'S' 


rln 






X 










X 










MF=E 
























As Shown 


READ 

(Standard 

form) 


decbaddr 


X 
























optype 
























X 


dcbaddr 






X 








X 












inoutarea 






X 








X 










'S' 


inarea 






X 








X 










'S' 


outarea 






X 








X 












inoutlength 






X 










X 








'S' 


inlength 






X 










X 








•S' 


outlength 






X 










X 










entry 






X 








X 












rln 






X 










X 










RELBUF 


dcbaddr 






X 


X 




X 














bufferaddr 






X 





















* see macro description for allowable values 

Table 6. BTAM Macro Instruction Format Charts (Part 3 of 6) 
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Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 
type 


Rel 

Exp 


Abs 
Exp 


Char 


Dec 

Char 


Hex 
Char 


Code* 


(2-12) 


(1) 


(0) 


REQBUF 


dcbaddr 






X 


X 




X 














returnreg 






X 




















count 






X 




X 






X 










RESETPL 


decbaddr 






X 


X 






X 












POLLING 
























As Shown 


ANSRING 
























As Shown 


ATTENT 
























As Shown 


TRNSLATE 


dcbaddr 






X 






X 














tablename 






X 






X 














area 






X 






X 














length 






X 




X 






X 








'S' 


TRSLRCTW 


Fnn= 
























X 


TRSLRCT3 


Fnn= 
























X 


TRSLSCTW 


Xyy= 
























X 


TRSLSCT3 


Xyy= 
























X 


TWAIT 


returnreg 






X 




















ECBLIST= 






X 






X 














WAIT 


count 






X 




X 


X 




X 










ECB= 






X 


X 




X 














ECBLIST= 






X 


X 


















WRITE 
(List form, 
MF=L) 


decbaddr 


X 
























op type 
























X 


dcbaddr 














X 












inoutarea 














X 












inarea 














X 












outarea 














X 












inoutlength 
















X 










inlength 
















X 










outlength 
















X 










entry 














X 












rln 
















X 










MF=L 
























As Shown 



* see macro description for allowable values 

Table G. BTAM Macro Instruction Format Charts (Part 4 of 6) 
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Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 
type 


Rel 
Exp 


Abs 
Exp 


Char 


Dec 
Char 


Hex 
Char 


Code* 


(2-12) 


0) 


(0) 


WRITE 
(Execute 
form, MF=E) 


decbaddr 






X 


X 




X 














optype 
























X 


dcbaddr 






X 






X 














inoutarea 






X 






X 














inarea 






X 






X 












'S' 


outarea 






X 






X 














inoutlength 






X 










X 








'S' 


inlength 






X 










X 








'S' 


outlength 






X 










X 










entry 






X 






X 














rln 






X 










X 










MF=E 
























As Shown 


WRITE 

(Standard 

form) 


decbaddr 


X 
























optype 
























X 


dcbaddr 


X 












X 












inoutarea 


X 












X 












inarea 


X 












X 










'S' 


outarea 


X 












X 












inoutlength 


X 














X 








'S' 


inlength 


X 














X 








'S' 


outlength 


X 














X 










entry 


X 












X 












rln 


X 














X 











* see macro description for allowable values 

Table G. BTAM Macro Instruction Format Charts (Part 5 of 6) 
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2715 User-Table Macro Instructions 



Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 

type 


Rel 
Exp 


Abs 
Exp 


Char 


Dec 
Char 


Hex 
Char 


Code * 


(2-12) 


(1) 


(0) 


As 


ID= 
















X 










ASGROUP= 


X 
























DEGROUP= 

tgroupname 
deunumber 


X 














X 










ASCTR 


ID= 
















X 










HIGHCTR= 
















X 










ROUTE= 
























X 


LOG 
























As 
shown 


AS LOG 
























As 
shown 


EXTALRM 
























As 
shown 


NEXTAS 
















X 










ASLIST 


device 
























X 


NORM= 
















X 










LENGTH= 
data length 
gdlight2 
















X 
X 










DIGIT= 
entrypos 
compvalue 
gdlight3 
















X 
X 
X 








i 


ENTRY= 
























X 


MSG= 


















X 








INQDISP= 
















X 










MODULUS= 
entrypos 
data length 
gdlight4 
















X 
X 
X 










SELTRAN= 
























X 



* see macro description for allowable values 

Table G: BTAM Macro Instruction Format Charts (6A of 



6) 
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2715 User-Table Macro Instructions 



Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 

type 


Rel 
Exp 


Abs 
Exp 


Char 


Dex 
Char 


Hex 
Char 


Code * 


(2-12) 


(1) 


<0) 


CONFIGUR 


CORE= 
























X 


PC= 
























X 


GDU = 
























X 


FUNCERR= 
















X 










ENDERR= 
















X 










MONERR= 
















X 










GETID= 
















X 










STORID= 
















X 










IDCOUNT= 
















X 










INQDISP= 
























X 


CTRGROUP 


ctrno 
















X 










sro 
















X 










cttest 
















X 










ID= 
















X 










SROENAB= 
























X 


CTINIT= 
























X 


CTRLIST 


DEVCOD= 
























X 


CTRADR= 
























X 


CTRRD= 
























X 


CTTEST= 
























X 


CTROP= 
























X 


MSG = 


















X 








CTRSCHED 


scried 
















X 











* see macro description for allowable values 

Table G: BTAM Macro Instruction Format Charts (6B of 6) 
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2715 User-Table Macro Instructions 



Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 

type 


Rel 
Exp 


Abs 
Exp 


Char 


Dec 
Char 


Hex 
Char 


Code* 


(2-12) 


(1) 


(0) 


DEULIST 


LENGTH= 




X 






















DIGIT 

entrypos 

compvalue 
















X 
X 










MSG= 


















X 








MODULUS= 
entrypos 
data length 
















X 
X 










DIGIT2= 
entrypos 
compvalue 
















X 
X 










DISPGUID 


DISPMSG= 


















X 








SUPPRES= 
























X 


GDUAS 


ID= 
















X 










GDUNUMB= 
















X 










GDULIST 


PARAMNO= 
















X 










NORGUID= 
















X 










DISPMSG= 


X 
























IDENT= 
















X 










MSG* 


















X 








ENTRY= 
























X 


GDUTRANS 


TRCODE= 
















X 










TRLIST= 


X 
























PARAMNUM 


PLN= 
















X 










PARMLST= 


X 

























* see macro description for allowable values 

Table G: BTAM Macro Instruction Format Charts (6C of 6) 
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2715 User-Table Macro Instructions 



Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 
type 


Rel 
Exp 


Abs 
Exp 


Char 


Dex 
Char 


Hex 
Char 


Code * 


(2-12) 


(1) 


(0) 


PARMLIST 


CKLNGTH= 
data length 
gdlight: 
















X 
X 










CKMONKY= 
























X 


CKMOD11 = 
data length 
entrypos 
gdlight 
















X 
X 
X 










CKRANGE= 
first pos 
lastpos 
compvalue 
















X 
X 
X 










LOWGUID= 
















X 










HIGUID= 
















X 










RNGETST= 
























X 


CKMOD10= 
data length 
entrypos 
gdlight 
















X 
X 
X 










CKOR= 
data pos 
checkchar 
















X 






X 




ORGUID= 
















X 










CKAND= 
startpos 
endpos 
checkchar 
















X 
X 






X 




ANDGUID= 
















X 










CKNONUM= 
startpos 
endpos 
gdlight 
















X 
X 
X 










CKNUM= 
startpos 
endpos 
gdlight 
















X 
X 
X 










TRANSL= 
























X 


IDENT= 
























X 



* see macro description for allowable values 

Table G: BTAM Macro Instruction Format Charts (6D of 6) 
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2715 User-Table Macro Instructions 



Macro 
Instruction 


Operand 


Sym 


Dec 
Dig 


Register 


RX- 

type 


Rel 
Exp 


Abs 
Exp 


Char 


Dec 
Char 


Hex 
Char 


Code * 


(2-12) 


(1) 


(0) 


STEND 


no operands 


























TGROUP 


TCn= 
tcode 
E 


X 






















As 
shown 


TRANSLAT 


TRANSCH= 






















X 




TRANTXT= 


















X 








TRLIST 


TRID= 
















X 










ROUTE= 
























X 


LOG 
























As 
shown 


NULL 
























As 
shown 


asaddr 
















X 










TEXT= 
























X 


INQDISP= 
























X 


DEMOD10= 
























X 


DEMOD11 = 
























X 


GDU= 
























X 



see macro description for allowable values 



Table G: BTAM Macro Instruction Format Charts (6E of 6) 
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APPENDIX H; BTAM CHARACTER SET AND CODE CORRESPONDENCE CHART 



This chart shows the character set and bit 
patterns for the Extended Binary Coded 
Decimal Interchange Code (EBCDIC), and the 
character sets and transmission code bit 
patterns for each of the remote station 
types supported by BTAM. 



The chart may be used to determine the 
bit patterns, as contained in main storage 
bytes, for each of the various characters 
sent or received by a specific type of sta- 
tion, and to determine the relationships, 
as established by the arrangement of the 
IBM-provided translation tables , among the 
character sets for the various types. 



For convenience in referring to particu- 
lar chart locations, the chart's columns 
and rows are given reference numbers. Com- 
bined, these numbers enable reference to a 
particular chart location; e.g., location 
21/17 , the intersection of row 21 and 
column 17, contains NL. 



Arrangement of Chart 



The chart contains a group of three columns 
for the EBCDIC character set and a group 
for each of the various terminal character 
sets. Within the EBCDIC group, column 3 
contains the 256 bit patterns comprising 
the code. For those bit patterns to which 
characters are currently assigned, the 
characters appear in column 1 (graphics) 
and column 2 (line controls and device con- 
trols). All currently assigned characters 
are shown, regardless of whether they are 
in the character sets of any of the types 
of remote stations represented in the 
remainder of the chart. 

Each of the remaining groups (columns 4 
through 33) contains the characters com- 
prising the character set of a specific 
station type, along with the transmission 
code bit patterns. Column 34 repeats the 
EBCDIC code presented in column 3, for ease 
of reference. 

In the EBCDIC group, the bit patterns 
and characters are arranged in collating 
sequence from hexadecimal 00 to hexadecimal 
FF. In the remainder of the chart, the 
locations of bit patterns and characters 
are determined by the arrangement of the 
translation tables. 



Character Sets 



This chart shows only the characters com- 
prising the commonly used character set 
options. The options represented in the 
chart are: 



Terminal 
IBM 1030 
IBM 1050 
IBM 1060 
IBM 2260 
IBM 2740 
AT6T 83B3 
WU 115A 
WU TWX 



Option 
Standard and "H" options 
System/360 option 
Standard option 
Standard option 
System/ 360 option 

"A" and "C options 

Standard option 



IBM 1030 graphics and ATST 83B3/WU 115A 
graphics that differ for the respective 
options are indicated in the chart by S and 
H, and A and C, respectively. Graphics not 
so marked are the same in both options. 



Transmission Codes 



The notations in the code columns of the 
chart for the various types of stations 
represent the System/360 byte bit pattern 
equivalents of the applicable transmission 
codes. The applicable transmission codes 
are: 

Terminal Code 

IBM 1030 Perforated tape and trans- 
mission code. 

IBM 1050 Perforated tape and trans- 
mission code 

IBM 1060 Perforated tape and trans- 
mission code 

IBM 2260 IBM 2260 transmission code 

IBM 2740 Perforated tape and trans- 
mission code (BCD code) 

ATST 83B3 5-level Baudot code 
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WU 115A 
WU TWX 



5- level Baudot code 
8-level TWX code 



Representation of Characters and Bit 
Patterns 



Appearance of a character and its asso- 
ciated bit pattern in a character set sig- 
nifies that the appropriate IBM-provided 
translation tables effect either incoming 
translation (i.e., translation of that 
character to the corresponding EBCDIC char- 
acter), or outgoing translation (i.e., 
translation of the corresponding EBCDIC 
character to that character) , or both. How 
the bit pattern appears indicates which of 
these cases applies: 

1. Where the hexadecimal representation 
of the bit pattern appears in brack- 
ets, only incoming translation is 
performed. 

2. Where the bit pattern is enclosed in 
parentheses, only outgoing translation 
is performed. 

3. Where the bit pattern is not enclosed 
by brackets or parentheses, both 
incoming and outgoing translation are 
performed. 

Because each unique bit pattern for a ter- 
minal character can be represented only 
once in an "incoming" translation table, 
the character associated with the bit pat- 
tern can be translated to only one EBCDIC 
character. The converse is not true, 
however; any one transmission code bit pat- 
tern can be placed any number of times 
within an "outgoing" table. Therefore, any 
number of EBCDIC characters can be trans- 
lated to the terminal character represented 
by that bit pattern. 

Appearance of two bit patterns opposite 
a single character signifies that the char- 
acter has both an upper-case (or figures 
shift) and a lower-case (or letters shift) 
bit pattern, and that both forms of the 
character are translated to the same EBCDIC 
character. (Exception: In the code column 
for TWX terminals, where two bit patterns 
appear, the left-hand one is the even- 
parity pattern, and the right-hand one is 
the non-parity pattern.) 



Example : The bit pattern of the NL charac- 
ter appears in location 21/9. Both the 
lower- and upper- case bit patterns of this 
character are translated to the EBCDIC NL 
character when they appear in an incoming 



message. When an EBCDIC NL character 
appears in an outgoing message, BTAM trans- 
lates it to the lower-case form of the NL 
character. 

Where more than one EBCDIC character 
requires translation to the same character 
in a terminal character set, the terminal 
character appears an equivalent number of 
times in the column (e.g., locations 0/23, 
6/23, 7/23, 23/23, and 50/23 all contain 
the LTRS character) . 

Where a character appears in both the 
graphics and the controls columns for a 
terminal type, its function depends on 
whether it is sent when the line is in con- 
trol mode or in text mode. Depending on 
the type of terminal and the mode, the 
character may perform a control function, 
print as a graphic, or both. For details, 
see the reference manuals for the various 
terminal types. 



Nonequivalent Characters 



Designing the system to accomodate terminal 
types having different character sets and 
control functions has resulted in several 
instances where dissimilar characters have 
been "equated" in translation tables. This 
accounts for the appearance in certain rows 
of this chart of non-equivalent characters, 
for example, in rows 3, 38, and 50. 

In other instances, the same or similar 
functions have different names among the 
various terminal types; for example, HT and 
Tab in row 5 are equivalent, as are DEL ani 
Rubout in row 7. In a few cases, terminals 
using the same transmission code have dif- 
ferent meanings assigned to the identical 
bit pattern; for example, bit pattern 79 in 
the transmission code has the meaning PF 
for an IBM 1050, and Subtract for an IBM 
1060. 



Substitutions 



Where blank positions appear in the termi- 
nal character set portion of the chart, 
there is no equivalent character for the 
EBCDIC character or bit pattern at the left 
of the chart. Where these blanks appear, 
the SUB character is to be assumed (they 
were omitted to make the chart more read- 
able) . That is, in each translation table 
that handles incoming messages, each posi- 
tion representing an invalid transmission 
code bit pattern (i.e., one not used by a 
character in the terminal's character set) 
contains the EBCDIC code (3F) for the SUB 
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character. In each translation table that 
handles outgoing messages, the transmission 
code bit pattern for a substitute graphic 
is contained in each of the following 
positions: 

• Each position that represents an inval- 
id EBCDIC bit pattern (a pattern to 
which no EBCDIC character has been 
assigned) . 

• Each position that represents a bit 
pattern for a character having no 
equivalent in the destination ter- 
minal's character set. 

For the IBM 1050, 2260, and 2740, and the 
AT&T 83B3 and WU 115A, this substitute 
character is a colon (:). For the IBM 1030 
and 1060, and the WU TWX, it is a slash 
(/). 



General dotes 



G canuaj. u SuijiSVlS >-lGI 



nco/^ +-/-> 



represent the control characters. The 
full names of the characters are given 
in a following section entitled Con- 
trol Characters . For descriptions of 
these characters, see the reference 
manuals for the various terminals. 

Where a "circle" character ( (b) , (d) , 
etc.) appears in parentheses adjacent 
to a control character, it is an 
alternate name for that control 
character. 

Notes pertaining to specific charac- 
ters or bit patterns are indicated by 
superscript numerals next to the char- 
acter or bit pattern. The notes 
appear below, and indicate the chart 
locations to which they apply. 

Most of the characters in the "S" and 
"H" character set options (1030) and 
in the "A" and "C" character set 
options (83B3, 115A) are identical. 
Where they differ between the options, 
the translation tables "favor" the "S" 
option and the "A" option, as illus- 
trated in the chart. If messages from 
an "H" option 1030 are sent only to 
another "H" option 1030, the transla- 
tion table may be used as is, and 
similarly, for the 83B3/115A, with 
respect to the "C" option. If mes- 
sages from terminals with the "H" or 
"C" option are to be exchanged with 
other terminal types, you may wish to 
modify the tables. 



5. Some TWX terminals send even-parity 

transmission code bit patterns; others 
send non-parity bit patterns. All bit 
patterns sent by non-parity machines 
have a "1" in the low-order bit posi- 
tion (i.e., the position that serves 
as the parity bit in even-parity 
machines). The RCT2 translation table 
translates either a non-parity or an 
even-parity bit pattern to the EBCDIC 
bit pattern for the corresponding 
character. The SCT2 translation table 
always sends even parity. 

N otes : 

*Left bracket translates to EBCDIC hex 79; 
no EBCDIC character has been assigned to 
this bit pattern (location 121/3, 121/25). 

2 No graphic prints in the "A" character set 
option (location 90/22). 

3 Backslash translates to EBCDIC hex El; no 
EBCDIC character has been assigned to this 
bit pattern (locations 225/3, 225/25). 

"IBM 1031 sends the numeric as a hex 20; 
1033 receives the numeric as a hex 15 
(location 240/4)= 

5 Right bracket translates to EBCDIC hex 49; 
no EBCDIC character has been assigned to 
this bit pattern (locations 73/3, 73/25). 



Control Characters 



ACK 

® 

BEL 

BS 

BYP 

© 

CAN 
CC 
CR 
(D) 



DC1 
DC 2 
DC4 

DEL 



Positive Acknowledgment 

End-of-block (same as EOB) 

Bell 

Backspace 

Bypass 

End-of -transmission (same as EOT) 

Cancel 

Cursor control 

Carriage (carrier) return 

Machine end-of-address (same as 
EOA) 

Device controls 

Delete 
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DLE 


Data link escape 


NUL 


DS 


Digit select 


PF 


EM 


End of medium 


PN 


ENQ 


Enquiry 


PRE 


EOA 


End-of-address 


PZ 


EOB 


End-of- block 


RES 


EOC 


End of card 


RM 


EOFC 


End of first card 


RS 


EOM 


End-of -message 


© 


EOT 


End-of -transmission 


SI 


ETB 


End-transmission-block 


SM 


ETX 


End-of-text 


SO 


FF 


Forms feed 


SOH 


FIGS 


Figures shift 


SMM 


FS 


Field separator 


SOS 


HT 


Horizontal tabulate 


SP 


IFS 


Interchange file separator 


STX 


IGS 


Interchange group separator 


SUB 


IL 


Idle 


SYN 


IRS 


Interchange record separator 


Tab 


IUS 


Interchange unit separator 


TM 


LC 


Lower-case shift 


TpAuxOf f 


LF 


Line feed 


TpAuxOn 


LF-CR 


Line feed-carriage return 


UC 


LTRS 


Letters shift 


VT 


MZ 


Minus zero 


WRU 





Negative response to polling, ad 
dressing, or LRC/VRC 


X-Off 
X-On 


NAK 
NL 


Negative acknowledgment 
New line 


© 



Null 

Punch off 

Punch on 

Prefix 

Plus zero 

Restore 

Record mark 

Reader stop 

Start-of-address 

Shift in 

Set mode 

Shift out 

Start-of- header 

Start-manual-message 

Start-of -significance 

Space 

Start-of- text 

Substitute 

Synchronous idle 

Tabulate (horizontal) 

Tape mark 

Tape auxiliary off 

Tape auxiliary on 

Upper-case shift 

Vertical Tabulate 

•Who Are You?* 

Transmitter off 

Transmitter on 

Positive response to polling, ad- 
dressing, or LRC/VRC 
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- 














1 B M 2260 








AT&T 83 B 3 






' 


















IBM 1030 




IBM 1050 




IBM 1060 










IBM 2740 








WU TWX 




WTTA (1TA2) 


wtta (zsc;^ 


EBCDIC 




Ref. 












2260 


1053 






W U -1 15A 












Ref. 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code (Hex) 
Even Non 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Code 
(Hex) 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 



1 




NUL 
SOH 


00 
01 


t = 

S H 


Pad 
© 


(DF) 
(37) 




IL 


(5E) 




IL 


(5E) 




SOH 


01 




SOH 


(01) 




IL 
© 


(5E) 
(37) 




LTRS 


(IF) 




Rubout 


(FF) (FF) 




LTRS 


OF) 




LTRS 


(IF) 


00 
01 



1 


2 




STX 


02 


EOA(®) 


(16) 


# 


EOA(®) 


(16) 


# 


EOA(®) 


(16) 




STX 


02 




STX 


(02) 


» 


EOA(®) 


(16) 


























02 


2 


3 




ETX 


03 




EOB(®) 


(3D) 




EOB (®) 


(3D) 




EOB((B)) 


(3D) 




ETX 


03 




ETX 


(03) 




EOB(®) 


(3D) 




CR 


(02) 




CR 


(Bl) (Bl) 




CR 


(02) 




CR 


(02) 


03 


3 


4 




PF 


04 










PF 


79 [f 9] 




Subtr 


(79) 




























TpAuxOff 


28 29 














04 


4 


5 




HT 


05 




HT 


(7A) 




Tab 


7A[FA] 




Tab 


(7A) 
















HT 


7A [FA] 










HT 


90 91 














05 


5 


6 




LC 


06 




Pad 


(DF) 




Dwnshft 


7C [FC] 




IL 


(5E) 
















Dwnshft 


7C [FC] 




LTRS 


IF [3F] 










LTRS 


(IF) 




LTRS 


(IF) 


06 


6 


7 




DEL 


07 




EOC DEL 


7F 




DEL 


7F [FF] 




DEL 


7F 
















DEL 


7F [FF] 




LTRS 


(IF) 




Rubout 


FF FF ■ 




LTRS 


(IF) 




LTRS 


(IF) 


07 


7 


8 






08 






























































08 


8 


9 






09 






























































09 


9 


10 




SMM 


0A 




















> 


Start Ml 


[BD] 


<t 




(BD) 
































0A 


10 


11 




VT 


0B 














































VT 


Dl Dl 














0B 


11 


12 




FF 


OC 














































FF 


30 31 














' 0C 


12 


13 




CR 


0D 




LF-CR 


(5B) 




NL 


(5B) 




CR 


(5B) 




NL 


(0A) 




NL 


(0A) 




NL 


(5B) 




CR 


(02) 




CR 


(Bl) (Bl) 




CR 


(02) 




CR 


(02) 


0D 


13 


14 




SO 


0£ 










BYP 


(38) 


































SO 


71 71 














0E 


14 


15 




SI 


OF 










RES 


(58) 


































SI 


F0 Fl 














OF 


15 


16 




DLE 


10 






























































10 


16 


17 




DC1 


11 














































X-On 


88 89 














11 


17 


18 




DC2 


12 






























































12 


18 


19 




TM 


13 






























































13 


19 


20 




RES 


14 










RES 


58 ft>8] 


* 




(58) 






























1 














14 


20 


21 




ML* 


15 




LF-CR 


(5B) 




NL 


5B [;DB] 




CR 


(5B) 


A 


NL 


0A 




NL 


(0A) 




NL 


5B [DB] 




LF 


(08) [28] 




LF 


50 [51] 




CR 


02 [22] 




CR LF 


02 [22] 


15 


21 


22 




BS 


16 










BS 


5D [DD] 






















BS 


5D [DD] 


























16 


22 


iO 




'.'- 


17 - 




P„rl 


IV)F\ 




IL 


5E TDEl 




IL 


(5E) 
















IL 


5E [DE] 




LTRS 


(IF) 




Rubout 


(FF) 




LTRS 


(IF) 




LTRS 


(IF) 


17 


23 


24 




CAN 


18 


















CAN 


L18J 
























1 












' 18 


24 


25 




EM 


19 






























































iy 


zo 


26 




CC 


1A 




















a 


Check 


42 






(42) 
































1A 


26 


27 




CU1 


IB 






























































IB 


27 


28 




IFS 


1C 
















































1 














1C 


28 


29 




IGS 


ID 






























































ID 


29 


30 




IRS 


IE 






























































IE 


30 


31 




IUS 


IF 






























































IF 


31 


32 




DS 


20 






























































20 


32 


33 




SOS 


21 






























































21 


33 


34 




FS 


22 






























































22 


34 


35 






23 






























































23 


35 


36 




BYP 


24 










BYP 


38 [B8] 




































1 














24 


36 


37 




LF 


25 




LF 


(3B) 




LF 


3B [BB] 




LF 


(3B) 
















LF 


3B [BB] 




LF 


(08) 




Lf 


(50) (51) 




LF 


08 [28] 




LF 


08 [28] 


25 


37 


38 




ETB (EOB) 


26 




EOB(®) 


3D 




EOB 


3D [BD] 




EOB(®) 


3D 




ETX 


(03) 




ETX 


(03) 




EOB 


3D [BD] 




CR 


0)2] [22] 




CR 


.Bl 




LF 


(08) 




LF 


(08) 


26 


38 


39 




ESC (PRE) 


27 










PRE 


3E [BE] 


















































27 


39 


40 






28' 










































' 




















28 


40 


41 






29 






























































29 


41 


42 




SM 


2A 




















































Bell 


3A 




Bell 


2C 


2A 


42 


43 




CU2 


2B 






























































2B 


43 


44 






2C 
















































' 














2C 


44 


45 




ENQ 


2D 














































WRU 


A0 Al 














2D 


45 


46 




ACK 


2E 






















ACK 


06 




ACK 


06 
































2E 


46 


47 




BEL 


2F 






































C, 


ABell 


3A 




Bell 


El El 














2F 


47 


48 






30 






























































30 


48 


49 






31 






























































31 


49 


50 




SYN 


32 




Pad 


(DF) 




IL 


(5E) 




IL 


(5E) 
















IL 


(5E) 




LTRS 


OF). 




Rubout 


(FF) (FF) 




LTRS 


(IF) 




LTRS 


(IF) 


32 


50 


51 






33 






























































33 


51 


52 




PN 


34 










PN 


19 [99] 






























, 




TpAuxOn 


48 49 














34 


52 


53 




RS 


35 










RS 


1A [9A] 


















































35 


53 


54 




UC 


36 










Upshift 


1C [9q 

IF 






















Upshft 


1C [9C] 




FIGS 


IB [3B] 










FIGS 


IB [3B] 




FIGS 


IB T3B] 


36 


54 


55 




EOT 


37 




EOT(©) 


IF 




EOT(©) 




EOT(©) 


(IF) 




EOT ( © ) 


04 




EOT(©) 


04 




EOT(©) 


1F 


# 




(25) 




EOT 


21 21 




LTRS 


1 F 




LTRS 


(IF) 


37 


55 


56 






38 






























































' 38 


56 


57 






39 






























































39 


57 


58 






3A 






























































3A 


58 


59 




CU3 


3B 












'> 


















































3B 


59 


60 




DC4 


3C 














































X-Off 


C9 C9 














3C 


60 


61 




NAK 


3D 






















NAK 


15 




NAK 


[15: 
































3D 


61 


62 






3E 






























































3E 


62 


63 




SUB 


3F 


/ 




(23) 






(88) 


/ 




(23) 






(5A) 






(5A) 






(88) 


/ 




(37) 






(5C) (5D) 


/ 




(37) 


/ 




(2A) 


3F 


63 


64 




SP 


40 




SP 


01 




SP 


oi uu 




SP 


01 




SP 


40 




SP 


(40) 




SP 


01 [81J 




SP 


04 [24] 




SP 


05 05 




SP 


04 [24] 




SP 


04 [24] 


' 40 


64 


65 






41 






























































41 


65 


66 






42 






























































42 


66 


67 






43 






























































43 


67 


68 






44 
















































-r 














44 


68 


69 






45 






























































45 


69 


70 






46 






























































46 


70 


71 






47 






























































47 


71 
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Ref. 
























IBM 2260 




IBM 9740 






AT&T 83B3 






Wll TWX 






WTfA (ITA2) 




WTTA (ZSC3) 


EBCDIC 


Ref. 










2260 


1053 




W U 115A 








Character 


Code 
(Hox) 


Character 


Cods 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code (Hex) 
Even Non 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Code 
(Hex) 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


72 
73 
74 
75 


% 




48 
49 5 

4A 

4B 




© EOFC 


76 


<t 


© 


A0 
76 




® 


(76) 






4E 






(4E) 


i 


© 


A0 
76 






27 


] 5 




BB BB 
74 75 






27 






21 


48 
49 

4A 
4B 


72 
73 
74 
75 


76 
77 
78 
79 


< 

( 

+ 
1 




4C 
4D 

4E 
4F 








< 

( 

+ 
1 




84 
93 
El 
B7 








< 

( 

+ 
1 




5C 
48 
4B 
FE 


< 

( 

+ 

1 




(5C> 
(48) 
(4B) 
(FE) 


< 

( 

+ 

I 




84 
93 
El 
B7 


a(c'/2 




3E 


< 

( 

+ 

t 




3C 3D 
14 15 
D4 D5 
7B 7B 


( 

+ 




3E 
31 


( 

+ 




3E 
38 


•4C 

4D 
4E 
4F 


76 
77 
78 
79 


80 
81 
82 
83 


& 




50 
51 
52 
53 


& H + 




61 


& 




61 


+ 




(61) 


& 




46 


& 




(46) 


& 




,61 


& 




2B 


8. 




65 65 














50 
51 
52 
53 


80 
81 
82 
83 


84 
85 
86 
87 






54 
55 
56 
57 










































' 




















' 54 
55 
56 
57 


84 
85 
86 
87 


88 
89 
90 
91 


! 

$ 




58 
59 
5A 
5B 


$ 




57 


i 

$ 




D7 
57 


$ 




(57) 


$ 




44 


$ 




(44) 


! 

$ 




D7 
57 


A 2 C l/4 

S 




36 
32 


I 

$ 




84 85 
24 25 














58 
59 
5A 
5B 


88 
89 
90 
91 


92 
93 
94 
95 


) 




5C 

5E 
5F 








\ 


© 


90 

95 
87 
F6 








) 




'4A 
49 

FC 


) 




(4A) 
(49) 
(5B) 
(FC) 


) 





90 
95 
87 
t-o 


a) c 3 /4 
a' c 3 / 8 




29 

2F 


) 




55 55 
95 95 
DD DD 


) 




29 

38 
37 


) 




29 
2F 


5C 
5D 

5E 
5F 


92 
93 
94 
95 


96 
97 
98 
99 


/ 




60 

61 

62 
63 


/ 


® 


40 
23 


/ 


® 


40 
23 


/ 


® 


(40) 
23 


/ 




4D 
4F 


/ 




(4D) 
(4F) 


/ 


® 


40 
23 


/ 




38 
37 


/ 




B4 B5 
F5 F5 


/ 




/ 




30 
2A 


60 
61 
62 
63 


96 
97 
98 
99 


100 
101 
102 
103 






64 
65 
66 
67 






























































64 
65 
66 
67 


100 
101 
102 
103 


104 
105 
106 
107 




EOM 


68 
69 
6A 

6B 




© 


37 






37 






(37) 


CZ3 


EOM 


41 

4C 


! 




(41) 
<4C) 




© 


37 


a, c7/8 




26 






35 35 






26 






26 


68 
69 
6A 
6B 


104 
105 
106 
107 


108 
109 
110 
111 


% 
> 




6C 
6D 
6E 
6F 








% 

>~ 

? 


® 


S3 
CO 
8E 
A3 








% 
>" 






45 
BF 
5E 
5F 


% 

>" 

? 




(45) 
(BF) 
(5E) 
(5F) 


% 

>" 

? 


<Q> 


8B 
CO 

8E 
A3 


a? c-5/8 




33 


% 
? 




A5 A5 
FA FB 
7D 7D 
FC FD 


? 




33 


? 




25 


6C 
6D 
6E 
6F 


108 
109 
110 
111 


112 
113 
114 
115 






70 
71 
72 ' 
73 






























































70 
71 
72 
73 


112 
113 
114 
115 


116 
117 
118 
119 






74 
75 
76 
77 






























































74 
75 
76 
77 


116 
117 
118 
119 


120 

121 

. 122 

123 


i 


EOA 


78 
79 3 

7A 
7B 


S* H = 


EOA(®) 


16 


# 


EOA(®) 


88 
16 


# 


EOA(@) 


16 


# 




5A 

43 


i 




(5A) 
(43) 


i 


EOA (©) 


88 
16 


a= c'/8 


CR 


2E 
(02) 


i 




DB DB 
5C 5D 
C5 C5 






2E 


■ 




23 


78 
79 
7A 
7B 


120 
121 
122 
123 


124 
125 
126 
127 


@ 




7C 
7D 
7E 
7F 


S@ H ' 




(20) 


@ 


EOA (©) 


20 
8D 
82 
96 




Add 


(20) 


@ 




E0 
47 
5D 


@ 




(E0) 
(47) 
(5D) 


@ 


EOA (©) 


20 
8D 
82 
96 


a' 


C Bell 


34 
31 


@ 




03 03 

E4 E5 
BD BD 
44 45 


' 




34 
2F 


' 




34 
2F 


7C 
7J 
7E 
7F 


124 
125 
126 
127 


128 
129 
130 
131 


a 
b 

c 




80 
81 
82 
83 


A 
B 
C 




(62) 
(64) 
(67) 


a 

b 
c 




62 
64 
67 


A 
B 
C 




(62) 
(64) 
(67) 


A 
B 
C 




(Al) 
(A2) 
(A3) 


A 
B 
C 




(Al) 
(A2) 
(A3) 


a 
b 

c 




62 
64 
67 


A 
B 
C 




08) 
03) 
(0E) 


A 
B 
C 




(82) (83). 
(42) (43) 
(C3) (C3) 


A 
B 
C 




(18) 
(13) 
(0E) 


A 
B 
C 




(18) 
03) 
(0E) 


80 
81 
82 
83 


128 
129 
130 
131 


132 
133 
134 
135 


d 
e 

f 
9 




84 
85 
86 
87 


D 
E 
F 
G 




(68) 
(6B) 
(6D) 
(6E) 


d 
e 
f 

g 




68 
6B 
6D 
6E 


D 
E 
F 
G 




(68) 
(6B) 
(6D) 
(6E) 


D 
E 
F 
G 




(A4) 
(A5) 
(A6) 
(A7) 


D 
E 
F 
G 




(A4) 
(A5) 
(A6) 
(A7) 


d 
e 
f 

g 




68 
6B 
6D 
6E 


D 
E 
F 
G 




(12) 
(10) 
(16) 
(06) 


D 
E 
F 
G 




(22) (23) 
(A3) (A3) 
(63) (63) 
(E2) (E3) 


D 
E 
F 
G 




(12) 
(10) 
06) 
(06) 


D 
E 
F 
G 




(12) 
(JO) 
(16) 
(08) 


84 
85 
86 
87 


132 
133 
134 
135 


136 
137 
138 
139 


h 
i 




88 
89 
8A 
8B 


H 
1 




(70) 
(73) 


h 
i 




70 
73 


H 
1 




(70) 
(73) 


H 
1 




(A8) 
(A9) 


H 
1 




(A8) 
(A9) 


h 

i 




70 
73 


H 
1 




(05) 
(0C) 


H 
1 




(12) (13) 
(93) (93) 


H 
1 




(05) 
(0C) 


H 
1 




(05) 
(0C) 


88 
89 
8A 
8B 


136 
137 
138 
139 


140 
141 
142 
143 






8C 
8D 
8E 
8F 
















































L 














8C 
8D 
8E 
8F 


140 
141 
142 
143 
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)IC 




















IBM 


2260 








1 


BM 7770/7772 




AT&T 83B3 






WU TWX 






WTTA (ITA21 




WTTA fZSC^ 


EBCDIC 


Ref. 








2260 


1053 






W U 115A 










Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) . 


Character 


Code 
(Hex) 


Character 


Code (Hex) 
Even Non 


Character 


Code (HEX) 
Even Non 


Character 


Code 
(Hex) 


Code 
(Hex) 


ntrol 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


36 


37 




90 






•' 






























































90 


144 




91 


J 




(43) 


i 




43 


J 




(43) 


J 




(AA) 


J 




(AA) 


1 




43 








J 




(1A) 


J 




(53) 


J 




(1A) 


J 




(1A) 


91 


145 




92 


K 




(45) 


k 




45 


K 




(45) 


K 




(AB) 


K 




(AB) 


k 




45 








K 




(IE) 


K 




(D2> 


K 




(IE) 


K 




(IE) 


92 


146 




93 


L 




(46) 


1 




46 


L 




(46) 


L 




(AC) 


L 




(AC) 


1 




46 








L 




(09) 


L 




(33) 


L 




(09) 


L 




(09) 


93 


147 




94 


M 




(49) 


m 




49 


M 




(49) 


M 




(AD) 


M 




(AD) 


m 




49 








M 




(07) 


M 




(B2) 


M 




(07) 


M 




(07) 


94 


148 




95 


N 




(4A) 


n 




4A 


N 




(4A) 


N 




(AE) 


N 




(AE) 


n 




4A 








N 




(06) 


N 




(72) 


N 




(06) 


N 




(06) 


95 


149 




96 


O 




(4C) 


o 




4C 


O 




(4Q 


O 




(AF) 


O 




(AF) 


o 




4C 








O 




(03) 


O 




(F3) 


O 




(03) 


O 




(03) 


96 


150 




97 


P 




(4F) 


P 




4F 


P 




(4F) 


P 




(B0) 


P 




(B0) 


P 




4F 








P 




(0D) 


P 




(0A) 


P 




(0D) 


P 




(0D) 


97 


151 




98 


Q 




(51) 


q 




51 


Q 




(51) 


Q 




(Bl) 


Q 




(Bl) 


q 




51 








Q 




(ID) 


Q 




(8B) 


Q 




(ID) 


Q 




(ID) 


98 


152 




99 


R 




(52) 


r 




52 


R 




(52) 


R 




(B2) 


R 




(B2) 


r 




52 








R 




(0A) 


R 




(4B) 


R 




(0A) 


R 




(0A) 


99 


153 




9A 




































































9A 


154 




9B 




































































9B 


155 




9C 




































































9C 


156 




9D 




































































9D 


157 




9E 




































































9E 


158 




9F 




































































9F 


159 




AO 




































































A0 


160 




Al 




































































Al 


161 




A2 


S 




(25) 


s 




25 


S 




(25) 


S 




(B3) 


S 




(B3) 


s 




25 








S 




(14) 


S 




(CA) 


S 




(14) 


S 




(14) 


A2 


162 




A3 


T 




(26) 


t 




26 


T 




(26) 


T 




(B4) 


T 




(B4) 


t 




26 








T 




(01) 


T 




(2B) 


T 




(01) 


T 




(01) 


A3 


163 




A4 


U 




(29) 


u 




29 


U 




(29) 


U 




(B5) 


U 




(B5) 


u 




29 








U 




(1C) 


U 




(AA) 


U 




OC) 


U 




(1C) 


A4 


164 




A5 


V 




(2A) 


V 




2A 


V 




(2A) 


V 




(B6) 


V 




(B6) 


V 




2A 








V 




(OF) 


V 




(6A) 


V 




(OF) 


V 




(OF) 


A5 


165 




A6 


W 




(2C) 


w 




2C 


W 




(2Q 


W 




(B7) 


W 




(B7) 


w 




2C 








W 




(19) 


w 




(EB) 


W 




(19) 


W 




(19) 


A6 


166 




AT 


X 




/*»r\ 






oc 


V 




/on 


Y 




<W\ 


X 




(B8^ 


X 




2F 








X 
Y 




07) 


X 




(IB) 


X 




(17) 


X 




(17) 


A7 


167 




A8 


Y 




(31) 


y 




31 


Y 




(31) 


Y 




(B9) 


Y 




(B9) 


y 




31 








(15) 


Y 




(9A) 


Y 




(15) 


Y 




(15) 


A8 


168 




A9 


Z 




(32) 


z 




32 


Z 




(32) 


Z 




(BA) 


Z 




- (BA) 


z 




32 








Z 




(11) 


z 




(5A) 


Z 




(11) 


Z 




(11) 


A9 


169 




AA 




































































AA 


170 




AB 




































































AB 


171 




AC 




































































AC 


172 




AD 




































































AD 


173 




AE 




































































AE 


174 




AF 




































































AF 


175 




BO 




































































B0 


176 




Bl 




































































Bl 


177 




B2 




































































B2 


178 




B3 




































































B3 


179 




B4 




































































B4 


180 




B5 




































































B5 


181 




B6 




































































B6 


182 




B7 




































































B7 


183 




B3 




































































B8 


184 




B9 ■ 




































































B9 


185 




BA 




































































BA 


186 




BB 




































































BB 


187 




BC 






















































\ 














BC 


188 




BO 




































































BD 


189 




BE 




































































BE 


190 




BF 




































































BF 


191 


PZ 


CO 










PZ 


75 




Restore 


(75) 


















































CO 


192 




CI 


A 




62 


A 




E2 


A 




62 


A 




Al 


A 




(Al) 


A 




E2 


A 




[C9] 


A 




18 


A 




82 [83] 


A 




18 


A 




18 


CI 


193 




C2 


B 




64 


B 




E4 


B 




64 


B 




A2 


B 




(A2) 


B 




E4 


B 




[Dl] 


B 




13 


B 




42 [43] 


B 




13 


B 




13 


C2 


194 




C3 


C 




67 


C 




E7 


C 




(67) 


C 




A3 


C 




(A3) 


C 




E7 . 


C 




[D9] 


C 




0E 


C 




C3 


C 




0E 


C 




0E 


C3 


195 




C4 


D 




68 


D 




E8 


D 




(68) 


D 




A4 


D 




(A4) 


D 




E8 


D 




[CA] 


D 




12 


D 




22 [23] 


D 




12 


D 




12 


C4 


196 




C5 


E 




6B 


E 




EB 


E 




6B 


E 




A5 


E 




(A5) 


E 




EB 


E 




[D2] 


E 




10 


E 




A3 


E 




10 


E 




10 


C5 


197 




C6 


F 




6D 


F 




ED 


F 




6D 


F 




A6 


F 




(A6) 


F 




ED 


F 




[DA] 


F 




16 


F 




63 


F 




16 


F 




16 


C6 


198 




C7 


G 




6E 


G 




EE 


G 




(6E) 


G 




A7 


G 




(A7) 


G 




EE 


G 




[CB] 


G 




0B 


G 




E2 [E3] 


G 




0B 


G 




0B 


C7 


199 




C8 


H 




70 


H 




F0 


H 




(70) 


H 




A8 


H 




(A8) 


H 




F0 


H 




[D3] 


H 




05 


H 




12 D3j 


H 




05 


H 




05 


C8 


200 




C9 


1 




73 


1 




F3 


1 




73 


1 




A9 


1 




(A9) 


1 




F3 


1 




[DB] 


1 




OC 


1 




93 


1 




OC 


1 




0C 


C9 


201 




CA 




































































CA 


202 




CB 




































































CB 


203 




CC 




































































CC 


204 




CD 




































































CD 


205 




CE 




































































CE 


206 




CF 




































































CF 


207 


MZ 


DO 










MZ 


54 




Message 


(54) 


















































DO 


208 




D1 


J 




43 


J 




C3 


J 




43 


J 




AA 


J 




(AA) 


J 




C3 


J 




[89] 


J 




1A 


J 




53 


J 




1A 


J 




1A 


Dl 


209 




D2 


K 




45 


K 




C5 


K 




45 


K 




AB 


K 




. (AB) 


K 




C5 


K 




[91] 


K 




IE 


K 




D2 [D3] 


K 




IE 


K 




IE 


D2 


210 




D3 


L 




46 


L 




C6 


L 




(46) 


L 




AC 


L 




(AC) 


L 




C6 


L 




[99] 


L 




09 


L 




33 


L 




09 


L 




09 


D3 


211 




D4 


M 




49 


M 




C9 


M 




(49) 


M 




AD 


M 




(AD) 


M 




C9 


M 




[8A] 


M 




07 


M 




B2 CB3] 


M 




07 


M 




07 


D4 


212 




D5 


N 




4A 


N 




CA 


N 




(4A) 


N 




AE 


N 




(AE) 


N 




CA 


N 




[92] 


N 




06 


N 




72 [731 


N 




06 


N 




06 


D5 


213 




D6 


O 




*4C 


O 




CC 


O 




(4C) 


O 




AF 


O 




(AF) 


O 




CC 


O 




[9A] 


O 




03 


O 




F3 


O 




03 


O 




03 


D6 


214 




D7 


P 




4F 


P 




CF 


P 




(4F) 


P 




B0 


P 




(B0) 


P 


CF 


P 




[8B] 


P 




0D 


P 




0A [0B] 


P 




0D 


P 




0D 


D7 


215 
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FRrnir 






irm mio 






IBM 1050 






IBM 1060 




IBM 2260 
















AT&T 83B3 












Ref. 










2260 


1053 






W U 115A 






Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code 
(Hex) 


Character 


Code (Hex) 
Even Non 


Charac 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 


Control 


Graphic 




1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 




216 
217 
218 
219 


Q 

R 




.08 
D9 
DA 
DB 


Q 
R 




51 
52 


Q 
R 




01 
02 


Q 

R 




(51) 
(52) 


Q 
R 




Bl 
B2 


Q 

R 




(Bl) 
(B2) 


Q 
R 




Dl 
D2 


Q 
R 




[93] 
[9B] 


Q 

R 




ID 
0A 


Q 

R 




8B 8B 
4B 4B 


Q 
R 




220 
221 
222 
223 






DC 
DD 
DE 
OF 




























































224 
225 
226 
227 


S 
T 


RM 


E0 
El* 
E2 
E3 


S 
T 




25 
26 


S 
T 


RM 


34 

A5 
A6 


S 
T 




(25) 
(26) 


S 
T 




B3 
B4 


S 
T 




(B3) 
(B4) 


S 
T 




A5 
A6 


S 
T 




151] 
[591 


S 
T 
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APPENDIX I: 



TRANSMISSION CODE CHART 



This chart may be used in reading transmis- 
sion code as found in main storage. In the 
leftmost column of each section of the 
chart is shown the hexadecimal representa- 
tions of the 256 bit patterns that can 
appear in a System/360 byte. Opposite each 
bit pattern is the character represented by 
that bit pattern in the EBCDIC character 
set and in the character sets for each of 
the types of terminals listed in the 
remaining columns of the chart. (The spe- 
cific character set options represented in 
the chart are the same as those listed in 
Appendix H.) For example, before transla- 
tion to EBCDIC a hexadecimal 04 appearing 
in main storage would represent the digit 
2, if the bit pattern was received from an 
IBM 1030, 1050, 1060, or 2740; the charac- 
ter EOT, if from a 2260; or a Space charac- 
ter, if from an 83B3, 115A, or World Trade 
telegraph terminal. The absence of a char- 
acter in the column headed AT&T TWX signi- 
fies that the bit pattern 04 is undefined 
for TWX terminals. 



Example : In order to translate 

1601E4CC A5011515 150201CA B1E70190 



as found in storage, first separate the 
characters into pairs: 



16 01 E4 CC A5 01 15 15 

15 02 01 CA Bl E7 01 90 

If this sequence was received from an IBM 
1050, it represents the characters: 

EOA SP B O S SP 

1 SP N Y C SP * 

so that the message entered at the 10 50 
terminal was, in part, 

BOS 0001 NYC * 
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IBM 1060 




IBM 2740 


IBM 
7770,7772 


AT&T 83B3 
W U 1 15A 


WU TWX 




S/360 

B/te 

(Hex) 


2260 


1053 


ITA2 


ZSC3 




























Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Ctl Gr 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 




80 
















-(7770 only) 










80 


81 


a 




SP 








SP 












81 


82 


b 




= 








= 






A 






82 


83 


c 


















A 






83 


84 


d 




< 








< 






1 






84 


85 


e 


















1 






85 


86 


f 
























86 


87 







; 








; 












87 


88 


h 


















X-On 






88 


89 


1 














J 




X-On 






89 


8A 
















M 










8A 


8B 






% 








% 


P 




Q 






8B 


8C 


























8C 


8D 






1 








1 






1 






8D 


8E 






> 








> 












8E 


8F 


























8F 


90 






• 








* 






HT 






90 


91 


i 














K 




HT 






91 


92 


k 














N 










92 


93 


l 




( 








( 


Q 




1 






93 


94 


m 
























94 


95 


n 




) 








) 






) 






95 


96 


o 




EOA 








•' EOA 












96 


97 


P 
























97 


98 


q 
























98 


99 


r 




PN 










L 










99 


9A 






RS 










O 




Y 






9A 


9B 
















R 




Y 






9B 


9C 






Upshift 








Upshift 






9 






9C 


9D 




















9 






9D 


9E 


























9E 


9F 


























9F 


A0 






<? 








<f 






WRU 






A0 


Al 










A 


A 








WRU 






Al 


A2 


s 








B 


B 














A2 


A3 


t 




? 




C 


C 


? 






E 






A3 


A4 


u 








D 


D 














A4 


A5 


V 




S 




E 


E 


S 






% 






A5 


A6 


w 




T 




F 


F 


T 












A6 


A7 


X 








G 


G 














A7 


A8 


y 








H 


H 














A8 


A9 


z 




U 




1 


1 


U 












A9 


AA 






V 




J 


J 


V 






U 






AA 


AB 










K 


K 








U 






AB 


AC 






W 




L 


L 


w 






5 






AC 


AD 










M 


M 








5 






AD 


AE 










N 


N 














AE 


AF 






X 




O 


O 


X 












AF 


BO 










P 


P 














B0 


Bl 






Y 




Q 


Q 


Y 






CR 






Bl 


B2 






Z 




R 


R 


z 






M 






B2 


B3 










S 


S 








M 






B3 


B4 










T 


T 








_ 






B4 


B5 










U 


U 








- 






B5 


B6 










V 


V 














B6 


B7 






1 




W 


W 


1 












B7 


B8 






BYP 




X 


X 














B8 


B9 










Y 


Y 














B9 


BA 










Z 


Z 














BA 


BB 






LF 








LF 






] 






BB 


BC 


























BC 


BD 






EOB 




>Start Ml 


<f 


EOB 






= 






BD 


BE 






PRE 




















BE 


BF 








- 


- 














BF 



S/360 

B/te 

(Hex) 


EBCDIC 


IBM 1030 


IBM 1050 


IBM 1060 


IBM 2260 R 


IBM 2740 


IBM 
7770,7772 


AT&T 83B3 
W U 1 15A 


WUTWX 


WTTA 


S/360 

Byte 

(Hex) 


2260 


1053 


ITA2 


ZSC3 




























Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 


Gr Ctl 




CO 


PZ 




® 








- ® 


& (7770 only) 


» 








CO 


CI 


A 
























CI 


a 


B 
























C2 


C3 


C 




J 








J 






C 






C3 


C4 


D 
























C4 


C5 


E 




K 








K 






I 






C5 


C6 


F 




L 








L 












C6 


C7 


G 
























a 


C8 


H 
























C8 


C9 


1 




M 








M 


A 




X-Off 






C9 


CA 






N 








N 


D 




s 






CA 


CB 
















G 




s 






CB 


CC 






O 








O 






3 






CC 


CD 




















3 






CD 


CE 


























CE 


CF 






P 








P 












CF 


DO 


MZ 
























DO 


Dl 


J 




Q 








Q 


B 




VT 






Dl 


D2 


K 




R 








R 


E 




K 






D2 


D3 


L 














H 




K 






D3 


D4 


M 


















+ 






D4 


D5 


N 


















+ 






D5 


D6 


O 
























D6 


D7 


P 




1 








1 












D7 


D8 


Q 




RES 




















D8 


D9 


R 














C 










D9 


DA 
















F 










DA 


DB 






NL 








NL 


1 




C 






DB 


DC 



























DC 


DD 






BS 








BS 






; 






DD 


DE 






IL 








IL 












DE 


DF 




Pad 






















DF 


E0 


RM 








@ 


@ 














E0 


El 






+ 








+ 






Bell 






El 


E2 


S 




A 








A 






G 






E2 


E3 


T 


















G 






E3 


E4 


U 




B 








B 






i 






E4 


E5 


V 


















■ 






E5 


E6 


W 
























E6 


E7 


X 




C 








C 












E7 


E8 


Y 




D 








D 












E8 


E9 


Z 
























E9 


EA 


























EA 


EB 






E 








E 






W 






EB 


EC 


























EC 


ED 






F 








F 






7 






ED 


EE 






G 








G 












EE 


EF 


























EF 


FO 







H 








H 












F0 


Fl 


1 


















SI 






Fl 


F2 


2 
























F2 


F3 


3 




1 








1 






O 






F3 


F4 


4 
























F4 


F5 


5 


















/ 






F5 


F6 


6 




- © 








- © 












F6 


F7 


7 
























F7 


F8 


8 
























F8 


F9 


9 




PF 




















F9 


FA 






Tab 








HT 






«- 






FA 


FB 




















♦- 






FB 


FC 






Dwnshft 




_, 


_, 


Dwnshft 






? 






FC 


FD 




















? SI 






FD 


FE 










1 


1 














FE 


FF 






DEL 








DEL 






Rubout 






FF 



Appendix I: Transmission Code Chart 309 



APPENDIX J: LINE AND STATION CONFIGURATIONS SUPPORTED BY BTAM 



Start-Stop Communications 



The types of remote start-stop (asynchro- 
nous) terminals that can communicate with a 
System/360 under BTAM control, and the 
kinds of communication lines that can be 
controlled, are described below. The com- 
munication lines must be connected to the 
computer via an IBM 2701 Data Adapter Unit, 
and IBM 2702 Transmission Control, or an IBM 
2703 Transmission Control. 

1. Nonswitched lines (point-to-point or 
multipoint) , using programmed polling: 

IBM 1030 Data Collection System 
IBM 1050 Data Communications System 
IBM 1060 Data Communications System 
IBM 2260 Display Station — 
IBM 2848 Display Control 
(Remote — 2701 only) 
IBM 2265 Display Station — IBM 2845 
Display Control (Remote — 2701 
only) 
IBM 2740 Communications Terminal 
(Model 1) : Basic: with chec- 
king 1 ; with Station Control 2 ; with 
Checking and Station Control 2 ; or 
with Checking and IBM 2760 Optical 
Image Unit features (point-to-point 
only, if 2740 is equipped with 2760 
Optical Image Unit) 

(Model 2) : Basic or with Checkings- 
IBM 2741 Communications Terminal 
Western Union Plan 115A Outstations 
AT&T 83B3 Selective Calling Stations 

2. Switched lines: 

IBM 1050 Data Communications System 
IBM 2740 Communications Terminal 
(Model 1): Dial; Dial, with 
Checking; Dial, with Transmit Con- 
trol; Dial, with Checking and Trans- 
mit Control, or Dial, with Checking 
and IBM 2760 Optical Image Unit 
features . 
IBM 2741 Communications Terminal 
WU Model 33/35 Teletypewriter 
Exchange Terminal (TWX) 

3. Nonswitched multipoint lines using the 
Auto Poll facility (IBM 2702 or 2703 
only) : 

IBM 1030 Data Collection System 
IBM 1050 Data Communications System 



IBM 106 Data Communications System 
IBM 2740 (Model 1) : with Sta- 
tion Control 2 or with Station Con- 
trol 2 and Checking features 



Binary Synchronous Communications 



The types of remote binary synchronous sta- 
tions (computers or terminals) that can 
communicate with a central System/360 under 
BTAM control, and the kinds of communica- 
tions lines that can be controlled, are as 
follows. The communications lines must be 
connected to the central computer via an 
IBM 2701 Data Adapter Unit or an IBM 2703 
Transmission Control. An IBM 2701 (with 
Synchronous Data Adapter Type II) may be 
attached to either the multiplexer channel 
or a selector channel. An IBM 2703 (with 
Synchronous Base Type 1) must be attached 
to the multiplexer channel. 



1. Nonswitched point-to-point and 
switched point-to-point lines: 

IBM System/360 3 

IBM System/360 Model 20 

IBM System/3 

IBM 1130 Computing System 

IBM 1800 Data Acquisition and 
Control System 

IBM 2715 Transmission Control Unit 
(Model 1 attaches directly to multi- 
plexer channel of central computer; 
Model 2 communicates with central 
computer via IBM 2701 or 2703) 

IBM 2770 Data Communications System 

IBM 2780 Data Transmission Terminal 

IBM 3735 Programmable Buffered Terminal 

2. Nonswitched multipoint lines: 



A Used as a regular terminal or as an opera- 
tor's console, when the operating system 
includes the Multiple Console Support. 



2 Station Control feature cannot be used if 
the 274 is also used as a console under 

3 Multiple Control Support. 
The remote System/360 may be a Model 25, 
30, 40, 50, 65, 67 (operating in 65 mode), 
75, 85, or 91. 
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IBM System/360 Model 20 

IBM System/3 

IBM 1130 Computing System 

IBM 1800 Data Acquisition and 
Control System 

IBM 2715 Transmission Control Unit 
(Model 1 attaches directly to multi- 
plexer channel of central computer; 
Model 2 communicates with central 
computer via IBM 2701 or 2703) 

IBM 2770 Data Communications System 

IBM 2780 Data Transmission Terminal 

IBM 2972 (Models 8 & 11) General Bank- 
ing Terminal System 

Remote IBM 3270 Display System 

IBM 3735 Programmable Buffered Terminal 
(Requires special feature) 

LOCAL COMMUNICATIONS 

The local IBM 3270 Display System can 
communicate with a System/360 under BTAM 
control. The local 3270 display system 
is connected to the computer by means 
of a selector, multiplexer, or block 
multiplexer channel. 

Machine and Programming Requirements 

BTAM operates on any System/360 that meets 
the following requirements: 

The system must meet the minimum con- 
figuration of the System/360 Operating 
System. 



© The remote stations must be attached to 
an acceptable data adapter or transmis- 
sion control unit (IBM 2701, 2702, or 
2703). (A local 2715 (Model 1) must be 
connected to the multiplexer channel.) 

© All remote start-stop terminals that 
are connected to the same multipoint 
line, or are capable of communicating 
with the computer over any given 
switched line termination must be of 
the same type and must be equipped with 
the same features. (Remote binary syn- 
chronous stations are not subject to 
this limitation.) 

o All devices must be attached to the 
System/360 via the multiplexer channel 
except the IBM 2701 with Synchronous 
Data Adapter Type II, which may be 
attached via the selector channel (non- 
switched lines only) , or to the multi- 
plexer channel. 

o No device may be operated in burst mode 
concurrently with the operation of BTAM 
except the 2701 attached via the selec- 
tor channel. 

© Execution of BTAM requires that the 
interval timer of the central computer 
be working. 

o In a system in which BTAM is used in 
more than one partition, if the BTAM 
Read/Write module (IGG019MA) is resi- 
dent, all device I/O modules that are 
shared by the BTAM-using partitions 
must also be made resident. 

© Use of the STIMER macro by the user is 
restricted during the time a BTAM Open 
(OPEN) or Line Open (LOPEN) operation 
is in progress, because the BTAM Open 
routines also use STIMER. 



Terminals which are equivalent to those explicitly supported 
may also function satisfactorily. The customer is responsible 
for establishing equivalency. IBM assumes no responsibil ity 
for the impact that any changes to the IBM-supplied products 
or programs may have on such terminals. 
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APPENDIX K: IBM 2980 CHARACTER SET AND TRANSMISSION CODE CHART 



These charts show for each transmission 
code bit pattern the corresponding 2980 
character, for each of the models of the 



2980 (1, 2, and 4). Also shown is the 
EBCDIC character equivalent for that bit 
pattern. 



8-bit 
pat- 
tern 
(Hex) 


EBCDIC 
charac- 
ter 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


00 


NUL 














01 


SOH 














02 


STX 


STX 


STX 


STX 


STX 


STX 


STX 


03 


ETX 


ETX 


ETX 


ETX 


ETX 


ETX 


ETX 


04 


PF 






open 
chute 






open 
chute 


05 


HT 


HT 


HT 


HT 


HT 


HT 


HT 


06 


LC 








LC 


LC 


LC 


07 


DEL 














08 
















09 


RLF 














0A 


SMM 














0B 


VT 














OC 


FF 














0D 


CR 














0E 


SO 














OF 


SI 














10 


DLE 


DLE 


DLE 


DLE 


DLE 


DLE 


DLE 


If 


DC1 














12 


DC2 














13 


TM 














14 


RES 






turn 
page 
light 






turn 
page 

light 


15 


NL 


NL 


NL 


NL 


NL 


NL 


NL 


16 


BS 














17 


IL 


message 
light 




message 
light 


message 
light 




message 
light 


18 


CAN 














19 


EM 














1A 


CC 














IB 


CU1 














1C 


1FS 















8-bit 
pat- 
tern 
(Hex) 


EBCDIC 
charac- 
ter 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


ID 


IGS 














IE 


IRS • 














IF 


IUS 














20 


DS 














21 


SOS 














22 


FS 














23 
















24 


BYP* 


BYP 


BYP 


BYP 








25 


LF 


pass- 
book 
index 




pass- 
book 
index 


pass- 
book 
index 




pass- 
book 
index 


26 


ETB 


ETB 


ETB 


ETB 


ETB. 


ETB 


ETB 


27 


ESC 














28 
















29 
















2A 


SM 














2B 


CU2 . 














2C 
















2D 


ENQ 


ENQ 


ENQ 


ENQ 


ENQ 


ENQ 


ENQ 


2E 


ACK 














2F 


BEL 














30 
















31 
















32 


SYN 


SYN 


SYN 


SYN 


SYN 


SYN- 


SYN 


33 
















34 


PN* 














35 


RS 














36 


UC 


UC 


UC 


UC 








37 


EOT 


EOT 


EOT 


EOT 


EOT 


EOT 


EOT 


38 

















Also used as a Terminal Selection Character. 
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8-bit 
pat- 
tern 
(Hex) 


EBCDIC 
charac- 
ter 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


39 
















3A 
















3B 


CU3 














3C 


DC4 














3D 


NAK 


NAK 


NAK 


NAK 


NAK 


NAK 


NAK 


3E 
















3F 


SUB 














40 


SP* 


SP 


SP 


SP 


SP 


SP 


SP 


41 
















42 
















43 
















44 
















45 
















46 
















47 
















48 
















49 
















4A 


<? 














4B 


• 


3 






• 


— > 




4C 


< 














4D 


( 














4E 


+ 














4F 


1 














50 


& 


validate 

I.D. 

char. 


& 


validate 

I.D. 

char 


& 


+ 


& 


51 
















52 
















53 
















54 

















8-bit 
pat- 
tern 
(Hex) 


EBCDIC 
charac- 
ter 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


55 
















56 
















57 
















58 
















59 
















5A 


1 














5B 


$ 


- 


$ 




$ 


! 




5C 


* 


$ 


& 




* 


<? 




5D 


) 














5E 


; 














5F 


— i 














60 


- 


F 


- 




- 


_ 




61 


/ 


T 


/ 




/ 


? 




62 
















63 
















64 
















65 
















66 
















67 
















68 
















69 
















6A 
















6B 


/ 


2 


/ 


/ 


• 


1 




6C 


% 














6D 


— 














6E 


> 














6F 


? 














70 
















71 

















r Also used as a Terminal Selection Character 
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8-bit 
pat- 
tern 
(Hex) 


EBCDIC 
charac- 
ter 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


72 
















73 
















74 
















75 
















76 
















77 
















78 
















79 
















7A 
















7B 


# 


$ 


» 


* 


# 


» 


■* 


7C 


& 














7D 


' 














7E 


= 














7F 


" 














80 
















81 


a 














82 


b 














83 


c 














84 


d 














85 


e 














86 


f 














87 


g 














88 


h 














89 


! 














8A 
















8B 
















8C 
















8D 
















8E 

















8-bit 
pat- 
tern 
(Hex) 


EBCDIC 
charac- 
ter 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


8F 
















90 
















91 


i 














92 


k 














93 


1 














94 


m 














95 


n 














96 


o 














97 


P 














98 


q 














99 


r 














9A 
















9B 
















9C 
















9D 
















9E 
















9F 
















A0 
















Al 
















A2 


s 














A3 


t 














A4 


u 














A5 


V 














A6 


w 














A7 


X 














A8 


y 














A9 


z 














AA 
















AB 
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8-bit 
pat- 
torn 
(Hex) 


EBCDIC 
cl ia fac- 
te r 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


AC 
















AD 
















AD 
















AF 
















BO 
















BI 
















B2 
















B3 
















B4 
















B5 
















B6 
















B7 
















B8 
















B9 
















BA 
















BB 
















BC 
















BD 
















BE 
















BF 
















CO 
















CI 


A 


C 


a 


A 


A 


A 


A 


C2 


B 




b 


B 


B 


B 


B 


C3 


C 


t 


c 


C 


C 


C 


C 


C4 


D 


N 
B 


d 


? 


D 


D 


D 


C5 


E 


X 


e 


E 


E 


E 


E 


C6 


f 



B 


f 


F 


F 


F 


F 


C7 


G 


s 


g 


G 


G 


G 


G 



8-bit 
pat- 
tern 
(Hex) 


EBCDIC 
charac- 
ter 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


C8 


H 


00 


h 


# 


H 


H 


6 


C9 


1 


8 


i 


c 


1 


1 





CA 
















CB* 








M 






2 


CC 


J 1 














CD 
















CE 


V 














CF 
















DO* 














R 


Dl 


J 


4 


i 


J 


J 


J 


J 


D2 


K 


5 


k 


K 


K 


K 


K 


D3 


L 


6 


l 


L 


L 


L 


Q 


D4 


M 


1 


m 


X 


M 


M 


M 


D5 


N 





n 


N 


N 


N 


N 


D6 


O 


9 


o 


O 


O 


O 


1 


D7 


P 


+ 


P 


P 


P 


P 


H 


D8 


Q 


R 


q 



B 


Q 


Q 


5 


D9 


R 


A 


r 


c 

T 


R 


R 


_ 


DA 
















DB 
















DC 
















DD 
















DE 
















DF 
















EO* 








$ 

T 






4 


El 








/ 






Y 


E2 


S 


T 
F 


s 


$ 


S 


S 


S 



A non-EBCDIC code. 
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8-bit 
pat- 
tern 
(Hex) 


EBCDIC 
charac- 
ter 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


E3 


T 


B 


t 


A 


T 


T 


T 


E4 


U 


7 


u 


M 


U 


U 


U 


E5 


V 


s 
p 


V 


▼ 


V 


V 


V 


E6 


w 


Q 


w 


* 


W 


W 


W 


E7 


X 


M 


X 


N 
B 


X 


X 


X 


E8 


Y 


D 


y 


T 


Y 


Y 


3 


E9 


z 


V 


z 




z 


z 


z 


EA 
















EB* 








1 






1 


EC 
















ED 
















EE 
















EF 
















FO 





U 











) 


. 


Fl 


1 




1 


1 


1 


= 


L 


F2 


2 


H 


2 


2 


2 


< 


S 


F3 


3 


c 

F 


3 


3 


3 


; 


# 


F4 


4 


M 


4 


4 


4 




O 


F5 


5 


r 


5 


5 


5 


% 


P 


F6 


6 


c 


6 


6 


6 


• 


* 


F7 


7 


M 



7 


7 


7 


> 


7 


F8 


8 


M 

▼ 


8 


8 


8 


* 


8 


F9 


9 


C 


9 


9 


9 


( 


9 



8-bit 
pat- 
tern 
(Hex) 


EBCDIC 
charac- 
ter 


2980 character 


Numeric shift 


Alpha shift 


Model 
1 


Model 
2 


Model 
4 


Model 
1 


Model 
2 


Model 
4 


FA 


LVM 














FB 
















FC 
















FD 
















FE 


EO 














FF 

















A non-EBCDIC code. 
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APPENDIX L: THE TPEDIT MACRO INSTRUCTION (IBM 50 MAGNETIC DATA INSCRIBER) 



GENERAL CHARACTERISTICS 



Data received from the IBM 50 Magnetic Data 
Inscriber* (MDI) attachment to the IBM 2772 
Multi-Purpose Control Unit contains MDI 
control characters. The TPEDIT macro 
enables the user to edit this data. The 
Edit routine, entered from the TPEDIT macro 
in the user program, edits the data as 
specified, then returns control to the user 
program. You have the option of gaining 
temporary control (via a user-specified 
exit routine) to process error records. 
The Edit routine is written in reentrant 
code. If data is to be received from more 
than one MDI at a time, you must provide a 
separate parameter list for each of them. 



there. The Edit routine gives a return 
code indicating that the input area is 
empty but a record is not available. It is 
your responsibility to obtain the remainder 
of the record via READ macros. When con- 
trol is given back to the Edit routine, the 
characters in the input area (until EOR is 
encountered) are treated as the remaining 
portion of the partial record. 



TPEDIT MACRO INSTRUCTION 



The TPEDIT macro is used to specify the 
type of editing to be done on the input 
received from the IBM 50 MDI attachment to 
the IBM 2772. 



When the user program issues a READ 
macro, it receives one block of data, which 
may contain one or more MDI logical records 
(or none) . The Edit routine extracts one 
record from this block of data, edits it 
and gives it to the user program with a 
return code indicating whether or not the 
user program input area is empty. If the 
input area is not empty, the user program 
must reissue the TPEDIT macro to obtain 
another record. When control is returned 
to the user program with an indication that 
the input area is empty, the input area can 
be reused. If the input area contains a 
partial record, the available portion is 
edited into the work area, and maintained 



*-For full information on the IBM 50, see 
the publication IBM 50 Magnetic Data 
Inscriber Component Description , 
GA27-2725. 



MINLN Specifies the minimum acceptable 
length of an input record- For 
EDIT=EDITD, SOR and EOR codes are 
excluded from the length; for 
EDITR, SOR and EOR are included 
in the length. 

REPLACE Specifies the code to be used as 
a replacement character whenever 
the Edit routine detects a 2772 
replacement character (i.e., the 
EBCDIC SUB character, X*3F*) in 
the input. X'19' is chosen as 
the assumed value because it is 
an end-of-data (ED) signal for an 
IBM 50 MDI cartridge and there- 
fore can never appear as a valid 
data byte. For REPLACE=X*xx' you 
specify xx as hexadecimal charac- 
ters of your choosing. These 
choices may be made from the code 
chart in Figure 41, with excep- 
tions as noted below. 



r t t — 

| Name | Operation | Operand 




MINLN=n [ , REPLACE=\ X , 19V ] 
|X , xx« \ 

[EDIT=j EDITD U [,RECFM=)v(] 
) EDITR | |u| 

[ , ERROPT= J IGNORE I] [ , VERCHK=) NOCHK I ] 
(name ) } VOKCHKJ 

[,BUFFER=JNO U 
JYESJ 
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Programming Note ; BSC control 
characters should not be used as 
replacement characters if the 
data is to be transmitted via BSC 
facilities after editing. 



Hexadecimal characters representing special 
purpose MDI codes that should not be used 
as replacement bytes are: 



X'OO* (LZ) 

X'll' (DUP) 

X f 12' (LZS) 
X'lS* (CAN) 
X'lD* (GS) 
EDIT 



X'lE* (VOK) 

X*3C (RM) 

X'71' (PI) 
X'72' (P2) 
X'73' (P3) 



X'74' (P4) 

X'75' (P5) 

X'76' (P6) 
X'77' (P7) 
X'78* (P8) 



Specifies the type of editing to 
be done. 



EDITD Causes the input to be 

edited and start-of- record 
(SOR) and end-of-record 
(EOR) delimiters to be 
deleted. 

EDITR Causes the input to be 

edited and the start-of- 
record and end-of-record 
delimiters to be retained 
as part of the output. 

The edit consists of the follow- 
ing functions. Records are 
extracted one at a time from the 
input area by scanning for the 
record delimiting codes (SOR and 
EOR) . DUP codes are replaced by 
the character from the corres- 
ponding location of the record 
that was in the work area when 
control was last returned to the 
Edit routine. (This does not 
apply to the first record of a 
cartridge.) Left-zero fields are 
right-adjusted, with leading 
zeros inserted where necessary. 
Left-zero start codes, records 
containing a cancel code, and 
group separator codes do not 
appear in the output stream. 
Line control characters (ETB, 
ETX, STX, and DLE STX) are always 
deleted if found in the input 
area. 

RECFM Specifies the format of the out- 
put from the Edit routine. If 
RECFM=V, a segment descriptor 
word is appended to each record 
as shown. 



ERROPT 



Segment Descriptor Word 

t * s 

"T 



| nn | bb | 
i x x. 



Data 



Logical Record 



where nn (2 bytes) is the length 
of the logical record and bb (2 
bytes) is binary zeros reserved 
for system use. 

This four-byte field is 
included in the record length 
returned to the user program via 
a parameter list. 



Note : Allow for this four-byte 
field when determining the size 
of the work area (see section on 
Input to the TPEDIT macro) . 

If RECFM=U, no segment descriptor 
word is appended to each record. 

Specifies whether a user error 
exit routine is provided to 
handle erroneous records. 



IGNORE An error exit routine is 
not provided. The error 
conditions are to be dis- 
regarded and the record 
is to be passed normally 
to the user program. 

name Specifies the name of the 
user error exit routine 
to be entered when the 
Edit routine detects log- 
ical errors or replace- 
ment characters in the 
record. 

VERCHK (valid only if ERROPT=name is coded) 
Specifies whether the records are 
to be checked for verify-OK (VOK) 
codes. If you specify VOKCHK and 
a record does not contain the 
verify-OK code, the record is 
passed to the error exit routine. 

When the Edit routine encoun- 
ters an erroneous record and con- 
trol passes to this user-supplied 
routine, register 13 contains the 
address of a 72-byte register 
save area aligned on a fullword 
boundary, and register 1 contains 
the address of a two-word para- 
meter list aligned on a fullword 
boundary. The parameter list is 
defined as follows: 
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Word contents 

1. Record address 

2. Address of record length 



Note ; The entire buffer chain 
must have been posted complete in 
the DECB before you issue the 
TPEDIT macro. 



The record length includes the 
four-byte error description word 
appended, as shown, to the data 
record. In addition, if RECFM=V, 
the logical record length (nn) 
includes these four bytes when 
the record is passed to the error 
exit routine. 



If RECFM=V is specified: 



Error 
Description Word 



r t r — t — t — t — r 

| nn| bb | || | | 

L X JL J JL X X 



Data | 
// _J 



BUFFER 



Logical record 

If RECFM=U is specified: 

Error 
Description Word 



Input to TPEDIT Macro 



Register 1 must point to a four-word para- 
meter list (aligned on a fullword boundary) 
containing: 

Word Contents 

1 Input Address 

If you are using dynamic buffering, 
this address points to the first 
buffer in the chain. The Edit rou- 
tine edits all records in the buff- 
er chain before indicating that the 
input area is empty. If dynamic 
buffering is not used,, this is the 
address of the data to be edited. 

2 Input Length 

If dynamic buffering is used, this 
is the length of one buffer. 
I/O area is used, this is the 
length of the data to be edited. 



r T T T T /' 1 

I I I I I ^ta | 

I JL JL JL L / / J 

v 

Logical record 

Information on the Error Descrip- 
tion Word may be found under 
Error Record Identification. The 
error exit routine can be used to 
analyze and, if possible, correct 
the erroneous record. When con- 
trol returns to the Edit routine 
via register 14, you must set 
register 15 to zero if you wish 
to bypass the entire record. 
To direct the Edit routine to 
pass only that segment of the 
record in error and process the 
rest of the record normally, set 
register 19 to a nonzero value. 
Note that neither acceptance nor 
bypassing of the erroneous record 
changes its effects on subsequent 
records. The Edit routine removes 
the error description word when 
control returns from the error 
exit routine. 

Specifies whether or not the user 

data is in BTAM buffers obtained 
through dynamic buffering operations. 
If you specify YES, the Edit routine 
edits all data in the input area 
until the area is empty. 



-*• -C -*-* 



Edit work area address 
The work area required by the Edit 
routine for a given parameter list 
is obtained in either of two ways. 
The work area can be provided by 
the Edit routine (via an uncondi- 
tional GETMAIN) , or you may provide 
it. 

If the work area is to be pro- 
vided by the EDIT routine* this 
word must contain binary zeros. 
The Edit routine issues a GETMAIN 
macro to obtain the required 
storage and places the address of 
the storage obtained in this word. 
If you provide the work area, this 
word contains the address of the 
area supplied. The amount of 
storage needed in addition to the 
fixed amount required is determined 
from: 



(1) 
(2) 



(3) 



the maximum record length, 
whether a user exit exists (72 
bytes for a register save area 
and 4 bytes for an EDW are 
required by the macro if an 
exit is specified) . 
whether RECFM=V. 



The size (in bytes) of the work 
area may be determined from the 
formula : 
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84 + 76E + R + 4V 



= 1 if RECFM=V 



Where : 

S is* the size (in bytes) of the 
work area. 

E = if ERROPT=IGNORE is coded 

= 1 if ERROPT=NAME is coded 

V = if RECFM=U 



R is the length of the longest 
record to be processed. 

Maximum record length. 
This is the length, in bytes, of 
the longest valid edited record. 
For EDIT=EDITD the length should 
exclude SOR and EOR codes; for 
EDIT=EDITR, the length should 
include SOR and EOR codes. 





































00 




01 




10 




11 




Bits , 






00 


01 


10 


11 


00 


01 


10 


11 


00 


01 


10 


11 


00 


01 


10 


11 


' S ' 




. 





1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


C)C !„.. ,- 
































0000 







LZ 










Space 


& 


Minus 


















■o 


0-8-2 







0001 


1 




DUP 










/ 


PI 










A 


J 




1 


0010 


2 




LZ 
Start 












P2 










B 


K 


S 


2 


0011 


3 
















P3 










C 


L 


T 


3 


0100 


4 
















P4 










D 


M 


U 


4 


0101 


5 
















P5 










E 


N 


V 


5 


0110 


6 
















P6 










F 


O 


W 


6 


0111 


7 
















P7 










G 


P 


X 


7 


1000 


8 




CAN 












P8 










H 


Q 


Y 


8 


1001 


9 




ED 






















1 


R 


Z 


9 


1010 


A 










<? 


1 






















1011 


B 












$ 


, 


I 


















1100 


C 








RM 


< 


* 


% 


@ 


















1101 


D 




GS 






( 


) 


Under- 
line 


Prime 


















1110 


E 




VOK 






+ 


; 


> 


= 


















1111 


F 










1 


— I 


? 


■ 




















t t 

Bits 2nd He* 
4,5 Digit 
6,7 


































IBM 50 Code 
Name 


EBCDIC Code 
Name 




IBM 50 Code Name 
(See Note) 




LZ (LZ Fill) 
DUP 
LZ Start 
CAN (Cancel) 


NULL 
DC 1 
DC 2 
Con 


PI (Prog 1) 
P2 (Prog 2) 
P3 (Prog 3) 
P4 (Prog 4) 


ED (End Data) 
RM (Rec Mark) 
GS (Group Sep) 
VOK (Ver OK) 


EM 
DC 4 
IGS 
IRS 


P5 (Prog 5) 
P6 (Prog 6) 
P7 (Prog 7) 
P8 (Prog 8) 










N 


ot 


>: Codes are assigned for IBM 50 use only. 



















Figure 41. IBM 50 MDI Control Codes 
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The value of the maximum record 
size should not include the four- 
byte segment descriptor word added 
to a variable length record. 

Records that exceed the maximum 
record size are considered 
erroneous records. Register 13 
must contain the address of a 72- 
byte register save area aligned on 
a fullword boundary. 



er list is returned in register 1- The 
parameter list has the following format: 

Word Contents 

1 Address of the record 

2 Address of the record length 



IDENTIFICATION OF RECORDS CONTAINING ERRORS 



Return Codes 



After the Edit routine has edited a record, 
it provides in register 15 a return code 
indicating record availability and status 
of the input area, prior to returning con- 
trol to the user program. The return codes 
and their meanings are as follows: 



Code 
(hex) 

00 



04 



08 



0C 



Meaning 

A record is available; input area 
is empty. The routine has edited 
the last logical record in the 
input area and is passing the 
record to the user program. 

A record is available; input area 
is not empty. The routine has 

edited one logical record and 
is passing that record to the 
user program. 

No record is available; input 
area, is empty. The last record 
in the input area was incomplete; 
i.e., it was a partial record. 

End-of-data (ED) code was 
detected. 



For return codes 00 and 04, the record 
address and the address of the record 
length are given to the user program in a 
two-word parameter list aligned on a full- 
word boundary. The address of the paramet- 



This section describes what the Edit rou- 
tine considers to be records containing 
errors. Once the Edit routine has deter- 
mined a record to be in error, it passes 
that record to the user error exit routine, 
"if ERROPT=name is specified in the TPEDIT 
macro statement. If an error exit routine 
is not specified, the erroneous record is 
returned to the user program. 

The Edit routine maintains information 
about each record as it is being edited. 
This information is summarized in the Error 
Description Word (EDW) described below, 
when the EDW contains a nonzero value in 
either the Level Status (byte 0) or the 
Type Status (byte 1), the record is consid- 
ered an erroneous record and the EDW is 
inserted between the four-byte record 
length field and the data portion if RECFM= 
V is specified. Otherwise, the EDW is 
appended to the start of the record to help 
you analyze the error. Table 49 shows the 
format of the EDW. 



Level Status (Byte 0) 



The level status indicator identifies 
erroneous records that result from interre- 
cord dependency and that cannot be identi- 
fied in the type status byte. The level 
status is presented with each erroneous 
record and has one of the values shown in 
Table 49. 
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Table H9. Format of Error Description Word 

r 

Byte 0: Level status 

- for any error record that will not cause questionable data to be 
in the following records. 

1 - for any error record that may cause questionable data to be in 
the following records. 

2 - for any error record that (1) contains questionable data due to 
the error level of preceding record (s) and (2) may cause ques- 
tionable data to be in the following records; and where the level 
status of the previous record was either 1 or 2. 



Byte 1; Type status 

- No identifiable errors. 

1 - Start-of-record (SOR) or end-of record (EOR) in error. 

2 - Length error. 
4 - Field error. 

8 - Data check error. 

Note: This field may contain combinations of these error types; 
e.g., a C (hexadecimal) indicates a data check error and a field 
error. 



Byte 2: Program Level 



1 - PI 

2 - P2 

3 - P3 

4 - P4 



5 - P5 

6 - P6 

7 - P7 

8 - P8 



E -none of the preceding levels. 
(SOR) is in error. 



Start-of-record 



Byte 3 : Record Status 

U - Unverified record. 

V - Verified record. 

E - Neither U nor V. End-of-record (EOR) is in error. 



Note: The error description record is in EBCDIC format. For 
example, a 2 is represented as X*F2'; a C is represented as X'C3* 



A level status of other than zero is 
presented with erroneous records resulting 
from the following: 

• The start-of-record (SOR) location has a 
character defined as an error. 

• The record contains two or more data 
check bytes in succession. 

• The record is longer than the user- 
specified maximum length record. 

• The length of the record is not equal to 
the length of the first valid record of 
the same program level encountered on the 



MDI cartridge from which data is being 
obtained. 



• The record has a data duplication depen- 
dency on a previous record having one of 
the foregoing errors. 



The level status is set to zero whenever 
the Edit routine encounters (1) a record 
without one of the previous errors, (2) a 
canceled record, or (3) the first record of 
a cartridge. 
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Type Status (Byte 1) 



Program Level (Byte 2) 



The type status indicator identifies 
records in error because of SOR, EOR, 
length, field, and/or data check error 
conditions. 



This byte contains an indication of the 
start-of -record (SOR) character associated 
with this record. (See Table 49 for 
values . ) 



The type status is presented with each 
erroneous record and has a value of: 

For any record that has no identifi- 
able errors, but contains question- 
able data due to a level status of 
other than zero (see Level Status) . 

1 For any record that (1) has a SOR 
character of other than PI through P8 
or a GS code, or (2) has an EOR char- 
acter of other than a VOK code when 
you have a specified VERCHK= VOKCHK, 
or (3) has an EOR character of other 
than a VOK code or RM code when you 
have specified VERCHK=NOCHK. 

2 For any record that has an incorrect 
length because it is: 

• Longer than the specified maxi- 
mum, or 

• Shorter than the specified mini- 
mum (MINLN), or 

• Not equal to the length of the 
first valid record of the same 
program level encountered on the 
MDI cartridge from which data is 
being obtained. 

4 For any record that has one or more 
field errors. A field error is a 
field or fields where duplication 
and/or left-zero justification func- 
tions did not occur due to an error 
condition. 

8 For any record that has a data check 
error. 

The type status indicator can also have 
hexadecimal values of 3, 5, 6, 7, 9, A, B, 
C, D, E and F. These values indicate 
various combinations of SOR, EOR, length, 
field, and data check errors. For example, 
a value of A indicates a record with a data 
check error (8) as well as an incorrect 
length error (2) . 



Note : A data check error is indicated by 
the presence of 2772 replacement characters 
(i.e., EBCDIC SUB characters, X'3F'), in 
the input. 



Record Status (Byte 3) 



This byte contains an indication of the 
end-of -record (EOR) character associated 
with this record. (see Table 49 for 
values.) 



EXAMPLES OF RECORDS CONTAINING ERRORS 



Figure 40 shows some of the errors that may 
occur during processing and their effect on 
the error description word (EDW) . For 
these records, the maximum record length is 
specified as 50, EDITR and VOKCHK are spec- 
ified* and the hexadecimal REPLACE charac- 
ter is ' 5B* ($) . An asterisk in the 
records indicates the presence of a DUP 
code in the location before editing. 

Record 1 was a valid record. It con- 
tained a program level 1 code and thus 
established the valid length for all pro- 
gram level 1 records received from the 
cartridge. 

Record 2 has a data check in the SOR 
location. Level status is set to 1 because 
the SOR location might have contained a 
cancel code that would cause any data dup- 
licated into the following record to be 
questionable. 

Record 3 has no identifiable error but 
may contain questionable data because it 
contained DUP codes and follows a record 
with a level status of 1. 

Record 4 has a data check error. 
Because it contained no DUP codes, the 
level status is set to 0. 

Record 5 is shorter than first program 
level 1 records received from the cartridge 
(length error). This record also contains 
an RM code rather than a VOK code in the 
EOR location (VOKCHK was specified). 
Because the Edit routine cannot determine 
why the record is short, all data dupli- 
cated from this record is questionable; the 
level status is therefore set to 1. 
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(Record 2) 





V 
*************** *o 


19EV 


$111378 RECORD NUMBER 2AK 



( Record 3) 



201V 



p *************** *Q 

1357987 RECORD NUMBER 3AK 



(Record 4) 



081V 



V 
P O 

1 358977 REC$RD NUMBER 4AK 



(Record 5) 



131U 



P R 

1358436 RECORD NUMBER 5M 



(Record 6) 



241V 



p *************** *o 

1358436 RECORD NUMBER 6$K 



(Input record 7) 




233E 


P 

3998865 RECORD NUMBER 7A MAXIMUM 00001430 IN WAREH 


V 

O 

OUSEK 



(Error record 7) 



(Error record 8) 



21 EV 


V 

O 

OUSEK 



(Input record 8) 
(Error record 9) 



081V 



V 
P O 

1367$82 RECORD NUMBER 8AK 



Resulting Error 
Description Word 



Figure H2. Examples of Erroneous Records (IBM 50 MDI) 
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Record 6 contains a DUP code that is 
beyond the last position of the preceding 
record. 

Record 7 is longer than the maximum 
specified record length. Note that it is 
passed as two records. The first record 
indicates an EOR error and a length error; 
the second indicates an SOR error. 



duplication of the previous record's 
end-of-record delineator location or 
a position beyond the length of the 
previous record. 

The DUP code is encountered in a 
record and its position would cause 
duplication of an error replacement 
character. 



Record 9 has a data check error. 
Because it contained no DUP codes, the 
Level Status is set to zero. 



PROGRAMMING CONSIDERATIONS 



All cancelled records are bypassed and 
are not passed as erroneous records. 

All input records less than three bytes 
in length (SOR location, one data byte, 
EOR location) are treated as canceled 
records. An input record of this size 
may be the remaining portion of a 
record that was longer than the maximum 
user-specified record size. 

Data duplication occurs with the DUP 
code replaced by the character from the 
corresponding location of the previous 
record that was in the work area when 
control was last returned to the Edit 
routine. 



For either of the following conditions, 
left- zero justification does not occur, 
the left-zero-fill code (LZ) is 
replaced with the user-specified error 
replace character, and a field error is 
indicated: 

The left-zero-fill code (LZ) is 
encountered without its correspond- 
ing left-zero-start code (LZS). 

The user-specified maximum record 
size is exceeded before the valid 
end of a left-zero field is 
encountered. 

If dynamic buffering is being used, the 
BSC control characters ETB and ETX 
should not be entered as data on IBM 50 
MDI cartridges. 



END-OF-CARTRIDGE CODE 



For any of the following conditions, 
data duplication does occur and the DUP 
code is replaced with the user- 
specified error replacement character 
and a field error is indicated: 

The DUP code is encountered in the 
first record of a cartridge. 

The DUP code is encountered in a 
record and the previous record was a 
canceled record. 

The DUP code is encountered in a 
record and its position would cause 



A unique code, written by the IBM 50 MDI, 
is used to signal the 2772 control unit 
that all meaningful data on a cartridge has 
been read. For the MDI cartridge, the end- 
of-cartridge code is the ED character 
(X'19 f ), which is equivalent to the EBCDIC 
end-of-medium (EM) character (X'19'). 

After initiation of a Read operation the 
MDI continues to read data from the tape 
until it senses the ED character. When the 
MDI sends this character to the 2772, the 
277 2 signals the tape unit to rewind the 
tape and then transmits the data in its 
buffer to the central computer. 
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//TEST JOB MSGLEVEL=1 

//STEP EXEC ASMFC 

//ASM.SYSLIB DD DSN=SYS1 .MACLIB,DISP=OLD 

//SYSIN DD * 

CONFIGUR COBE=32,PC=YES,INQDISP=YES,GDU=YES,GETID=F0,STORID=F5, ) 
IDCOUNT=8,MONEBR=(4,5) ,FUNCERR= (6, 7) , ENDERR= (8,9) 

* THE CORE=32 OPERAND OF THE CONFIGUR MACRO 

* INDICATES THAT THE 2715 HAS 32K OF STORAGE 

* AVAILABLE. CODING PC=YES, INDICATES THAT 

* PULSE COUNTERS EXIST ON THIS 2790 SYSTEM. 

* INQDISP=YES INDICATES THAT INQUIRY DISPLAY 

* HILL BE USED ON THE 2790 SYSTEM. GDU=YES 

* INDICATES THAT 2798 GUIDANCE DISPLAY UNITS 

* ARE ON THIS 2790 SYSTEM. THE USER CAN 

* DEFINE EIGHT IDENTIFIERS. THE GET IDENTIFIER 

* CHARACTER IS THE EBCDIC CHARACTER AND THE 

* STORE IDENTIFIER CHARACTER IS THE EBCDIC 

* CHARACTER 5. IF A MONITOR KEY CHECK FAILS, 

* ERROR GUIDANCE LIGHTS H AND 5 WILL BE 

* TURNED ON AT THE 2798. WHEN AN INVALID 

* FUNCTION IS RECOGNIZED, ERROR GUIDANCE 

* LIGHTS 6 and 7 WILL BE TURNED OS AT THE 2798. 

* WHEN A PREMATURE TERMINATION ERROR OCCURS, 

* ERROR GUIDANCE LIGHTS 8 AND 9 WILL BE 

* TURNED ON AT THE 2798. 

* THE FOLLOWING AS MACROS DEFINE 60 AREA 

* STATIONS WITH ID'S BETWEEN AND 59 

* FROM WHICH TRANSACTIONS CAN BE ENTERED. 

* WORKOUT AND NORMAL ARE THE NAMES OF THE 

* TGROUP MACROS THAT DEFINE THE TRANSACTION 

* CODES THAT CAN BE USED FROM THE DATA ENTRY 

* UNITS ON THE SYSTEM. CONTROL IS THE NAME OF 

* THE TGROUP MACRO THAT DEFINES THE TRANSACTION 

* CODES THAT CAN BE USED FROM THE AREA STATIONS. 

* FOR EXAMPLE, THE AS MACRO DEFINING THE AREA 

* STATION WHOSE ADDRESS IS DECIMALLY REPRESENTED 

* BYID=01 INDICATES THAT WORKOUT IS THE NAME 

* OF THE TGROUP MACRO DEFINING WHICH TRANSACTIONS 

* CAN BE USED BY THE i2 DATA ENTRY UNITS CN 

* THIS AREA STATION. THE TRANSACTIONS THAT CAN 

* BE USED BY THE DATA ENTRY UNITS ARE NOT THE 

* SAME AS THOSE THAT CAN BE USED BY THE AREA 

* STATIONS IN THIS TABLE LOAD. 
* 

* 
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AS ID=00,DEGROUP= (WORKOUT, 32) 

AS ID=01,DEGROUP=(WORKOUT,32) 

AS ID=02,DEGROUP= (WORKOUT, 4) 

AS ID=03,ASGROUP=CONTROL,DEGROUP= (NORMAL, 32) 

AS ID=04,ASGROUP=CONTROL 

AS ID=05,ASGROUP=CONTROL 

AS ID=06,ASGROUP=CONTROL 

AS ID=07,ASGROUP=CONTROL 

AS ID=08,ASGROUP=CONTROL 

AS ID=09,ASGROUP=CONTROL 

AS ID=10,ASGROUP=CONTROL 

AS ID=11,ASGEOUP=CONTROL 

AS ID=12,ASGROUP=CONTROL 

AS ID=13,ASGROUP=CONTROL 

AS ID=14,ASGROUP=CONTROL 

AS ID=15,ASGROUP=CONTROL 

AS ID=16,ASGROUP=CONTROL 

AS I D= 1 7 , AS GROUP=CONTROL 

AS ID=19,ASGROUP=CONTROL 

AS ID=20,ASGROUP=CONTROL 

AS ID=21,ASGROUP=CCNTROL 

AS ID=22,ASGROUP=CONTROL 

AS ID=23,ASGROUP=CONTROL 

AS ID=24,ASGROUP=CONTROL 

AS ID=25,ASGROUP=CONTROL 

AS ID=26,ASGROUP=CONTR0L 

AS ID=27,ASGROUP=CONTROL 

AS ID=28,ASGROUP=CONTROL 

AS ID=29,ASGROUP=CONTROL 

AS ID=30,ASGROUP=CONTROL 

AS ID=31,ASGROUP=CONTROL 

AS ID=32,ASGROUP=CONTROL 

AS ID=33,ASGROUP=CONTROL 

AS ID=34,ASGROUP=CONTROL 

AS ID=35,ASGROUP=CONTROL 

AS ID=36,ASGROUP=CONTROL 

AS ID=37,ASGROUP=C0NTR0L 

AS ID=38,ASGROUP=CONTROL 

AS ID=39,ASGROUP=CONTROL 

AS ID=40,DEGROUP={WORKOUT1,4) 

AS ID=41,DEGROUP=(WORKOUT1 ,H\ 

AS ID=42,DEGROUP=(WORKOUT1,4) 

AS ID=43,DEGR0UP=(W0RK0UT1 ,4) 

AS ID=44,ASGROUP=CONTROL,DEGROUP= (NORMAL, 4) 

AS ID=45,ASGROUP=CONTROL, BEG ROUP= (NORMAL, 4) 

AS ID=46,ASGROUP=CCNTROL,DEGROUP= (NORMAL, 4) 

AS ID=47,ASGROUP=CONTROL,DEGROUP= (NORMAL, 4) 

AS ID=48,DEGROUP=(WORKOUT,4) 

AS ID=49,DEGROUP=(WORKOUT,4) 

AS ID=50,DEGROUP=(WORKOUT,4) 
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AS ID=51,DEGROUP=(WORKOUT,4) 

AS ID=52,ASGROUP=CONTROL 

AS ID=53,ASGROUP=CONTROL 

AS ID=54,ASGBOUP=CONTFOL 

AS ID=55,ASGROUP=CONTROL 

AS ID=56,DEGROUP= (WORKOUT, 4) 

AS ID=57,DEGROUP=(WORKOUT,4) 

AS ID=58,DEGBOOP=(WORKOUT # a) 

AS ID=59,ASGROUP=CONTROL 
* 
* 

* THE FOLLOWING GDUAS MACROS INDICATE THAT 

* THIS SYSTEM HAS FOUR AREA S.TATIONS WITH 

* 2798 GUIDANCE DISPLAY UNITS ATTACHED. THE 

* GDUNUMB OPERAND INDICATES THE NUMBER OF 

* 279 8S ON THAT PARTICULAR AREA STATION. 

* THERE ARE A TOTAL OF 48 279 8 GDUS ON 

* THIS SYSTEM. 
* 

* 

GDUAS ID=00,GDUNUMB=16 

GDUAS ID=02,GDUNUMB=4 

GDUAS ID=43,GDUNUMB=16 

GPIJAS ID=44.GDUNUMB=12 
* 

* THE FOLLOWING TGROUP MACROS ASSOCIATE 

* SPECIFIC TRANSACTION CODES WITH USER 

* DEFINED TRANSACTIONS. THE TRANSACTION 

* CODES CAN BE SPECIFIED FROM EITHER DATA 

* ENTRY UNITS OR FROM AREA STATIONS BUT CAN 

* NOT BE SPECIFIED FROM 2798 GUIDANCE DISPLAY 

* UNITS. 
* 

* 

CONTROL TGROUP TC1=BADGE, TQ2=BADGE1 , TC 3= MANUAL, TC4=CARD, TC5=CARD1 , 
TC6=CARD2,TC7=BADGF, TC9= (EXPAND, E) 

* THIS TRANSACTION GROUP IS ENTERED BY THE 

* 2715 WHEN THE USER SELECTS TRANSACTION 

* CODES 1-7 OR 9 FROM AREA STATIONS WHOSE 

* ADDRESS IS DECIMALLY REPRESENTED BY IDS 

* FROM 03-39, 44-47, 52-55, OR 59. IF 

* TRANSACTION CODE 1 IS SPECIFIED BY THE 

* USER AT ONE OF THE ABOVE AREA STATIONS, 

* THE TRANSACTION DEFINED BY THE TRLIST 

* MACRO WITH THE NAME BADGE IS ENTERED 

* BY THE 2715. LIKEWISE, THIS TGROUP MACRO 

* ASSOCIATES ALL ALLOWABLE TRANSACTION 

* CODES THAT CAN BE SPECIFIED FROM THE 

* ABOVE AREA STATION WITH A USER DEFINED 

* TRANSACTION BEGINNING WITH A TRLIST MACRO. 

* WHEN TRANSACTION CODE 9 IS SPECIFIED ON 

* ONE OF THE ABOVE AREA STATIONS, THE USER 

* MUST SPECIFY ONE MORE TRANSACTION CODES 

* AS INDICATED BY THE FOLLOWING EXPAND 
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* TGROUP MACRO. TRANSACTION CODES 91,92,93, 

* 94,95, AND 96 ABE ASSOCIATED WITH A 

* DIFFERENT TRANSACTION- THIRTEEN 

* DIFFERENT TRANSACTIONS CAN BE SPECIFIED BY 

* OPERATORS ON THE ABOVE ARIA STATIONS, 

* CODING E AS IN THE TC9 OPERAND INDICATES 

* THAT THE ADDITIONAL TRANSACTIONS POINTED 

* TO BY THE FOLLOWING EXPAND TGROUP flACRO 

* CAN BE SPECIFIED BY THE OPERATORS ON THE 

* ABOVE AREA STATIONS. 

EXPAND TGROUP TC1=EXP1 ,TC2=EXP2 ,TC3=EXP3, TC4=EXP4,TC5=EXP5, TC6=EXP5 

NORMAL TGRODP TC1=DEU 1,TC 2=DEU2 ,TC3=DEU3 ,TC4=DEU4 ,TC5= (EXPDEU,E) , X 

TC6-DED6 ,TC7=ALARM,TC8=ALRHTX, TC9=TEXT 

* THIS TRANSACTION GROUP IS ENTERED BY THE 

* 2715 WHEN A TRANSACTION CODE OF 1,2,3,4,51, 

* 52,53,54,6,7,8, OR 9 IS SPECIFIED AT A DATA 

* ENTRY UNIT ON AN AREA STATION WHOSE ADDRESS 

* IS DECIMALLY REPRESENTED BY ID=03 ,44,45,46, 

* OR 47. 

EXPDEU TGROUP TC1=DEUEXP, TC2=DEUEXP,TC3=DEUEXP,TC4=DEUEXP 

WORKOUT TGROUP TC1= (ALRMESG, E) ,TC2= (ALRMESG, E) ,TC3=EXP, TC4=CPO, X 

TC5*READ,TC6=READST,TC7=READSID,TC8=DISK,TC9=DISK 
WORKOUT1 TGROUP TC1=RDIPSG,TC2=RDEPSGM ,TC3=RDEPSGB,TC4=RDEPGPM, X 

TC5=RDEPGPB,TC6=RDRSTIP,TC7=RDRSTEPM, X 

TC8=(EXPAND1,E) , TC9= (EXPAND2 ,E) 
EXPAND1 TGROUP TC1=RDSTIPM,TC2=RDST EPM, TC3=RDSTEPB,TC4=RDSIDEPM , X 

TC5=RDSIDGPM,TC6=RDSIDGPB,TC7=WRIPB,TC8=WREPM,TC9=CPU 
ALRMESG TGROUP TC1= ALARM, TC2= ALRMTX,TC3=TEXT,TC4=EXPALM , X 

TC5=EXPALMTX,TC6=EXPTX,TC7=CPU,TC8=CPU,TC9=CPU 
EXPAND2 TGROUP TC1=RDGPEPAA,TC2=RDGPEPBB,TC3=RDSIEPAA, X 

TC4=RDMSIEP,TC5=RDSIIPAA,TC6=RDSIIPAB 
* 
* 

* THE FOLLOWING ASCTR MACROS DEFINE THE AREA 

* STATIONS WITH PULSE COUNTERS ATTACHED. ONE 

* ASCTR MACRO MUST BE CODED FOR EVERY AREA 

* STATION WITH PULSE COUNTERS ATTACHED. 
* 

* 

ASCTR ID=01,HIGHCTR=23,ROUTE= (DISK, LOG) 

* THIS ASCTR MACRO INDICATES THAT 23 IS THE 

* HIGHEST COUNTER ON THE AREA STATION WITH 

* ID=01 ON WHICH EITHER COUNT TESTING OR 

* SCHEDULE READOUT FUNCTIONS ARE TO BE 

* PERFORMED BY THE 2715. OVERFLOW AND COUNT 

* TEST RESPONSE MESSAGES WILL BE ROUTED TO 

* THE 2715 DISK AND THE 2740* 
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ASCTR ID=40,HIGHCTR=00,ROUTE=CPU,NEXTAS=42 

THIS ASCTR MACRO INDICATES THAT NO COUNTERS 
ON THE AREA STATION WITH ID=40 WILL USE 
COUNT TESTING OR SCHEDULE READOUT FUNCTIONS. 
OVERFLOW MESSAGES WILL BE TREATED AS 
PRIORITY DATA TO BE ROUTED TO THE CPU BY 
2715. NEXTAS=i»2 INDICATES THE NEXT AREA 
STATION THAT HAS COUNTERS FOR WHICH COUNT 
TESTING OR SCHEDULE READOUT FUNCTIONS WILL 
BE PERFORMED HAS ID=42. 
ASCTR ID=41,HIGHCTR=00,ROUTE=CPU,NEXTAS=42 

ASCTR ID=42, HIGHCTR=2, ROUTE= (CPU,EXTALRM, ASLOG) 

ASCTR ID=48,HIGHCTR=00,ROUTE=CPU,NEXTAS=0 

CODING NEXTAS=0 IN THIS ASCTR MACRO 
INDICATES THAT THERE ARE NO MORE AREA 
STATIONS ON THE 2790 SYSTEM THAT HAVE 
COUNTERS THAT WILL USE COUNT TESTING OR 
SCHEDULE READOUT FUNCTIONS. 
ASCTR ID=5 8,HIGHCTR=00 # ROUTE=CPU,NEXTAS=0 



THE FOLLOWING CTRGROUP MACROS DEFINE EVERY 
COUNTER FOR WHICH COUNT TESTING OR SCHEDULE 
READOUT MAY BE PERFORMED. 



CTRGROUP 1, 1,14,ID=01,SROENAB=YES,CTINIT=NCT 

THIS CTRGROUP MACRO INDICATES THAT THE 
READOUT SCHEDULE USED WILL BE THE FIRST 
SCHEDULE (1 MINUTE) DEFINED BY THE 
CTRSCHED MACRO FOR COUNTER 1 ON THE AREA 
STATION WITH ID=0 1. THE COUNT TEST 
SCHEDULE TO BE USED WILL BE THE FOURTEENTH 
SCHEDULE (183 MINUTES) DEFINED BY THE 
CTRSCHED MACRO. SROENAB=YES INDICATBS THAT 
SCHEDULE READOUT WILL BE AUTOMATICALLY 
STARTED AT ICPL TIME AT THE 2715 FOR THIS 
COUNTER. CTINIT=NCT INDICATES THAT NO COUNT 
TESTING WILL BE STARTED AT ICPL TIME BY THE 
2715 FOB THIS COUNTER. 

CTRGROUP 2,2,7,ID=01,SROENAB=YES,CTINIT=NCT 

CTRGROUP 3,3 , 10 , ID=0 1, SROENAB=YES, CTINIT=UNASP 

CTRGROUP 6,13,8,ID=01,CTINIT=UNASP 

CTRGROUP 7,5,9,ID=01,SSOENAB=YES 

CTRGROUP 1 1,9, 11,ID=01,SROENAB=YES,CTINIT= NULL 

CTRGROUP 16,4,8,ID=01,CTINIT=NCT 

CTRGROUP 17,6,1,ID=01,SROENAB=YES,CTINIT=NCT 

CTRGROUP 23,7,12,ID=01,SROENAB=YES,CTINIT=NCT 

CTRGROUP 1, 1,0,ID=42,SROENAB=YES 

CTRGROUP 2,0,U,ID=**2,CTINIT=NCT 
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CTRSCHED 1,2,3,4,4,3,2,1,1,1,6,90,83,183 

* THE CTRSCHED MACRO DEFINES ALL THE SCHEDULES 

* THAT CAN BE USED FOR SCHEDULE READOUT OR 

* COUNT TESTING. EACH SCHEDULE IS DEFINED IN 

* iMINUTES. FOURTEEN SCHEDULES ARE DEFINED HERE. 
* 

* THE FOLLOWING GDUTBANS MACROS ASSOCIATE USER 

* DEFINED TRANSACTION CODES FOR THE 2798 GDU 

* »ITH DEFINED TRANSACTIONS. THE TRCODE OPERAND 

* INDICATES THE TRANSACTION CODE. THE TRLIST 

* OPERAND INDICATES THE NAME OF THE TRLIST MACRO 

* THAT DEFINES THE CORRESPONDING TRANSACTION. 

* . 
* 

GDDTRANS TRCODE=00,TRLIST=TEST0 
GDUTRANS TRCODE=0 1,TRLIST=TEST1 
GDUTRANS TRCODE=02, TRLIST=TEST2 
GDUTRANS TRCODE=0 3,TRLIST=TEST3 
GDUTRANS TRCODE=04, TRLIST=TEST4 
GDUTRANS TRCODE=05, TRLIST=TEST5 
GDUTRANS TRCODE=06, TRLIST=TEST6 
GDUTRANS TRCODE=07,TRLIST=TEST7 
GDUTRANS T8CODE=08,TRLIST=TEST8 
GDUTRANS TRCODE=10,TRLIST=ROUTE 1 
GDUTRANS TRCODE=1 1,TRLIST=ROUTE2 
GDUTRANS TRCODE= 1 2,TRLIST=TESTJ0B1 
GDUTRANS TRCODE=1 3, TRLIST=TESTJOB2 
GDUTRANS TRCODE=1 4,TRLIST=TESTJOB3 
GDUTRANS TRCODE=1 5, TRLIST=CARDORD 
GDUTRANS TRCODE=16 ,TRLIST=UALMAINT 
GDUTRANS TRCODE=1 9,TRLIST=INV1 
GDUTRANS TRCODE=20,TRLIST=INV2 
GDUTRANS TRCODE=2 1, TRLIST=INV3 
GDUTRANS TRCODE=22,TRLIST=INV4 
GDUTRANS TFCODE=23, TRLIST-INV5 
GDUTRANS TRCODE=24,TRLIST=STOCK 
GDUTRANS TRCODE=25,TRLIST=I NPROC 
GDUTRANS TRCODE=26,TRLIST=LEADTIME 
GDUTRANS TRCODE=27, TRLIST=RATING 
GDUTRANS TRCODE=28,TRLIST=SUPPLIER 
GDUTRANS TRCODE=29,TRLIS?=I NTRANS 
GDUTRANS TRCODE=30,TRLIST=LINE 
GDUTRANS TRCODE=3 1,TRLIST=BIN 
GDUTRANS TRCODE=32,TRLIST=RA»MAT 
GDUTRANS TRCODE=33,TRLI ST=ORDER 
GDUTRANS TRCODE=34 ,TRLIST=QUALCON 
GDUTRANS TRCODE=35, TRLI ST=Q UOTE 
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GDUTRANS TRCODE=36, TRLI ST=LASTPUR 

GDUTRANS TRCODE=37,TRLIST=ECONQTY 

GDUTRANS TRCODE=38,TRLIST=CREDIT 

GDUTRANS TRCODE=39,TRLIST=QUADEQN 



THE FOLLOWING PARAMNUM MACROS ASSOCIATE USER 
DEFINED PARAMETER LIST NUMBERS HITH PARAMETER 
LISTS TO BE USED BY THE 2715 TO CHECK DISPLAY 
ENTRIES FROM THE 2798 GDO. 

THE PLN OPERAND DEFINES THE PARAMETER LIST 
NUMBER AND THE PARMLST OPERAND INDICATES THE 
NAME OF THE PARMLIST MACRO THAT DEFINES THE 
CORRESPONDING PARAMETER LIST. THE USER SPECIFIES 
WHICH PARAMETER LIST HE HISHES THE 2715 TO USE 
WHEN CHECKING A 2798 DISPLAY ENTRY BY CODING 
THE PARAMETER LIST NUMBER OF A DEFINED 
PARAMNUM MACRO IN THE PARAMNO OPERAND OF THE 
GDULIST MACRO. 



PARAMNUM 


PLN 


PARAMNUM 


PLN 


PARAMNUM 


PLN 


PARAMNUM 


PLN 


PARAMNUM 


PLN 


PARAMNUM 


PLN 


PARAMNUM 


PLN; 


PARAMNUM 


PLN^ 


PARAMNUM 


PLN 


PARAMNUM 


PLN 


PARAMNUM 


PLN: 


PARAMNUM 


PLN: 


PARAMNUM 


PLN: 


PARAMNUM 


PLN 


PARAMNUM 


PLN= 


PARAMNUM 


PLN 


PARAMNUM 


PLN: 


PARAMNUM 


PLN 


PARAMNUM 


PLN: 


PARAMNUM 


PLN 


PARAMNUM 


PLN= 


PARAMNUM 


PLN 


PARAMNUM 


PLN: 


PARAMNUM 


PLN 


PARAMNUM 


PLN: 


PARAMNUM 


PLN: 


PARAMNUM 


PLN: 



=01,PARMLST= 
= 02,PARMLST= 
=03,PARMLST= 
=04,PARMLST= 
=05,PARMLST= 
=06,PARMLST- 
= 07, PARMLST* 
=08,PARMLST= 
=09,PARMLST= 
=10, PARMLST= 
=11,PARMLST= 
=12,PARMLST= 
=13,PARMLST= 
=14,PARMLST- 
=15,PARHLST= 
=16,PARMLST= 
=17,PARMLST= 
=18, PARMLST= 
=19,PARMLST= 
=20,PARMLST= 
=21,PARMLST= 
=22, PARMLST= 
=2 3,PARMLST= 
=24,PARMLST- 
=25,PARMLST= 
=26, PARMLST^ 
=27,PARMLST= 



PARI 
=PAR2 
PAR3 
=PAR4 
PAR5 

:PAR6 

PAR7 
=PAR8 
PAR9 
=PAR10 
PAR11 
PAR12 
PAR 13 
=PAR14 
PAR15 
PAR 16 
PAR17 
PAR 18 
PAR19 
PAR20 
PAR21 
PAR22 
PAR23 
PAR2U 
PAR 25 
PAR26 
PAR27 
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* 

* 
* 

PARI 

* 
* 
* 

PA82 

* 
* 

PAR3 

* 
* 
* 

♦ . 
PAR4 



PARAMNUM 
PAR ANNUM 
PARAMNUM 
PARAMNUM 
PARAMNUM 
PARAMNUM 
PARAMNUH 
PARAMNUM 
PARAMNUM 
PARAMNUM 
PARAMNUM 
PARAMNUM 



PLN= 
PLN 
PLN= 
PLN^ 
PLN= 
PLN= 
PLN^ 
PLN; 
PLN^ 
PLN^ 
PLN= 
PLN^ 



=28,PARMLST= 
=29,PARMLST= 
= 30,PARMLST= 
:31 # PARMLST= 
=32,PARMLST= 
=33,PARMLST= 
=34,PARMLST= 
=35,PARMLST= 
=36,PARMLST= 
= 37,PARMLST* 
= 38,PARMLST= 
= 39,PARMLST= 



PAR28 
PAR29 
PAR30 
PAR31 
PAR32 
PAR33 
PAR34 
PAR35 
PAR36 
PAR 37 
PAR38 
PAR3 9 



THE FOLLOWING PARMLIST MACROS GENERATE THE 
PARAMETER LISTS TO BE USED BY THE 2715 TO 
CHECK DISPLAY ENTRIES FROM THE 2798 GDU. 



PARMLIST CKMONKY=NO,TRANSL=YES 

THIS MACRO INDICATES THE 2715 WILL NOT 
CHECK THE DISPLAY ENTRY TO SEE IF THE MONITOR 
KEY IS ON AND THE TRANSLATE FUNCTION MAY BE 
USED. 

PARMLIST CKLNGTH= (17,11) 

THIS MACRO INDICATES THAT IF THE LENGTH OF A 
2798 GDU ENTRY LENGTH IS NOT 17 CHARACTERS 
LONG (16 DATA CHARACTERS PLUS MONITOR KEY BYTE), 
THEN OPERATIONAL GUIDANCE LIGHT 11 WILL BE 
TURNED ON AT THE 2798 TO INDICATE AN ERROR. 

PARMLIST CKMONKY=YES,CKNOD11= (15, 2, 13), IDENT=IES 

THIS MACRO INDICATES THAT THE 2715 WILL CHECK 
THE MONITOR KEY BYTE IN THE GDU ENTRY TO INSURE 
THAT IT WAS ON. IF THE MONITOR KEY IS OFF, THE 
ERROR GUIDANCE DEFINED BY THE MONERR OPERAND 
OF THE CONFIG UR MACRO WILL BE DISPLAYED ON THE 
2798. THE MODULUS 11 CHECK WILL BE 
PERFORMED BY THE 2715 IN POSITIONS 
15 AND 16. THE CHECK CHARACTER WILL BE IN 
POSITION 17. IF THE MODULUS 11 VALUE DOES NOT 
EQUAL THE CHECK CHARACTER THEN OPERATIONAL 
GUIDANCE LIGHT 13 WILL BE TURNED ON AT THE 
2798 TO INDICATE AN ERROR. THE STORE OR GET 
IDENTIFIER FUNCTION MAY BE USED IN THIS DATA 
ENTRY. 

PARMLIST CKMONKY=YES,CKHOD10= (15,2,13) ,IDENT=YES 
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PAB5 PARMLIST CK0R=(2,C1,C6,D2,D7,E4) ,OBGUID=9 

* THIS HACBO INDICATES THAU AN OR CHECK WILL BE 

* PERFORMED ON THE CHARACTER IN POSITION 2 OF THE 

* 2798 GDU ENTRY FOR ONE OF THE FOLLOWING EBCDIC 

* CHARACTERS: A,F,K,P,OR 0. IF THE CHARACTER IN 

* POSITION 2 IS NOT ONE OF THE SPECIFIED 

* CHARACTERS, THEN OPERATIONAL GUIDANCE LIGHT 9 

* WILL BE TOBNED ON AT THE 2798 TO INDICATE AN 

* ERROR. 

PAR6 PARMLIST CKOR= (3,C2, C7, D3 , D8, E5) , OBGUID=9 

PAB7 PARMLIST CKOR= (4,C3,C8, D4 ,D9,E6) , OBGUID=9 

PAB8 PARMLIST CKOR= (5 , C4, C9, D5,E2, E7) , ORGUID=9 

PAR9 PARMLIST CKOB = (6,C5,D1 , D6 ,E3,E8) ,0BGUID=9 

PAR10 PABHLIST CKOR=<7,E9,7B, F1,F6,7C) ,OBGUID=9 

PAB11 PARMLIST CKOR= (8, 7F,5A , F2 ,F7, 61 ) ,0RGUID=9 

PAR12 PARMLIST CKOR= (9 , 7E, 5E, F3, F8, 15) , ORG0ID=9 

PAR13 PARMLIST CKOR= (10 ,7 A, 5C,F4, F9 , 25) ,ORGUID=9 

PAR14 PARMLIST CKOR= { 1 1 ,6F, 4E ,F5,F0, 05) ,ORG UID=9 

PAR15 PARMLIST CKOR= (12 ,5B, 6B) , ORGO ID=9 

PAR16 PARMLIST CKOR= ( 1 3, 50, 4B) , ORGUID=9 

PAR17 PARMLIST CKOR= (14,60,40) ,ORGUID=9 

PAR18 PARMLIST CKOB= (15, 5A) ,ORGUID=9, * 

CKAND=(2,14,F1,F2,F3,F4,F5, F6,F7, F8, F9, F0,7C, 61, 15) , * 

ANDGUTD=16 

* THIS MACRO INDICATES THAT AN OR CHECK WILL BE 

* PERFORMED ON THE CHARACTER IN POSITION 15 OF 

* THE 2798 ENTRY FOR AN 1 CHARACTER. IF IT IS NOT, 

* OPERATIONAL GUIDANCE LIGHT 9 WILL BE TURNED 

* ON AT THE 2798 TO INDICATE AN ERROR. ALSO, AN 

* AND CHECK IS PERFORMED AND THE CHARACTERS IN 

* POSITIONS 2 THBOUGH 14 MUST BE EXACTLY THE 

* FOLLOWING CHABACTEBS: 1,2,3,4,5,6,7,8,9,0,9,1, 

* NEW LINE. IF THE AND CHECK IS NOT SATISFIED, 

* OPERATIONAL GUIDANCE LIGHT 16 WILL BE 

* TURNED ON AT THE'2798 TO INDICATE AN ERROR. 
PAR19 PARMLIST CK0R=<16, 05) ,OBG0ID=9, * 

CKAND= (2,15,7F,7E,7A,6F,5A,5E,5C,4E,5B,50,60,25,6B,4B) , * 

ANDGUID=16 
PAR20 PARMLIST CKOB= (17, 4E) ,OBGUID=9, * 

CKAND=(2,16,D8,D9,E2,E3,E4,E5,E6,E7,E8,E9,7B,40,6B,UB, * 

05) ,ANDGUID=16 
PAB21 PARMLIST CKAND= (2, 17, C 1 ,C2,C3 ,C4,C5 ,C6,C7 ,C8 ,C9 ,D1 , D2 ,D3 ,D4 * 

D5,D6,D7) ,ANDGUID=16 
PAR22 PARMLIST CKNUM=(2, 17, 12) 

* THIS MACRO INDICATES THAT CHARACTERS IN 

* POSITIONS 2 THROUGH 17 MUST BE NUMERIC. IF 

* ALL THE CHARACTERS IN THE FIELD ARE NOT 

* NUMERIC, OPERATIONAL GUIDANCE LIGHT 12 

* SILL BE TUBNED ON AT THE 2798 TO INDICATE AN 

* ERROR. 
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PAB23 PARMLIST CKNONUM= (2,17, 10) 

* THIS MACRO INDICATES THAT POSITIONS 2 THROUGH 

* 17 WILL BE CHECKED TO INSURE THAT ALL 

* CHARACTERS ARE NON-NUMERIC. IF A NUMERIC 

* CHARACTER IS POUND IN THE FIELD, 

* OPERATIONAL GUIDANCE LIGHT 10 RILL BE TURNED ON 
*• AT THE 2798 TO INDICATE AN ERROR. 

PAR24 PARMLIST CKRANGE= (2 , 1 7, 73 ,00, 00,00, 00,00, 00,00, 00 ,00, 00,00, * 

00,00,00,00) ,HIG0ID=9,LOWGUID=13 
PAR25 PARMLIST CKMONKY=YES,CKLNGTH= (8,11) ,CKNUM= (7,8, 12), * 

CKAND= (2,6,5B,00,00,00,4B) ,ANDGUID=10 
PAR26 PARMLIST CKMONKY=YES,CKLNGTH= (17,11), CKMOD11=(6, 11,13) , ♦ 

IDENT=YES,CKMOD10= (5,2, 9) , CKOR= (8, 5C,60, FO ,4E, 40, * 

ORGUID=10 
PAR27 PARMLIST CKLNGTH= (13,11) ,CKMOD10= (11,2,13) ,CKMONKY= YES, * 

IDENT=YES 
PAR28 PARMLIST CKNUM= (2,4, 1 2) ,CKNONUM= (5, 6 , 10) ,CKRANGE= (7,8 ,8 1 ,81) , * 

HIGUID=9,LOWGUID=13 
PAR29 PARMLIST CKLNGTH= (3, 1 1) ,CKOR= (2 ,C1 ,C2 ,C3 ,C4 ,C5) ,ORGUID= 10 , * 

CKNUM= (3,3,11) 
PAR30 PARMLIST CK0R= (2, 4E,60) ,ORGUID= 10,CKNUM= ( 3, 5, 12) 

PAR31 PARMLIST CKLNGTH= (6, 1 1) ,CKRANGE= (2,6 ,10 ,09,55 ,00,00 ) , * 

HIGUID=9,LOWGUID=13 
PAR32 PARMLIST 

PAR33 PARMLIST CKLNGTH= (7,11) ,CKNUM= (2, 7,12) ,IDENT=YES 

PAR34 PARMLIST CKLNGTH=(5, 11) ,CK0R= (2, 4E, 60) ,ORGUID=10, * 

CKRANGE= (3,5,10,50,00) , * 

HIGUID=9,LOWGUID=13,RNGETST=EBROR 
PAR35 PARMLIST CKLNGTH= (1 1 , 1 1 ) , CKOR= (4,C4,E3) ,ORGUID= 10,CKAND= (2, 3, * 

E2,D3) ,ANDGUID=10,CKRANGE= (5,11,55,88,00,73,80,39,78) , * 

HIGUID=9,L0WGUID=13,RNGETST=ERR0R 
PAR36 PARMLIST CKLNGTH= (9 , 1 1) ,CKMOD 1 1= (7, 2, 13) , IDENT=YES 

PAR37 PARMLIST CKMONKY=YES,IDENT=YES 

PAR38 PARMLIST CKRANGE= (2,3,50,90) , * 

HIGUID=9,LOWGUID=13,RNGETST=ERROR 

* THIS MACRO INDICATES THAT A RANGE CHECK WILL BE 

* PERFORMED ON POSITIONS 2 AND 3 TO CHECK THAT 

* THEIR VALUE LIES BETWEEN 00 AND 59. IF THE 

* VALUE OF THE FIELD IS HIGHER THAN 59, 

* OPERATIONAL GUIDANCE LIGHT 9 IS TURNED ON 

* AT THE 2798. IF THE VALUE OF THE FIELD IS 

* LESS THAN 0, OPERATIONAL GUIDANCE LIGHT 13 

* IS TURNED ON AT THE 2798. RNGETST=ERROR 

* INDICATES THAT THE 2715 WILL NOT ACCEPT 

* RANGE TEST BUT TREATS IT AS AN ERROR. 
PAR39 PARMLIST CKLNGTH= (11,11) ,CKNUM= (8,11,12) , 

CKAND= (2,7,F2,F3,F9,F5,F1,F1) , ANDGUID=13 * 
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DG6 

DG7 

DG8 

DG9 

DG10 

DG11 

DG12 

DG14 

DG15 

DG16 

DG17 

DG18 

DG19 

DG20 

DG21 

DG22 

DG23 

DG2U 

DG25 

DG26 

DG27 
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THE FOLLOWING DISPGUID MACHOS DEFINE THE 
DISPLAY GUIDANCE MESSAGES THAT CAN BE 
DISPLAYED WHEN A TRANSACTION STEP IS ENTERED. 
THE USER INDICATES WHICH MESSAGE HE WANTS 
DISPLAYED AT THE 2798 FOR A STEP BY CODING 
THE NAME OF A DISPGUID MACRO IN THE DISPMSG 
OPERAND OF A GDOLIST MACRO. CODING SUPPRES=NO 
IN ANY OF THE FOLLOWING DISPGUID MACROS 
INDICATES THAT WHENEVER THE DEFINED DATA IN 
THE PARTICULAR MACRO IS WRITTEN TO THE 2798 
DISPLAY BY THE 2715, THAT DATA WILL BE RETURNED 
TO THE 2715 ON THE NEXT ACTIVATION OF THE 
ENTER KEY UNLESS IT HAS BEEN CHANGED BY THE 
OPERATOR. CODING SUPPRESSES OR OMITTING THE 
OPERAND INDICATES THAT WHENEVER THE DEFINED 
DATA IN THE PARTICULAR DISPGUID MACRO IS 
WRITTEN TO THE 2 79 8 DISPLAY BY THE 2715, THAT 
DATA WILL NOT BE RETURNED TO THE 2715 ON THE 
NEXT ACTIVATION OF THE ENTER KEY. 



TESTDATA' 

ENTER «,SUPPRES=NO 



DISPGUID DISPMSG=»2=1ENTR 

DISPGUID DISPMSG=»DEPRESS 

DISPGUID DISPMSG=*STEP 2» 

DISPGUID DISPMSG= »STEP 3* 

DISPGUID DISPMSG=»STEP 4* 

DISPGUID DISPKSG=»STEP 5» 

DISPGUID DISPMSG^ 'GET/STORE' 

DISPGUID DISPMSG=«3-1ENTR SERVCODE 

DISPGUID DISPMSG^S^BLDG/COLDMN 1 

DISPGUID DISPMSG=»MAT 1-1 « 

DISPGUID DISPMSG=»MAT 2-2 » 

DISPGUID DISPMSG=» SELECT LEVS 

DISPGUID DISPMSG=»MAT 1-2 

DISPGUID DISPMSG=»OLD PART* 

DISPGUID DISPMSG=»NEW PART* 

DISPGUID DISPMSG=«TRANSLATE» 

DISPGUID DISFMSG=»ENTER TEXT* 

DISPGUID DISPMSG=«LOCATE20-ORDER21 » 

DISPGUID DISPMSG=«STOCK2U-INPROC25« 

DISPGUID DISPMSG=»PRICE22-OTHER23» 

DISPGUID DISPMSG=»QU035-LP36-QTY37» 

DISPGUID DISPMSG=«LT2 6-RAT2 7-SUP28« 

DISPGUID DISPMSG= , IT29-LIN30-BIN31 I 

DISPGUID DISPMSG=«RH32-0RD33-QC34» 

DISPGUID DISPMSG= f WAIT FOB ANSWER 4 

DISPGUID DISPMSG=«239511«,SUPPRES=NO 



TO 3' 

SL« ,SUPPRES=NO 
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DG28 

DG29 

DG37 

DG38 

DG39 

* 

* 

# 
* 

* 
* 
* 



DISPGUID DlSPMSG=*TOTAL PURCHASE 1 
DISPGUID DISPHSG= , 3-2 TO ADR=» 
DISPGUID DISPMSG=*QUAD EQN A= • 
DISPGUID DISPMSG=»B=« 
DISPGUID DISPMSG=*C=* 



* 
* 

* 

* 
CPU 

* 

BADGE 

* 
* 
* 
* 

BADGE1 

* 
* 



THE FOLLOWING TRANSLAT MACROS EACH ASSOCIATE 
A USER DEFINED TRANSLATE CHARACTER WITH UP TO 
14 CHARACTERS OF TEXT. THE USER CAN ONLY USE 
THE TRANSLATE FUNCTION ON ANY TRANSACTION 
STEP (GDULIST MACRO) THAT HAS A PARAMETER LIST 
NUMBER (PARAMNO OPERAND) ASSOCIATED WITH A 
PARMLIST MACRO THAT HAS TRANSL=TES CODED. 



TRANSLAT TRANSCH=C3,TRANTXT=*CE » 

TRANSLAT TR ANSCH=C4,TRANTXT=» DOCTOR* 

TRANSLAT TRANSCH=C6 ,TRANTXT=* FIRE* 

TRANSLAT TRANSCH=C9,TRANTXT=» IBM MAINT* 

TRANSLAT TRANSCH=D4,TRANTXT=» MOVER REQUIRED* 

TRANSLAT TR ANSCH=D9,TRANTXT=* ;N • 

TRANSLAT TR ANSCH=E3,TRANTXT=* TEL REPAIR* 

TRANSLAT TR ANSCH=E5,TRANTXT=« VENDING MACH* 

THE FOLLOWING MACROS DEFINE THE USER 
TRANSACTIONS. EACH TRANSACTION BEGINS WITH A 
TRLIST MACRO WHICH GENERATES THE TRANSACTION 
LIST HEADER AND CONTAINS FROM 1 TO 16 
MACROS: ASLIST, DEDLIST, CTRLIST, GDULIST. FROM 1 
TO 160 TRANSACTIONS MAY BE SPECIFIED BY THE 
USER WITH TRID VALUES BETWEEN AND 159. 



TRLIST ROUTE=CPU,TRID=0 

DEULiST 

THE CPU TRANSACTION CONSISTS OF 1 STEP AND 
WILL BE ROUTED TO THE CPU. 

TRLIST ROUTE=(LOG) ,TRID=1 

ASLIST B,NORM=19 

THE BADGE TRANSACTION CONSISTS OF 1 STEP AND 
WILL BE ROUTED TO THE 2740 ATTACHED TO THE 2715. 
THE DATA ENTRY WILL BE A BADGE ENTERED AT THE 
AREA STATION WITH GUIDANCE LIGHT 19 TURNED ON 
WHEN THE TRANSACTION STEP IS ENTERED. 

TRLIST ROUTE= (CPU, LOG) ,TRID=2, DEMOD10=YES, INQDISP=YES 

ASLIST B,NORM=31,MODULUS= (2,10,4) ,LENGTH= (1 1 ,2) ,INQDISP=»7 

THE BADGE1 TRANSACTION CONSISTS OF 1 STEP AND 
WILL BE ROUTED TO BOTH THE CPU AND THE 2740. A 
MODULUS 10 CHECK WILL BE PERFORMED ON POSITIONS 
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* 2 THROUGH 10 AND WILL EE CHECKED WITH THE SELF- 

* CHECK CHARACTER IN POSITION 11- IF THE MODULUS 

* 10 CHECK FAILS, GUIDANCE LIGHT 4 WILL BE TURNED 

* ON. THE DATA ENTRY WILL BE A BADGE ENTERED AT 

* THE AREA STATION WITH GUIDANCE LIGHT 4 TURNED 

* ON WHEN THE TRANSACTION STEP IS ENTERED. THE 

* LENGTH OF THE DATA ENTRY WILL ALSO BE CHECKED 

* AND IF THE LENGTH IS NOT 11, GUIDANCE LIGHT 2 

* WILL BE TUBNED ON. THIS TRANSACTION IS ALSO AN 

* INQUIRY DISPLAY TRANSACTION. GUIDANCE LIGHT 7 ON 

* THE AREA STATION WILL BE TURNED ON WHEN THIS 

* TRANSACTION IS RECEIVED BY THE 2715 AND ROUTED 

* TO THE CPU AS PRIORITY DATA. THIS IS REALLY THE 

* INQUIRY-IN-PROCESS GUIDANCE LIGHT. IF THE 

* INQUIRY IS ABORTED BY THE OPERATOR AT THE 2791 

* AREA STATION, GUIDANCE LIGHT 1 WILL BE TURNED ON 

* AUTOMATICALLY. ALL AREA STATIONS THAT USE 

* INQUIRY DISPLAY TRANSACTIONS MUST RESERVE 

* GUIDANCE LIGHT 1 FOR THE INQUIRY ABORT 

* SITUATION. 
MANUAL TRLIST ROUTE= (DISK, LOG) ,THID=3 

ASLIST M,NORM=27,LENGTH=(5,23) 
ASLIST M,NORM=26,LENGTH=(5,22) 
ASLIST M,NORM=25,LENGTH=(7,21) ,ENTRY=M 

* THE MANUAL TRANSACTION CONSISTS OF 3 STEPS 

* AND WILL BE ROUTED TO THE 2715 DISK AS DEFERRED 

* DATA AND TO THE 2740. MANUAL DATA ENTRIES WILL 

* BE MADE FOR ALL 3 STEPS. FOR THE FIRST STEP, 

* GUIDANCE LIGHT 27 WILL BE TURNED ON WHEN THE 

* STEP IS ENTERED AND GUIDANCE LIGHT 23 WILL BE 

* TURNED ON IF THE DATA ENTRY LENGTH IS NOT 5. 

* FOR THE SECOND STEP, GUIDANCE LIGHT 26 WILL BE 

* TURNED ON WHEN THE STEP IS ENTERED AND GUIDANCE 

* LIGHT 22 WILL BE TURNED ON IF THE DATA ENTRY 

* LENGTH IS NOT 5. FOR TEE THIRD STEP, GUIDANCE 

* LIGHT 25 WILL BE TURNED ON WHEN THE STEP IS 

* ENTERED AND GUIDANCE LIGHT 21 WILL BE TURNED ON 

* IF THE DATA LENGTH IS NOT 7. THE THIRD STEP IS 

* A MULTIPLE ENTRY STEP SO THAT 7 CHARACTERS CAN 

* BE ENTERED. 
CARD TRLIST ROUTE= (LOG) ,TRID=4 

ASLIST C,NORM=17 

CARD1 TRLIST BOUTE= (DISK, LOG) ,T SID=5 

ASLIST C,NORM=30,DIGIT=(2,1 ,10) ,LENGTH= (47, 1 1) 

ASLIST M,N0RM=18,LENGTH=(6,11) 

* THE CARD1 TRANSACTION CONSISTS OF 2 STEPS AND 

* WILL BE ROUTED TO THE 2715 DISK AND TO THE 
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* 2740. THE FIRST STEP BILL BE A CARD ENTRY WITH 

* GUIDANCE LIGHT 30 TURNED ON WHEN THE STEP IS 

* ENTERED, IF THE CHARACTER IN POSITION 2 OF THE 

* DATA ENTRY IS NOT THE EBCDIC CHARACTER F1, THEN 

* GUIDANCE LIGHT 10 IS TURNED ON. IF THE LENGTH OF 

* THE CARD ENTRY IS NOT 47, THEN GUIDANCE LIGHT 11 

* IS TURNED ON. THE SECOND STEP WILL BE A MANUAL 

* ENTRY WITH GUIDANCE LIGHT 18 TURNED ON WHEN THE 
'* STEP IS ENTERED. IF THE LENGTH IS NOT 6, THEN 

* GUIDANCE LIGHT 11 IS TURNED ON. 
CARD2 TRLIST ROUTE= (CP U,LOG) ,TRID=6 ,DEHOD1 1=YES,INQDISPfYES 

ASLIST C,NORM=29, NODULUS= (2,15, 5) ,LENGTH= {17, 11) 

ASLIST B,NORM=20,LENGTH=(11 ,2) 

ASLIST M,N0RM=15,INQDISP=7 

EXP1 TRLIST ROUT E= (CPU, LOG) , TRID=7, DEMOD10=YES, INQDISP=YES 

ASLIST B,NORM=16,MODULUS= (2,9,4) ,INQDISP=7 

EXP2 TRLIST ROUT E= (CPU , LOG) ,TRID=8, DEMOD1 1=YES 

ASLIST B,NORM=16,MODULUS= (2,9,5) 

* THE EXP2 TRANSACTION CONSISTS OF 1 STEP AND 

* RILL BE ROUTED TO THE CPU AND TO THE 2740. THE 

* DATA ENTRY WILL BE A BADGE ENTERED AT THE AREA 

* STATION WITH GUIDANCE LIGHT 16 TURNED ON WHEN 

* THE TRANSACTION STEP IS ENTERED. A MODULUS 11 

* CHECK WILL BE PERFORMED ON POSITIONS 2 THROUGH 

* 10 AND WILL BE CHECKED WITH THE SELF-CHECK 

* CHARACTER IN POSITION 1 1 . IF THE MODULUS 11 

* CHECK FAILS, GUIDANCE LIGHT 5 WILL BE TURNED ON. 
EXP.3 TRLIST ROUTE= (CPU, LOG) , TRID=9,DEMOD10= YES ,INQDISP=Y ES 

ASLIST B,NORM=16,MOD0LUS= (2,7,4) 

ASLIST C,NORM=17,INQDISP=7,ENTRY=N 

EXP4 TRLIST ROUT E= (LOG) ,TRID=10 

ASLIST B,NORM=16,DIGIT=(3,5,10) ,LENGTH= (11,11) 

* THE EXP4 TRANSACTION CONSISTS OF 1 STEP AND 

* WILL BE ROUTED TO THE 2740. THE STEP WILL BE A 

* BADGE ENTRY WITH GUIDANCE LIGHT 16 TURNED ON 

* WHEN THE STEP IS ENTERED. GUIDANCE LIGHT 10 WILL 

* BE TURNED ON B Y THE 2715 IF THE CHARACTER IN 

* POSITION 3 IS NOT THE EBCDIC CHARACTER F5. 

* GUIDANCE LIGHT 11 WILL BE TURNED ON IF THE 

* LENGTH OF THE DATA ENTRY IS NOT 11. 
EXP5 TRLIST ROUTE- (LOG) ,TRID=1 1 

ASLIST B,NORM=16 

DEU1 TRLIST ROUTE=LOG, TRID=1 2 

DEULIST DIGITS (2, 1) ,DIGIT2= (3,1) 

* THE DEU1 TRANSACTION CONSISTS OF 1 STEP AND 

* WILL BE ROUTED TO THE 2740. THE DATA ENTRY WILL 

* BE MADE FROM A DATA ENTRY UNIT. AN ERROR WILL BE 

* INDICATED AT THE DEU IF POSITION 2 DOES NOT 

* CONTAIN THE EBCDIC CHARACTER F1 OR IF POSITION 

* 3 DOES NOT CONTAIN THE EBCDIC CHARACTER F1. 
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DED2 T8LIST ROUTE= (LOG) ,TRID=13,DEM0D1 0=YES 

DEULIST DIGIT2=(2,1) , NODULUS= (3,10) 
DEa3 TRLIST ROUTE= (LOG) ,TRID=1 4,DEMOD1 1 = YES 

DEULIST DIGIT2= (2,5) ,MODULUS= (3,10) ,LENGTH=13 
DEU4 TRLIST ROUTE= (LOG) ,TRID=1 5 

DEULIST DIGIT= (2,6) ,DIGIT2= (3,9) LENGTH=11 
DEUEXP TRLIST ROUTE= (LOG ,NULL) ,DEM0D1 0=YES,TRI D= 16 ,TEXT= YES 

DEULIST MODULUS= (3,10) ,MSG=« THIS IS AN EXPANDED TRANSACTION' 

* THE DEUEXP TRANSACTION CONSISTS OP 1 STEP AND 

* HILL BE ROOTED TO THE 2740 AND TO THE PRINTER 

* ATTACHED TO THE AREA STATION THAT HILL BE 

* SPECIFIED BY THE OPERATOR IN THE FIRST DATA 

* ENTRY. THE DATA ENTRY HILL BE ENTERED FROM A DEU 

* AND A DEFINED MESSAGE (IMPLICIT TEXT) HILL BE 

* INCLUDED HITH THE TRANSACTION. A MODULUS 10 

* CHECK HILL BE PERFORMED ON POSITIONS 3 THROUGH 

* 10 AND HILL BE COMPARED HITH THE CHECK 

* CHARACTER IN POSITION 11. IF THE MODULUS 10 

* CHECK FAILS, THEN THE RED ERROR BUTTON HILL BE 

* INDICATED AT THE DEU. 
DEU6 TRLIST ROUTE= (LOG) ,TRID=17 

DEULIST 
EXPALM TRLIST ROUTE= (CPU, 59) ,TEXT=YES,TRID=18 

DEULIST MSG=«' VENI VIDI VICI AT TiO PRINTERS, I HOPE' 

* THE EXPALn TRANSACTION CONSISTS OF 1 STEP AND 

* HILL BE ROUTED TO THE CPU AND TO THE PRINTER 

* ON THE AREA STATION HHOSE ID IS 59. THE DATA 

* ENTRY HILL BE ENTERED FROM A DEU AND A DEFINED 

* MESSAGE HILL BE ROUTED ALONG HITH THE 

* TRANSACTION. 
EXPALMTX TRLIST ROUTE= (CPU, 59) ,TEXT=YES,TBID=19 

DEULIST MSG=» • TYPE AT TiO PRINTER AND NO ALARM* 
EXPTX TRLIST ROUTE=42,TBID=20 

DEULIST 

CTRLIST DEVCOD=B,CTRADR=IMP,CTRRD=SINGLE,CTTEST=NDLL, X 

CTROP=READ 
RDIPSG TRLIST ROUTE=LCG,TRID=2 1 

DEULIST 

CTRLIST DEVCOD=B,CTRADR=IMP,CTRRD=SINGLE,CTTEST=MULL, X 

CTROP=READ 

* THE RDIPSG TRANSACTION CONSISTS OF 2 STEPS AND 

* HILL BE ROUTED TO THE 27 40. THE FIRST STEP IS A 

* DATA ENTRY FROM A DEU. THE SECOND STEP IS THE 

* PULSE COUNT DATA ENTRY. THIS STEP HILL CAUSE THE 

* SINGLE COUNTER HHOSE IMPLIED ADDRESS RESULTS 

* FROM THE CONVERSION OF THE DEVICE ADDRESS OF 

* THE DEU INITIATING THE REQUEST. THERE HILL BE 

* NO CHANGE IN THE PRESENT COUNT TEST CONDITION 

* OF THE COUNTER. 
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RDEPSGM TBLIST BOUTE=LOG,TRID=22 
DEULIST 

CTBLIST DEVCOD=M,CTRADR=EXP,CTRRD=SINGLE,CTTEST=NULL, X 
CTROP=READ 

* THE RDEPSGM TRANSACTION CONSISTS OF 2 STEPS 

* AND WILL BE ROUTED TO THE 2740. THE FIRST STEP 

* IS A DATA ENTRY FROM A DEO. THE SECOND STEP IS 

* THE PULSE COUNT DATA ENTRY SET OP TO READ THE 

* SINGLE COONTER WHOSE ADDRESS IS EXPLICITLY 

* SPECIFIED IN THE MANUAL DATA ENTRY. THERE WILL 

* BE NO CHANGE IN THE PRESENT COUNT TEST 

* CONDITION OF THE COUNTER. 
RDEPSGB TRUST ROUTE=LOG,TRID=23 

DEULIST 

CTRLIST DEVCOD=B,CTRADR=EXP,CTRRD=SINGLE,CTTEST=NULL, X 

CTROP^READ 
RDEPGPM TRLIST ROUTE=LOG,TRID=24 

DEULIST 
CTRLIST DEVCOD=M,CTRADR=EXP,CTRRD=GROUP,CTTEST=NOLL, X 

CTROP=BEAD 
RDEPGPB TBLIST ROUTE=LOG,TRID= 25 

DEULIST 
CTRLIST DEVCOD=B,CTRADR=EXP,CTRRD=GROUP,CTTEST=NULL, X 

CTROP=READ 

* THE RDEPGPB TRANSACTION CONSISTS OF 2 STEPS 

*■ AND WILL BE ROUTED TO THE 2740. THE FIBST STEP 

* IS A DATA ENTRY FROM A DEO. THE SECOND STEP IS 

* THE PULSE COUNT DATA ENTRY SET UP TO READ THE 

* GROUP OF COUNTERS THAT WILL BE EXPLICITLY 

* SPECIFIED IN THE BADGE DATA ENTRY. THERE WILL 

* BE NO CHANGE IN THE PRESENT COUNT TEST 

* CONDITIONS OF ANY OF THE COUNTERS. 
RDRSTIP TRUST ROUTE=LOG,TRID=26 

DEULIST 

CTRLIST DEVCOD=B,CTRADR=IMP,CTRRD=SlNGLE # CTTEST=NULL, X 

CTROP=READRST 

* THE RDRSTIP TRANSACTION CONSISTS OF 2 STEPS 

* AND WILL BE ROUTED TO THE 2740. THE FIRST STEP 

* IS A DATA ENTRY FROM A DEU. THE SECOND STEP IS 

* THE PULSE COUNT DATA ENTRY. THE SINGLE COUNTER, 

* WHOSE ADDRESS IS IMPLIED FROM THE CONVERSION 

* OF THE DEVICE ADDRESS OF THE DEU INITIATING 

* THE REQUEST, WILL BE READ AND THEN THAT COUNTER 

* WILL BE RESET. THERE WILL BE NO CHANGE IN THE 

* PRESENT COUNT TEST CONDITION OF THE COUNTER. 
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RDRSTEPM 



*** FIRST SET 
********* 

RDSTIPN 



RDSTEPM 



* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
RDSTEPB 



RDSIDEPH 



RDSIDGPM 



RDSIDGPB 



WRIPB 



TRLIST RCUTE=LOG,TRIE=27 
DEULIST 

CTRLIST DEVCOD=M,CTBADR=EXP,CTRRD=SINGLE,CTTEST=NULL, X 

CTROP=READRST 

OF EXPANSION TRANSACTIONS FOR 2796 TC81-TC89 *** 

********* 

TRLIST ROUTE= (LOG, 42) ,TRID=28 

DEULIST 

CTRLIST DEVC0D=M,CTRADR=IMP,CTRRD=SINGLE,CTTEST=1IULL # X 

CTROP=READSET 

TRLIST ROUTE= (LOG, 42) ,TRID=29 

DEOLIST 

CTRLIST DEVCOD=M,CTRADR=EXP,CTRRD=SINGLE,CTTEST=NULL, X 

CTROP=READSET 

THE RDSTEPM TRANSACTION CONSISTS OF 2 STEPS 
AND WILL BE ROUTED TO THE 2740 AND TO THE 
PRINTER ON THE AREA STATION WHOSE ID IS 42. 
THE FIRST STEP IS A DATA ENTRY FROM A DEU. 
THE SECOND STEP IS THE PDLSE COUNT DATA ENTRY 
SET UP TO READ THE SINGLE COUNTER, WHOSE ADDRESS 
IS EXPLICITLY SPECIFIED IN THE MANUAL DATA 
ENTRY, AND THEN TO SET THE COUNTER TO THE 
EXPLICITLY SPECIFIED VALUE. THERE WILL BE NO 
CHANGE IN THE PRESENT COUNT TEST CONDITION OF 
THE COUNTER. 

TRLIST ROUTE=(LOG,42) ,TRID=3 

DEULIST 

CTRLIST DEVCOD=B,CTRADR=EXP,CTRRD=SINGLE,CTTEST=NULL, X 

CTROP= HEADSET 

TRLIST ROUTE=(LOG,42) ,TRID=31 

DEULIST 

CTRLIST DEVCOD=M,CTRADR=EXP,CTRRD=SINGLE,CTTEST=NULL, X 

CTBCP=RDRESID 

TRLIST ROUTE=(LOG,42),TRID=32 

DEULIST 

CTRLIST DEVCOD=M,CTRADR=EXP,CTRRD=GROUP,CTTEST=NULL, X 

CTBOP=RDRESID 

TRLIST ROUTE=(LOG,42) ,TRID=33 

DEULIST 

CTRLIST DEVCOD=B,CTRADR=EXP,CTRRD=GROUP,CTTEST=NULL, X 

CTBOP=RDRESID 

TRLIST ROUTE=LOG,TRID=34 

DEULIST 

CTRLIST DEVCOD=B,CTRADR=TMP,CTRRD=SINGLE,CTTEST=NULL, X 

CTBOP=SET 
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WREPM 



* 
* 
* 

RDGPEPAA 



RDGPEPBB 



RDSIEPAA 



RDMSIEP 



RDSIIPAA 



RDSITPAB 



EXP 



READ 



TRLIST RODTE=LOG,TRIC=35 
DEULIST 

CTRLTST DEVCOD=M,CTRADR=EXP,CTRRD=SINGLE,CTTEST=NULL, 
CTROP=SET 

THE WREPM TRANSACTION CONSISTS OF 2 STEPS AND 
WILL BE ROOTED TO THE 2740. THE FIRST STEP IS 
THE PULSE COUNT DATA ENTRY SET UP TO SET THE 
SINGLE COUNTER, WHOSE ADDRESS IS EXPLICITLY 
SPECIFIED IN THE MANUAL ENTRY, TO THE MANUAL 
VALUE SPECIFIED AT THE DEU. THERE WILL BE NO 
CHANGE IN THE PRESENT COUNT TEST CONDITION OF 
THE COUNTER. 
TRLIST ROUTE=42,TRID=36 
DEULIST 
CTRLIST DEVCOD=B,CTRADR=EXP,CTRRD=GROUP,CTTEST=N0LL, 

CTROP=READ 
TRLIST ROUTE=59,TRID=37 
DEULIST 

CTRLIST DEVCOD=M , CTRADR=EXP , CTRRD=GROUP , CTTEST=NULL , 
CTROP=READ 

TRLIST ROUTE=42,TEXT=YES,TRID=3 8 
DEULIST 
CTRLIST DEVCOD=B,CTRADR=EXP,CTRRD=SINGLE,CTTEST=NULL, 

CTROP=READ,MSG=* A SINGLE COUNTER SHOULD ACCOMPANY 
THIS MESSAGE* 
TRLIST ROUTE=H2,TEXT=YES,TRID=39 
DEULIST 
CTRLIST DEVCOD=M,CTRADR=EXP,CTRRD=SINGLE,CTTEST=NULL, 

CTROP=READ,MSG=*A SINGLE COUNTER SHOULD ACCOMPANY 
THIS MESSAGE* 
TRLIST ROUTE=42,TEXT=YES,TRID=40 
DEULIST 

CTRLIST DEVCOD=B # CTRADR=IMP,CTRRD=SINGLE,CTTEST=NULL, 
CTROP=READ, NSG=* »• »THIS IS AN ALARM MESSAGE WITH 
A COUNTER* 
TRLIST ROUTE=59,TEXT=YE"S,TRID=41 
DEULIST 
CTRLIST DEVCOD=B , CTRADR=IMP , CTRRD=SINGLE , CTTEST=NULL , 

CTROP=READ,MSG-** *• ALARM MESSAGE AT TWO AREA STATIONS X 
AND A COUNTER VALUE AT ONE* 
TRLIST ROUTE=LOG,TRID=42 
DEULIST 
CTRLIST DEVCOD=B,CTRADR=EXP,CTRRD=SINGLE,CTTEST=NULL, X 

CTROP=READ 
TRLIST ROUTE=LOG,TRID=43 
DEULIST 

CTRLIST DEVCOD=B,CTRADR=IMP,CTRRD=SINGLE,CTTEST=NULL, X 

CTROP=READ 



X 
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READ5T TBLIST ROUTE=LOG,TRID=44 

DEULIST 

CTRLIST DEVCOD=B,CTRADR=IMP,CTRRD=SINGLE,CTTEST=NULL, X 
CTROP=READSET 
READSID TRLIST ROUTE=LOG,TRID=45 

DEULIST 

CTRLIST DEVCOD=B,CTRADR=IMP,CTRRD=SINGLE,CTTEST=NULL # X 

CTROP=RDRESID 
ALARM TRLIST BOUTE= (LOG, 42) , TEXT=YES,TRID=46 

DEULIST MSG= , « • 
ALARMTX TRLIST ROUTE= (LOG, 42) , TEXT=YES,TRID=47 

DEULIST HSG=««» VENI VIDI VICI » 
TEXT TBLIST ROUTE= (LOG, 42) , TEXT=YES,TRID=48 

DEULIST MSG=« • THE ALARM HAD BETTER MOT HAVE SOUNDED* 
DISK TRLIST ROUTE=DISK, TRID=4 9 

DEULIST 
TESTO TRLIST TRID=60,ROUTE=LOG 

GDULIST FARAMNO=01,NORGUID=1,DISPMSG=DG17 

GDULIST PARAHNO=02,NORGUID=1 ,DISPMSG=DG1 

GDULIST PARAMNO=33,NORGUID=(1, 3,5) ,IDENT=4 

* THE TESTO TRANSACTION CONSISTS OF 3 STEPS AND 

* WILL BE ROUTED TO THE 2740. ALL 3 STEPS SILL 

* BE DATA ENTRIES FROM THE 2798. WHEN THE FIRST IS 

* ENTERED. GUIDANCE LIGHT 1 IS TURNED ON AT THE 

* OPERATOR GUIDANCE PANEL AND THE MESSAGE DEFINED 

* BY DISPGUID MACRO DG 17 WILL BE DISPLAYED ON THE 

* 2798 GUIDANCE DISPLAY PANEL. THE 2715 WILL USE 

* PARAMETER LIST NUMBER 01 TO GET TO THE 

* PARAMETER LIST DEFINED BY PARMIIST MACRO, PARI. 

* THIS PARAMETER LIST WILL BE USED IN CHECKING 

* THE FIRST DATA ENTRY. WHEN THE SECOND STEP IS 

* ENTERED, GUIDANCE LIGHT 1 IS TURNED ON AT THE 

* OPERATOR GUIDANCE PANEL AND THE MESSAGE DEFINED 

* BY DISPGUID MACRO DG1 WILL BE DISPLAYED ON THE 

* 2798 GUIDANCE DISPLAY PANEL. THE 2715 WILL USB 

* PARAMETER LIST NUMBER 02 TO GET TO THE 

* PARAMTER LIST DEFINED BY THE PARMLIST MACRO 

* PAR2. THIS PARAMETER LIST WILL BE USED IN 

* CHECKING THE SECOND DATA ENTRY. WHEN THE THIRD 

* STEP IS ENTERED, GUIDANCE LIGHTS 1,3, AND 5 WILL 

* BE TURNED ON AT THE OPEHATOR GUIDANCE PANEL AND 

* THE MESSAGE DEFINED IN THE FIFTH IDENTIFIER 

* IN THE IDENTIFIER TABLE WILL BE DISPLAYED ON 

* THE 2798 GUIDANCE DISPLAY PANEL. THE 2715 WILL 

* USE PARAMETER LIST NUMBER 33 TO GET TO THE 

* PARAMETER LIST DEFINED BY THE PARMLIST MACRO 

* PAR33. THIS PARAMETER LIST WILL BE USED IN 

* CHECKING THE THIRD DATA ENTRY. 
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TEST1 
TEST2 



TEST 3 



TEST4 



TEST 5 



TEST6 



TEST 7 



TEST8 



ROOT El 



TBLIST TRID=61 r RODTE=LOG 

GDOLIST PARAMNO=03,NORG0ID=1,DISEMSG=DG1 

GDULIST FARAHNO=04, NORGO ID=1,DISPMSG=DG3 

TBLIST TRID=62,RO0TE=LOG 

GDOLIST PARAMNO=05,NORG0ID=1,DISPMSG=DG1 

GDOLIST PARAMNO=06,NORGOID=1 ,DISPMSG=DG3 

GDOLIST PARAHNO=07, NORGO ID=1,DISPMSG=DG4 

GDOLIST PARAMNO=08,NORGOID=1,DISPMSG=DG5 

GDOLIST PARAMNO=09, NORGO ID=1,DISPMSG=DG6 

TBLIST TRID=63,ROOTE=LOG 

GDOLIST PARAMNO=10,NORGUID=1,DISPMSG=DG1 

GDOLIST PARAMNO=1 1 ,NORGOID=1 ,DISPMSG=DG3 

GDOLIST PARAMNO= 12, NORGO ID=1,DISPMSG=DG4 

GDOLIST PARAMN0=13,NORG0ID=1 ,DISPMSG=DG5 

GDOLIST PAR AMNO= 1 4 , NORGO ID= 1 , DISPMSG=DG6 

TBLIST TRID=64,ROUTE=LOG 

GDOLIST PARAMNO=15,N0RG0ID=1,DISPMSG=DG1 

GDOLIST PARAMNO=16,NORG0ID=1,DISPMSG=DG3 

GDOLIST PARAMNO= 17, NORGO ID= 1 ,DISPMSG=DG4 

TBLIST TRID=65,RO0TE=LOG 

GDOLIST PARAMNO=18,NORGOID=1,DISPMSG=DG1 

GDOLIST PARAMN0=19,NORGUID=1 ,DISPMSG=DG3 

GDOLIST PARAMNO=20,NOBGOID=1,DISPMSG=DG4 

GDOLIST PARAMNO=21,NORG0ID=1,DISPMSG=DG5 

TRUST TBID=66,ROUTE=LOG 

GDOLIST PARAMN0=22,N0RG0ID=1,DISPMSG=DG1 

GDOLIST PARAMNO=23,NORG0ID=1,DISPMSG=DG3 

TRLIST TRID=67,ROUTE=LOG 

GDOLIST PARAMNO=24,NORGOID=1,DISPMSG=DG11 

GDOLIST PARAMNO=38,NORGUiD=1 ,DISPMSG=DG3 

TRLIST TRID=68,ROUTE=LOG 

GDOLIST PARAMNO=26,NORG0ID=1 ,DISPMSG=DG1 

GDOLIST PARANNO= 37, NORGO ID=1 , DISPMSG=DG7 

TRLIST TRID=70 f RO0TE=(LOG r 42) ,TEXT=YES 

GDOLIST PARAMNO=28,NORG0ID={1»5) ,DISPHSG=DG9 

GDOLIST PARAMNO=02,NORG0ID-1 ,DISPNSG=DG8 ,ENTRY=M, 
MSG= 1 **EHERGENCY' 

THE RO0TE1 TRANSACTION CONSISTS OF 2 STEPS AND 
WILL BE BOOTED TO THE 2740 AND TO THE PRINTER 
ON THE AREA STATION WHOSE ID IS 42. BOTH STEPS 
WILL BE DATA ENTRIES FROM THE 2798. WHEN THE 
FIRST STEP IS ENTERED, GUIDANCE LIGHTS 1 AND 5 
ARE TORNED ON AT THE OPERATOR GOIDANCE PANEL 
AND THE MESSAGE DEFINED BY DISPGOID MACRO DG9 
WILL BE DISPLAYED ON THE 2798 GOIDANCE DISPLAY 
PANEL. THE 2715 WILL OSE PARAMETER LIST NUMBER 
28 TO GET TO THE PARAMETER LIST DEFINED BY THE 
PARMLIST MACRO PAR28. THIS PARAMETER LIST WILL 
BE OSED BY THE 2715 IN CHECKING THE FIRST DATA 
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* 

* 

* 
♦ * 

ROUTE2 



TESTJOB1 



TESTJOB2 



TEST JOB 3 



CARDORD 



UALMAINT 



INV1 
IN72 
INV3 
INVU 
INV5 



ENTRY. WHEN THE SECOND STEP IS ENTERED, GUIDANCE 
LIGHT 1 IS TURNED ON AT THE OPERATOR GUIDANCE 
PANEL AND THE MESSAGE DEFINED BY DISPGUID MACRO 
DG8 WILL BE DISPLAYED ON THE 2798 GUIDANCE 
DISPLAY PANEL. THE 2715 WILL USE PARAMETER LIST 
NUMBER 02 TO GET TO THE PARAMETER LIST DEFINED 
BY THE PARMLIST MACRO PAR2. THIS PARAMETER LIST 
WILL BE USED BY THE 2715 IN CHECKING THE 
SECOND DATA ENTRY. MULTIPLE ENTRIES CAN BE 
ENTERED ON THE SECOND STEP. IMPLICIT TEXT WILL 
BE INCLUDED WITH TEE TRANSACTION WHEN IT IS 
ROUTED. 

TRLIST TRID=71,ROUTE= (LOG, NULL) 

GDULIST PARAMNO=38,NORGUID=1 ,DISPMSG=DG29 

GDULIST PARAMNO=28,NORGUID=(1,5) ,DISPMSG=DG9 

GDULIST PARAMNO=32,N0RGUID=1 # DISPMSG=DG18 

TRLIST TBID=72,ROUTE=LOG 

GDULIST PARAMNO=29,NORGUID=(1,2) ,DISPMSG=DG1 1 

GDULIST PARAMNO=33,NORGUID=4 

GDULIST PARAMNO=31,NORQUID=5 

TRUST TRID=73,ROUTE=LOG 

GDULIST PARAMNO=29,NORGUID=(1,2) , DISPMSG=DG1 1 

GDULIST PARAMNO=32,NORGUID=3 

GDULIST PARANNO=33, N0RGUID=6 

GDULIST PARAnNO=3i,NURGuID=(1,7) # DI3FH3G=DG1 1 

GDULIST PARAMNO=33,NORGUID=(1,8) , DISPMSG=DG1 1 

TRLIST TRID=74,ROUTE=LOG 

GDULIST PARAMNO=29,N0RGUID=(1,2) , DISPMSG=DG1 1 

GDULIST PARAMNO=33,NORGUID=U 

GDULIST PARAMN0=34,N0RGUID=5 

TRLIST TRID=75,ROUTE=LOG 

GDULIST PARAMNO=35 # NORGUID=(1,tt) ,DISPMSG=DG1l» 

GDULIST PARAHNO=33,N0RGUID=7 

TRLIST TRID=76,ROUTE=LOG 

GDULIST PARAMNO=33,NORGUID=(1,2) , DISPHSG=DG10 

GDULIST PARAMNO=33,N0RGUID=3,IDENT=4 

GDULIST PARAMNO=36,N0RGUID=U 

GDULIST PABAMNO=33,NQRGUID=(1,5) ,DISPMSG=DG15 

GDULIST PARAMNO=33,NORGUID=(1,5) ,DISPMSG=DG16 

TRLIST TFID=79,ROUTE=LOG 

GDULIST PARAMNO=20,NORGUID=(1,8) ,DISPMSG=DG19 

TRLIST TPID=80,ROUTE=LOG 

GDULIST PARAHNO=20,NORGUID=(1,8) ,DISPMSG=DG20 

TRLIST TRID=81,R0UTE=L0G 

GDULIST PARAMNO=20,NORGUID=(1,8) ,DISPMSG=DG21 

TRLIST TRID=82,ROUTE=LOG 

GDULIST PARAMNO=20,NORGUID={1,8) ,DISPMSG=DG22 

TRLIST TBID=83,ROUTE=LOG 

GDULIST PARAMNO=20,NORGUID=(1,8) ,DISFMSG=DG23 
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STOCK THLIST TRID=84,ROUTE=CPU,INQDISP=YES 

GDULIST PARAHNO=39,NORGUID=(1,4,8) , DISPMSG=DG2 4 
GDULIST PARAMNO=32,NORGUID=1,DISPMSG=DG26,ENTRY=M 

* IF THE INQOIRY IS ABORTED BY THE OPERATOR AT 

* THE 2798, GDU GUIDANCE LIGHT 16 BILL BE TURNED 

* ON AUTOMATICALLY AT THE 2798. ALL 2798*S THAT 

* USE INQUIRY DISPLAY TRANSACTIONS MUST RESERVE 

* GUIDANCE LIGHT 16 FOR THE INQUIRY ABORT 

* SITUATION. 

INPROC TRLIST TRID=85, ROUTE=CPU, INQDISP^YES 

GDULIST PARAMNO=39,NORGUID=(1,4,8) ,DISPMSG~DG25 
GDULIST PARAMNO=32,NORG[JID=1 # DISPMSG=DG26,ENTRY=M 

LEADTIME TRLIST TRID=86,ROUTE=CPU, INQDISP=Y ES 

GDULIST PARAMNO=39,NORGUID=(1,4) ,DISPMSG=DG27 
GDULIST PARAMNO=32,NORGUID=1,DISPMSG=DG26,ENTRY=M 

RATING TRLIST TRID=87,ROUTE=CPU,INQDISP=YES 

GDULIST PARAMNO=39,NORGrJID={1,4) , DISPMSG=DG27 
GDULIST PARAMNO=32,NORGUID=1,DISPMSG=DG26 # ENTRY=M 

SUPPLIER TRLIST TRID=88, ROUTE=CPU, INQDISP=YES 

GDULIST PARAMNO=39,NORGUID=(1,4) ,DISPMSG=DG27 
GDULIST PARAMNO=32,NORGUID=1 ,DISPMSG=DG26 ,ENTRY=M 

INTRANS TRLIST TRID=89 ,ROUTS=CPU , INQDISP=YES 

GDULIST PARAMNO=39,NORGUID=(1,4) ,DISPMSG=DG27 
GDULIST PARAMNO=32,NORGUID=1,DISPMSG=DG26,ENTRY=M 

LINE TRLIST TRID=90 ,ROUTE=CP0,INQDlSP=YES 

GDULIST PARAMNO=39,NORGUID=<1,4) ,DISPMSG=DG27 
GDOLIST PARAMNO=32,NORGUID=1,DISPMSG=DG26,ENTRY=H 

BIN TRLIST TRID=91,ROUTE=CPU,INQDISP=YES 

GDULIST PARAMNO=39,NORGUID= (1,4) ,DISPMSG=DG27 
GDULIST PARAMN0=32,N0RGUID=1,DISPMSG=DG26,ENTRY=M 

RAWMAT TRLIST TRID=92, ROUTE=CPU, INQDISP= YES 

GDULIST PARAMNO=39,NORGUID=(1,4) ,DISPMSG=DG27 
GDULIST PARAMNO=32,NORGUID=1,DISPMSG=DG26,ENTRY=M 

ORDER TRLIST TRID=93 , ROUTE^CPO, INQDISP=YES 

GDULIST PARAMNO=39,NORGUID^(1,4) ,DISPMSG=DG27 
GDULIST PARAMNO=32,NORGUID=1,DISPMSG=DG26,ENTRY=M 

QUALCON TRLIST TRID=94,ROUTE=CPU,INQDISP=YES 

GDULIST PAR AMNO= 39 , NORGU ID= (1,4), DISPMSG=DG27 
GDULIST PARAMNO=32,NORGUID=1 ,DISPMSG=DG26 , ENTRY=M 

QUOTE TRLIST TEID=95,ROUTE=CPU , INQDISP=YES 

GDULIST PARAMNO=39,NORGUID=(1,4) ,DISPMSG=DG27 
GDULIST PASAMNO=32,NGRGUID=1,DISPMSG=DG26,ENTRY=M 

LASTPUR TRLIST TRID=96 ,ROUTE=CPU ,INQDISP=YES 

GDULIST PARAflSO=39,NORGUID=(1,4) ,DISPMSG=DG27 
GDULIST PARAMNO=32,NORGUID=1,DISPMSG=DG26,ENTRY=M 

ECONQTY TRLIST TRID=97,ROUTE=CPU,INQDISP=YES 

GDULIST PARAMNO=39,NORGUID=(1,4) , DISPMSG=DG27 
GDOLIST PARAMNO=32 # NORGUID=1,DlSpMSG=pG26,ENTRY=M 
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CREDIT TELIST TRID=98,R0UTE=CPU,IN0DISP=YES 

GDULIST PARAMN0=27,N0RGUID=(1,2) , DISPMSG=DG1 2 
GDDLIST PARAHNO=25,NORGUID=1 ,DISPMSG=DG28 
GDDLIST PARAMNO=32,NORGUID=1,DISPMSG=DG26,ENTRY=H 

QUADEQN TSLIST TRID=99,ROUTE=CPU # I NQDISP=YES 

GDULIST PARAHNO=30,NORGUID=1,DISPHSG=DG37 
GDULIST PARAMNO=30,NORGUID=1,DISPHSG=DG38 
GDULIST PARAMNO=30,N0RGUID=1,DISPMSG=DG39 
GDULIST PARAHNO=32,NORG0ID=1 ,DISPMSG=DG26, ENTRY=M 
STEND 



END 
/* 
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LCC CF.JECT COPE A0DR1 ADPR2 ^T^T SOURCE STATFMFNT F3CSEP69 K/C6/7C 

)000C 1 FXAMFLF2 CSECT 

2 ******************#****** ********** *****<■****##******#**#*******>»#*«#**# 

3 * * 
A * SAMPLE FXFANDED 10 VERIPICATICN PROGRAM * 

5 * * 

6 * TUS PROGRAM TS PFSIGI^FD FOR A PINAPY SYNCHRONOUS SWITCHED LINF * 

7 * CVEP WHICH AN IBM 277C OR 27P0 CAN CALL THE CENTRAL COMPUTER. * 
F * THE PROGRAM UTILIZES SCCE CP THE EXPANOFD ID VERIFICATION CAPABTLI-* 
9 * TIES. THE IP OF THF 27P0 IS RR: THF IP GF THF 2"?7n IS WW. * 

1C * 'IF THF USFF- WISHFS TC FXFCUTE THIS PPCGFAM, HF MUST ^CCIFY IT * 

11 * TT USf THF IC'S OF HIS PARTICULAR TERMINALS. * 

12 * < 
12 * OPERATION: * 

14 * * 

15 * (1.) WHEN' THF PROGRAM IS STARTED, A MESSAGE , 'SWTEST HAS BEGUN * 
If * FXFCUTIPfv', WILL RE PRINTED ON THE CCNSCILF. * 
17 * * 
If * (2.) IF THE I INF CAN NOT EF CPENEC, A MESSAGE, 'OPEN CID NPT * 
IS * CGMPLFTE SUCCESSFULLY", WILL BE PRINTFD ON THE CONSOLE AND * 
2C * THF PPCGPAM IS APFMPFP. * 

21 * * 

22 * (?.) IF THE LINE IS OPENED SUCCESSFULLY, THE TERMINAL OPERATOR * 
22 * CAN THEN DIAL THF COMPUTER FROM EITHER TERMINAL AND * 
2A * SEND DATA. WHEN AIL CF THE DATA HAS PFEN RFAD FRCM THE * 

25 * TERMINAL, THE PROGRAM DISCONNECTS THF LINE. * 

26 * * 

27 * (A.) THF TERMINAL OPFRATOR CAN THF MANUALLY DIAL FRCM EITHER * 

28 * TERMINAL AND RECEIVF SIX MESSAGES PF«=ORF. THF LINE IS DIS- * 

29 * CCNNECTEC. * 
3 C * ' * 

31 * (5.) THF PPrORAW THEN ISSUES TWO CHGNTRY MACROS TO CHANGE THE * 

32 * CCNIPCL BYTE VALUE FCP EACH AUTHORIZED ID. A SNAP CUMP IS * 

33 * TAKEN BEFORE AND AFTER THE CHGNTPY MACROS IN ORDER TC SHOW * 

34 * THE TERMINAL LIST CONTENTS FEFCE AND AFTER ISSUING THE * 

35 * CHGNTRY MACROS. (IN ORDER TO RECFIVE THE SNAP * 

36 * DUMP, THF LSER MUST PROVIDE A DD CARD FOR HIS SNAP DCB DDNAME * 
3 7 * iN HIS JCL.i * 

38 * . * 

39 * (6.) A MESSAGE, 'SWTEST HAS SUCCESSFULLY CCMPLFTED', WILL BE * 
4P # PRINTED ON THE CONSOLE. * 
A 1 * * 
42 * NCTFS - * 
A3 * * 
44 * AFTEP EACH READ AND WRITE OPFRATION, THE PROGRAM CHECKS FCP * 
A? * NORMAL OCMPLFTTON. * 
A6 * * 

47 * IF THF OPERATION WAS. A READ - * 

48 * * 

49 * (1.1 WHICH COMPLETED NORMALLY WITH NO EITS IN PECFLAGS TURNED * 
*C * ON, THE PRCGPAM CONTINUES WITH THE NFXT OPFPATICN. * 
51 * (2.) WHICH COMPLETED NORMALLY WITH A BIT ON IN DFCFLAGS, THE * 
5? * PROGRAM, TAKES A SNAP DUMP, THEN CHECKS FOR AN INVALID ID. * 

53 * * 

54 * (A.) IF AN INVALID ID WAS RECFIVEC, A MESSAOF, 'AN INVALID * 

55 * ID WAS RECEIVED', IS PRINTED ON TH C CONSOLE AND THF * 

56 * PROGRAM DISCONNECTS THE LINE. * 

57 * * 
5f * (P.) IF AN INVALID ID WAS NOT RECEIVED, THE PRCGRAM * 
59 * CISCCNNFCTS THE LINE. * 
6C * . * 

61 * (3.) WHICH ENDED WITH ERROR, THE PRCGRAM TAKES A SNAP DUMP AND * 

62 * IF A DATA CHECK OCCURRED ON A READ CONTINUE OPERATION, * 

63 * PERFORMS A RFAP REPEAT. IF THE ERROR WAS NPT /\ CATA CHECK, * 

64 * AN ERROR MESSAGE, 'FPROR CANNOT BE HANDLED BY PROGRAM', IS * 

65 * PRINTED ON THE CONSOLE. * 

* 
* 

IF THF. OPERATION WAS A WRITE - * 

* 

(1.) WHICH COMPLETFO NORMALLY WITH NO BITS TURNED ON IN * 

DECFLAGS, THE PRCGRAM CONTINUES WITH THE NEXT OPERATION. * 

* 

(2.) WHICH COMPLETED NOR-MALLY AND IS NOT A WRITE CCM^ECT, THE * 

PRCGRAM DISCONNECTS THE LINE. * 

* 

(3.) WHICH COMPLETED NORMALLY AND IS A WRITE CONNECT, THE WRITF * 

CONNECT IS REISSUED IF A WACK OP IP NAK WAS RECFIVEC. IF AN * 

INVALID TO WAS RECEIVED, A MESSAGE, 'INVALID ID RECEIVED - * 

NOTHING TRANSMITTED TC TERMINAL', IS PRINTED CN THE CONSOLE. * 

OTHERWISE, THE PROGRAM DISCONNECTS THE LINE. * 

* 

(A.) WHICH COMPLETED WITH ERROR, THE FRCGRA" TAKES A SNAP RUMP * 

AND CHECKS FOR A TIMFOUT CONDITION. * 

* 

(A.) IF THE ERROR WAS A TIMEOUT, THE PROGRAM REINITIATES * 

THE OPERATION. * 

* 

(B.) 1= THE ERROR WAS NOT A TIMEOUT, An'eRROR MESSAGE, * 

'ERROR CANNOT BE HANDLED BY PROGRAM', IS PRINTED ON THE * 

CONSCLF. * 

********************************* *£*;;,#^^ 
PRINT NOC-EN 

Appendix N: Sample Start-Stop and BSC Programs 345 



6 6 


* 


67 


* 


68 


* 


69 


* 


70 


* 


71 


* 


72 


* 


73 


* 


7A 


* 


75 


* 


76 


* 


77 


* 


78 


* 


79 


* 


8C 


* 


81 


* 


82 


* 


83 


* 


8A 


* 


8 5 


* 


86 


* 


87 


* 


88 


* 


89 


* 


c r 


* 


91 


* 


92 




93 





SAVE (14,12) 



SAVF RFGISTPPS 



C0C0C4 05C 
C00CC6 

cnoccc 

CGOOCC 

C00OC6 500C C7C6 

coccoa 4ico C7C2 

COCCCE MfC C6C6 
000012 4170 C73A 





99 


ENTRY 




ICC 






101 






102 




007CC 


1C4 




007CR 


10 5 




0C60C 


re 6. 




0C7A0 


10 7 
109 
lie 





BALP BASEREG.O 
tSING *,BASEREG 
USING IHACCB,CCBREG 
USING lECTCFCS.CECBRFr, 



ST SAVEREG,SAVE+4 

LA SAVEPEG,SAVE 

LA rCPRFG,MYDCB 

LA nFOBREG.MYCECB 

WTC 'S'"' T EST HAS BEGUN EXECUTION' 



ESTABLISH ACORESSAeiL ITY 
ESTABLISH ADDRESSABILITY FOR CCE 
AND OECB 

STORE ADDRESS CF SAVE AREA 



OPEN. ( SNAP0C8, (OUTPUT) ) 



OPEN THE SNAP DCB 



LCC 


CPJECT CODE 


A0CR1 


ADDR2 


STMT 


SCLRCF 


STATEMENT 










126 




OPEN 


(MVCCE) 


C00052 
000056 


9110 6030 

47ic CC9A 


C0C3C 


OCOAO 


133 
134 

136 




TM 
BC 

WTC 


OCRrPLGSTX'lC 
BEGIN 

TPEN OIC NCT 


00008E 


47F0 C290 




C0296 


146 




B 


EXIT 



F3CSEP69 10/06/70 



OPEN THE LINE DCB 



010 OPEN COMPLETE SUCCESSFULLY 
IF SO, ISSUE READ CCNNECT 



146 PRINT GEN 

149 ERRPLCCK LERB 1 
150+ERRELCCK DC OF'O' 



ALIGN TAPLE AND ATTACH NAME 



C0C08C OCOOOOOC 
000C9C 0000 
000092 OOOC 
000094 OCOC 

00CC96 CC 
0O0C97 CO 
CC0C98 or 

coco?*; oc 

C0009A PF 
C0CC9P CA 
00CC9C 05 
C0CC9C 05 

00CO9E OOOC 



OCCOCA 4590 C29A 
OOOOCE 47F0 CC9A 



152 + * 


ACCUMULATORS 


153+ 


CC 


FT' 


TRANSMISSIONS 


154 + 


OC 


H «C * 


DATA CHECKS 


155 + 


OC 


H«C« 


INTERVENTIONS 


156+ 


CC 


H'0« 


NCNTEXT TIMECUTS 


157+* 


CCUNTERS 




156 + 


CC 


x.»C* 


TRANSMISSIONS 


159+ 


DC 


X'C» 


DATA CHECKS 


16C + 


CC 


X'O' 


INTERVENTIONS 


161 + 


OC 


X 'C* 


NONTFXT TIMEOUTS 


162+* 


THRESHOLDS 




163 + 


DC 


YI.K255) TRANSMISSIONS 


164 + 


00 


YLK10) C.ATA CHECKS 


165 + 


OC 


YLK5) INTERVENTIONS 


166+ 


OC 


YLK5) NCNTEXT TIMECUTS 


167+* 


RESERVED 




168 + 


DC 


XL2'C' 


17C 


PRINT 


NCGEN 


172 BEGIN 


ECU 


* 




174 RTC 


READ 


>YDECe,TC,MYDC6,, ,ANSl 


C02A0 187 


BAL 


9, TIC 


OOOAO 188 


8 


RTC 





ANSRLIST, 1,MF=E 



CHECK SIO CCNOITICN CCCE 
REISSUE REAC CCNNECT 



00CCC2 ISC RTT 

000CD2 5850 7014 00014 191 

CC00C6 C5C2 5CC1 C812 00CC1 CC818 192 

OOCODC 478C C1CC 00112 1°3 



ECU * 

L AFECDECENTRY 

CLC US.AREGl^X'OCOOOO' 

BE WTTD 



POINT TO TERMINAL LIST 

WAS VALID IC RECEIVED 

IF NCT, DISCONNECT THE LINE 



OOCOFA 459C C29A 
OOOCFE 47FC COCC 



002A0 
C00D2 



195 



204 

205 



READ "YCECB,TT, 



PAL 
B 



,,1,MF=E 



9, TIC 

RTT 



CHECK SIO CONDITION CCCE 
REISSUE QEAC CONTINUE 



LCC 


OBJECT COCE 


ACCR1 


AD0R2 


STMT 


SCURCE STATEMENT 


000102 


585C 70CC 




COOOC 


207 


L 


ARECDECAPEA 


CCC106 


S537 50C0 


OOCOC 




208 


CLI 


0( AREG) ,X«?7 


C001CA 


4780 C1CC 




0QU2 


209 


BE 


WTTD 


CCC10E 


47FC CCCC 




00002 


21C 


3 


RTT 



F30SEP69 IC/e-e/lO 



GET ACCRESS OF MESSAGE AREA 
HAS ECT BEEN RECEIVED 
IF SO, DISCONNECT THE LINE 
IF NOT, READ MCRE TEXT 



00C124 459C C29A 
OO012P 47F0 C1CC 



002A0 219 
00112 22C 



WRITE VVCECB,T0,MF=E 



BAL 9, TIC 

B WTTO 



CHECK SIO CCNOITICN CCCE 
REISSUE WRITE DISCONNECT 



0CC12C 4IBC C486 



C0C166 459C C29A 
0CC16A 47FC C12A 



0C48C 


222 






224 


WTC 


0C2AC 


240 




001 30 


241 





LA APEAREG.CUTMSG PCINT TO OUTPUT MESSAGE 

WRITE MYCECB.TCMYDCB , ( AP EAREG ) , 58 ,C I ALL 1ST , 1 ,M F=E 



BAL 



o,TIO 
WTC 



CHECK SIC CCNOITICN CCCE 
REISSUE WRITE CCNNECT 
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00016E 5850 7C14 00014 

00017Z F15C2 50C8 C815 OOCC8 C081B 

C0C178 477C C17C C0182 

C0O17C C201 P?C1 C8CE OCCOl 0^814 



242 




L 


APEG.DECENTRY 


244 




CLC 


8 <3,AREGt ,=X'E6E62D 


245 




BNE 


NTT2770 


246 




MVC 


1<2,AREAPEG) iOCISP 


247 


* 






248 


* 







PCINT TC TERMINAL LIST 
WAS IC RECEIVED FPCM 2770-RR,ENQ 
BRANCH IF NCT 

IF SC, MOVE THE CEVICE CONTRCL 
CHARACTER FOR THE PRINTER 
IMC THE OUTPUT MESSAGE 



C0C16C 4530 C29A 
0CC1BC 47FC C17C 



C02AC 
C0182 



250 NCT277C ECU * 

252 WTT WRITE MVCECB , TT , , < AREAR EG I , 27 , , 1 , MF = E 



265 
266 



BAL 

B 



9, TIT 
4TT 



CHECK SIO CONDITION COCE 
REISSUE WRITE CONTINUE 



0CC1B4 41BB 001B 

COOlBe 58AC C8CA 

0001BC 41AA CCC1 

OOflCC 5CA0 C.8CA 

0001C4 9506 CSCP OC813 

00C1C8 477C C17C 

C0C1CC C703 CCA C8CA (K81C C"81C 



0CC1E4 4590 C29A 
CC01E8 47FC C1CC 



00018 


268 


LA 


AREAREG,27(AREAREG) 


00810 


269 


L 


CTREG,CCUNTER 


00001 


27C 


LA 


C7REG,KCTREG> 


C081C 


271 


ST 


CTREG, COUNTER 




272 


CLI 


CellNTER + 3,X , 06 , 


00182 


273 


BNE 


WTT 


Cr>81C 


274 


XC 


COUNTER (4) ,CCUNTER 




276 WTO 


WRITE 


MYDECB,TC,^F=E 


002 AC 


283 


PAL 


9, TIC 


C-0102 


284 


P 


W T C 



PCINT TO NEXT CLTPIT MESSAGE 
UPDATE COUNT OF 
MESSAGES SENT 
SAVE THE NEW CCUNT 
HAVE SIX MESSAGES BEEN SENT 
IF NCT, PCINT TO NEXT MESSAGE 
RESET COUNTER TC ZERO 



CHECK SIO CCNOITICN CCDE 
REISSUE WRITE DISCCNNECT 



PAGE 



LCC CPJECT CODE 



CCC296 

00C296 58D0 C7C.6 



0C02AC 12FF 
00C2A2 4780 C2CE 



CC020C 47F0 C27A 



ACCR1 A0DR2 STMT 
288 



294 

309 

324 

33C 

34C CLCSE 

342 

349 



SCLRCE STATEMENT F30SEP69 1C/C6/70 

SNAP TC=2,MF=(E,SDUMP) LOOK AT ANSWER LIST PEFCRE CHGNTRY 
CHGNTRY ANSRL!ST,SWLST,1,0ISC CHANGE CONTROL BYTE VALUE TC 1 
CHGNTRY ANSPLIST,SWLST,2,0ISC CHANGE CCNTRCL BYTE VALUE TC 1 
SNAP ID=3,MF=(F,SDUMP) LOOK AT ANSWER LIST AFTER CHGNTRY 
WTC 'SWTEST HAS SUCCESSFULLY COMPLETED" 
ECU * 

CLOSE THE LINE DCB 

CLOSE THE SNAP OCB 



35fc EXIT 
357 



CLCSE (MYDCE) 
CLCSF (SNAPDCB) 



ECU * 

L SAVEREG,SAVE+4 

RETURN (14,12) 



363 


TIC 


LTR 


15,15 


364 




BZ 


WAIT 


366 




WTC 


'SIO WAS NCT GCOD' 


376 




SNAP 


IC=4,MF=(F,SDUMP) 


382 




B 


nrsF 



RESTORE REGISTERS 
RETURN CONTROL 



EXCP ISSUEC 

ISSUE WAIT IF GOOD SIC 



LCOK AT OECFLAGS 



0CC2C4 



0CC2FC 91C1 7CC5 

00C2E4 4"?8C C37A 

CCC2E8 

00C2E8 917F TOCO 

0002EC 47F0 C332 

0CC2FC 9500 7018 

0002F4 4789 C0C4 



CC0306 9510 7C18 
CCC3CA 477C C10C 



C00334 47FC C1CC 



384 


WAIT 


ECL 


* 


386 




WAITR 


l.,ECB=(CECBREi 


392 




TM 


0FCTYPE+1,X"C1 


393 




BZ 


! -IPTRTN 


394 


TESTCCCE 


ECU 


* 


395 




TM 


CFCSCECP,X'7F" 


396 




BNC 


RLFRTN 


397 




CLI 


OECFLAGS, X'OC" 


398 




BE 


4( c ) 



SNAP ID=5,MF=(E,SDUMP) 



406 


CLI 


OFCFIAGS,X'10' WAS 


407 


BNE 


WTTO IF N 


409 


WTC 


•AM INVALID 10 WAS RECEIVED' 


419 


P 


WTTC 



WAIT FOR COMPLETION OF OPERATION 

IS THIS A READ OPERATION 

IF NCT, GO TC WRITE ROUTINE 

WAS ECB POSTED NORMALLY 
IF NCT, CHECK ERROR 
ARE ALL FLAGS ZERC 
IF SC, CONTINUE NORMALLY 



WAS AN INVALID IC RECEIVED 
IF NCT, DISCCNNECT LINE 
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ICC cpjfct code 

:>oc?3s 



ACDRl AD0P2 S T MT SOURCE STATEMENT 



F30SEP69 1C/C6/70 



000346 


9503 


7CC5 


00C34A 


4770 


C456 


00034F 


9K8 


7010 


0OC35 2 


47F0 


C456 


00C356 


58AC 


C8CA 


00035* 


41AA 


O0C1 


C0C35E 


5C«C 


C80A 


00C362 


9502 


C8C0 


C0C366 


4780 


C456 



421 8UFCTN 



SNAP IC=6,MF=(F,SDUMP) 



0C037C 47FC C29A 





42"? 


CLI 


1FCTYPE+1,X'03 


0045C 


43C 


RNE 


FINISH 




431 


TM 


CECSENSCX'08' 


0045C 


432 


rnc 


C INISH 


0081C 


433 


L 


CTREG,CCIjMTF,P. 


00001 


434 


LA 


CTREG, HCTFFG) 


00810 


435 


ST 


CTREG, COUNTER 




436 


CLI 


CCUNTER+3,X'02 


0045C 


437 


BML 


C INISH 




439 


READ 


MYCEC3,TP,t'F = E 


C02AC 


446 


8 


TIC 



LCOK AT CEC.FLAGS 

IS THIS A READ CCNTINUE 

IF NCT, PRINT ERRCP MESSAGE 

WAS FRRCR A DATA CHECK 

IF NCT, PRINT ERRCR MESSAGE 

UPDATE CCUNT OF 

ERRCRS 

SAVE NEW CCUNT 

IS COUNT CF ERRORS TWC 

IF SC, WRITE FRROR MESSAGE 



CHECK SIO CCNDITICN CCCE 



00C38C 


917F 


7000 




OOCOC 




448 WRTPTN 


TM 


0ECSDECP.,X'7F' 


WAS ECB PCSTEO NORMALLY 


00C384 


47E0 


C42C 






C0432 


449 


RNC 


WRFRR 


IF NCT, CHECK ERRCP 


C0C388 


9500 


7018 




00018 




450 


CLI 


OECFLAGS.X'OO' 


ALL FLAGS ZERO 


00C38C 


4789 


CCC4 






C0004 


451 


BE 


4(9) 


IF SCt CCNTINUE NORMALLY 


00C39C 


951C 


7CC5 




00CC5 




452 


CLI 


DECTYPE+1,X' 1C 


IS OPERATION WRITE CCNKECT 


00C394 


477C 


C1CC 






001D2 


453 


BNE 


WTD 


IF NCT, DISCONNECT THE LINE 


000398 


95CC 


7C18 




00018 




454 


CLI 


0ECFLAGS,X'CO« 


WAS WACK RECEIVED 


00C39C 


4780 


C3B6 






003BC 


455 


BF 


RETURN 


IF SC, CHECK FCR SECONC TIME 


0003AC 


585C 


7C14 






00014 


456 


L 


ARECDECENTRY 


PCINT TC TERMINAL LIST 


0003A4 


4155 


00C8 






00008 


457 


LA 


APEG,8(AREG) 


PCINT Tfl RE.AO-IN-AREA 


0003A8 


C5C2 


50C0 


C818 


OOOCC 


00P1E 


455 


CLC 


( 3, AP.EG) t=X' 090930'' 


WAS IC NAK RECEIVEC FRCM 278C 


0003AE 


4780 


C3B6 






C">3BC 


459 


BE 


RETURN 


IF SO, CHECK FCR SECOND TIME 


C0C3E2 


C5C2 


5000 


C81B 


OCCCC 


CC821 


46C 


CLC 


0<3,AREG),=X'E6E63D' 


WAS IC NAK RECEIVEC FRCM 277C 


000368 


4770 


C3C4 






003DA 


461 


BNE 


FINI 


IF NOT, CHECK FOR INVALID ID 


00C3EC 












462 RETIRN 


FCU 


* 




0003BC 


58AC 


C8CA 






C0P10 


463 


I. 


CTRECCCUNTER 


UPDATE CCUNT OF 


0C03CC 


41AA 


C0C1 






00001 


464 


tA 


CTRE'G, KCTREG) 


TIMES RECEIVED 


0003C4 


50AC 


CPCA 






0081^ 


465 


ST 


CTREG, COUNTER 


SAVE NFW CCUNT 


00 3C8 


95C2 


CPOD 




00813 




466 


CLI 


CCLNTER+3tX , 02' 


HAS THIS eEEN RECEIVEC TWICE 


0003CC 


477C 


C12A 






00130 


*67 


BNE 


WTC 


IF NCT, REISSUE WRITE CONNECT 


0003CC 


C703 


C8CA 


CPOA 


OC810 


00810 


468 


XC 


COUNTER (4) ,CCUNTER 


RESET COUNTER TC ZERC 


000306 


47F0 


C1CC 






001D2 


469 


8 


'WTO 


OISCCNNECT THE LINE 



0003E8 9510 7C18 
0003EC 477C C1CC 



00C42E 47FC C1E6 



471 FIM 
473 



479 
48C 



482 
492 



ECU 
SNAP 



CLI 

BNE 



WTC 
P. 



ir=7,MF=(E,S0UMP) 



DECFLAGS,X'10' 

WTC 



LCOK AT THE SENSE IN THE DECB 



WAS AN INVALID ID RECEIVEC 
IF NCT, DISCONNECT THE LINE 



'INVALID ID RECEIVED-NOTHING TRANSMITTED TC TERMINAL' 
SNAP 



LCC OBJECT CODE 
00C432 



OPOMC 9501 7010 
000444 4770 C456 
00O44e 5PAC 6.8CA 
00044C 41AA 0CC1 
00045C 5CAC CPCA 
00C454 9502 C8C0 
00045P 4749 COOO 



0CC48S 47F0 C?7A 



ADCR1 ADDR2 STMT SOURCE STATEMENT 



F3CSEP69 1C/06/70 



0C01C 





5C2 


CLI 


004 5C 


503 


BNE 


CC81C 


504 


L 


000C1 


505 


LA 


00810 


506 


ST 




5C7 


CLI 


coooo 


508 


BL 



SNAP IC=8,MF=(E,SCUMP) 



DECSFNSCt X«01« 

FINISH 

CTREG, CCLNTER 

CTREG, KCTREG) 

CTREG, CCLNTER 

CCUNTER+3,X'02' 

0(9) 



MC FINISH WTC 

C0280 52C B 



WAS ERROR TIME CUT 

IF NCT, PRINT ERRCR "ESSAGE 

UPDATE CCUNT OF 

ERRCRS 
SAVE NEW CCUNT 
IS ERRCR CCUNT 2 
IF NCT, REISSUE OPERATION 



'frrcr cannot be handlec ey program' 
:lcsf 
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ccc4pc o??7ci 

00C4PF F3CPX9E24CC9E240 

00C4A5 1526 

00C4A7 02 

0004AF. E3C.8C9E24CC9E240 

C0C4CC 1526 

CCC4C2 C2 

0004C3 E3CeC9E24CC9E240 

C0C4CP 1526 

0CC4DC 02 

CC04CE E3CEC9E24CC9E240 

000AF6 l c 26 

CCC4FE C2 

0004F9 E3C8C9E240C9E240 

000511 1526 

00C512 C2 

00C514 E3C8C9E24CC9E240 

00052C 1526 



522 


PRINT 


GEN 










523 OUTVSG 


OC 


X«0227C1' 








524 


DC 


C'THIS 


IS 


TEST 


MESSAGE 


1 


525 


OC 


X'1526' 










526 


CC 


X'C2' 










527 


CC 


C'THIS 


IS 


TEST 


MESSAGE 


2 


528 


DC 


X'1526' 










52? 


r.c 


X'02' 










53C 


DC 


C'THIS 


IS 


TEST 


MESSAGE 


3 


531 


DC 


X'1526' 










532 


DC 


X'02' 










533 


DC 


C'THIS 


IS 


TEST 


MESSAGE 


4 


534 


DC 


X'1526' 










535 


CC 


X 'C2' 










536 


DC 


C'THIS 


IS 


TEST 


MESSAGE 


5 


537 


OC 


X '1526' 










538 


CC 


X ' C 2 ' 










53? 


OC 


C'THIS 


IS 


TEST 


MESSAGE 


6 


540 


DC 


X'1526' 











54 2 *********************************************************************** 

543 * * 

= 44 * IF THF USER WISHES TC EXFCLTE THIS PRCGPAN, HE MST CCCE HIS * 

545 * CFTRMLST MACROS TO HANCLF THF ID'S OF HIS PARTICULAR TERMINALS. * 

546 * * 

547 *********************************************************************** 



54? ANSRLIST DFTPMLST SfeLS T , AN, 4,0, 2, 107C , ( C9C92C ) , ( E6E62C ) 



0C053C 
CC053C FF 
000531 COOOOC 
000534 C2 
0C053 5 C4 
000536 C3 



55C+ANSRLIST DS 



551 + 

552 + 

553 + 

554 + 

555 + 



DC 
OC 
DC 
DC 
DC 



OF PUT CN FULL WCPO BOUNDARY CCCL 
XLl'FF' IDENTIFY AS SWLST OOOL 

XL3«0' PTR TC MATCHING SECUENCE OOCL 
HL1'2' NUMPER OF LIST ENTRIES COOL 
HL1'4' ENTFY LENGTH COOL 

HLl'3' REAC-IN-AREA LENGTH OOCL 



LCC 


CEJECT CODE 


0CC537 


CC 


000536 


COCOCC 


00053E 


C2 


0C053C 


1C70 


00053E 


C9092D 


000541 


CO 


000542 


E6E62C 


000545 


CC 



ADCR1 ACDR2 STMT 

556 + 

557 + 
558+ 
559 + 
56C + 
561 + 
562+ 
563 + 



SCLRCE STJTtKtM 



i r tnt- nn 



CC HLl'O' NC. OF DIAL DIGITS TOOL 

CC XL3'0' REAC-IN-AREA OOOL 

CC HL1'2' IDCCUNT OCOL 

OC XL2'107C IDSENT OCOL 

CC X'D9DQ2C AUTHORIZED SEGUENCE OCOL 

DC XLl'OO' CONTROL -BYTE VALUE CF C OOOL 

DC X'E6E62C AUTHORIZEC SEQUENCE OCOL 

DC XLl'OO* CCNTRCL BYTE VALUE CF OOOL 



565 DIALLIST DFTRMLST SUL ST ,MD , 5 ,0 , 1,, 20 , ( D9C9 1C70 , 1 ) , ( E6 E6 107C , 1 ) 



00C54P 




C0C54? 


FF 


00054? 


CCCOOC 


00C54C 


02 


00054C 


C K 


00C54E 


C4 


0CC54F 


co • 


00C55C 


CCCCCCCC 


000554 


CI 


OOC555 


•2C 


000556 


C?D?107C 


00C55A 


CI 


00055E 


E6E61C7C 


00055F 


CI 



CCC56C OCCCOCCCOOOOOCOO 



566+DIALLIST DS 



OF PUT CN FULL WCRD BOUNDARY OOOL 



567 + 


CC 


XLl'FF' ICENTIFY AS SWLST 


OOOL 


568 + 


DC 


XL3'0' FTP TO MATCHING SECUENCE 


OOOL 


56?+ 


CC 


HL1'2' MMPEP CF LIST ENTRIES 


OOCL 


57C+ 


DC 


HLl'5' ENTPY LENGTH 


OOOL 


571+ 


CC 


HL1'4' REAC-IN-AREA LENGTH 


OOOL 


5 7 2+ 


DC 


HLl'C NC. OF DIAL DIGITS 


OCOL 


573+ 


CC 


XL4'C REAC-IN-AREA 


COOL 


574 + 


DC 


HLl'l' IDCCUNT 


OCOL 


575 + 


CC 


XL1'2D' IDSENT 


OCOL 


576 + 


DC 


X'D9C9107C AUTHORIZED SECUENCE 


1 


577+ 


DC 


Ylllll CCNTRCL BYTE 


OOOL 


578+ 


DC 


X'F6F61070' AUTHORIZED SECUENCE 


I 


579 + 


CC 


YLK1) CONTROL RYTE 


OOOL 


591 INAREA 


CC 


lCCF'O' 




583 MYCCB 


DCB 


CSCRG=CX,DEVD=BS,MACRF=(R,W),CCNAME=B27 



LERP. = ERPBLCCK,EROPT=TC 



00C6CC 
0CC6CC 
00C6FC 



585 + * 

586 + * 

587+ ORG 

588+MYCCE DS 
589+ ORG 



DATA CONTROL BLOCK 

*-20 TO ELIMINATE UNUSED SPACE 
OF ORIGIN ON WORD BCUNDRY 
*+20 TO ORIGIN GENERATION 



59 1+* 



COMMON ACCESS METHCD INTERFACE 



0CC6FC CC 

0CC6F1 CC0CC1 

00C6F4 CCCC 

0006F6 1CCC 

CCC6FP. 00C00C01 



593 + 


CC 


594 + 


CC 


595 + 


DC 


596 + 


DC 


597 + 


CC 



ALKO) EUFNO 
AL3I1) EUFCB 
AL2(0) eUFL 

i?L2'00010CCOOOCOOCOO' OSORG 
All) IOEAC 



FOUNDATION EXTENSION 



C006FC CC 

0006FC 18 

C0C6FE FF 

0CC6FF OC 

C007CC OC 



601 + 


CC 


602 + 


DC 


603 + 


DC 


6C4 + 


DC 


605+ 


DC 



"5Ll'COO000C0' PFTEK,BFALN,HIARCHY 
^Ll'OOOllCCO' BTAM EROPT CODE 
ALK255) 6TAN 1 BUFFER COUNT 
ALKO 
BLl'OOOCOOCC PECFM 
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Lrc cejECT criDF 

C0C7C1 OCOOCC 



ACCR1 ACOR2 STMT SCL'RCF STATEMENT 

6C6+ CC AL3(C) EXIST 

6CS + * FOUNDATION BLCCK 



F30SEP69 I.C/C6/7C 



C0C704 C2F2F7F7FCC4FCF1 

"0C7CC 02 

C0C7CC C^ 

C0C7CE 2020 



61C + 


DC 


611 + 


CC 


612 + 


CC 


613+ 


DC 



CL»'B2770CC1' OONAME 
RLI'COOCOCIO' OPLGS 
BLl'COOCCCCC IFLG 
BL2'0010CCC0C010CC0C' MACR 



ETA^ INTERFACE 



C^CIC C00C0C8C 
CCC714 CC 

000715 ec 

CCC716 CCOCOCCCCOOCOOOO 
0C073C CCCCCCCCOCOOOOOO 



617 + 


nc 


618 + 


CC 


61= + 


DC 


62C + 


DC 


621 + 


CC 



A(ERRBLCCK) CCPLEPB 
Bl.KOCOCCOCC* MCCE 
81. 1 • 100CCOCO' MAS, CODE 
XL26'0' CONTROL CHARS 
4F'0' RESERVED 



CCC74C 

C0C74C CCCCOOCC 
000744 CO 
CCC745 C3 
00.C746 Ol^C 
C0C746 CCCCC6DC 
00C74C CC0CC56C 
0CC75C CCOCOCOC 
C0C754 CC0CC53C 
0CC758 CCC1 
CCC75A CCCC 
00C75C CC 
CC075C CC 
CCC75E CCCC 
0CC76C COCOCCOC 
00C764 COOOOCCC 



625 + 

626+MYCECR 
627 + 

626 + 
62<5 + 

630 + 

631 + 

632 + 

633 + 

634 + 

635 + 

636 + 

637 + 

638 + 
63<= + 
64C + 



READ MYCECP,TT,l"YOCP, INARE A,40C , ANSRL I ST , 1 1 MF = L 

CS OF 

CC A(0) EVENT CCNTRCL BLOCK 

DC RLl'OOO' 

CC ALK3) TYPF FIELD 

DC AL2(400) LFNGTH OCCB 

CC A(WYCCB) CCB ADDRESS 

CC A(INAREA) AREA ACCRESS COOR 

DC A(0) ERROR INFO. FIELD ACDR 

CC A(ANSRLIST) TERMINAL LIST ACCRESS 

CC AL2(1) LINE NUMBER 

CC AL2(0) RESPONSE FIELD 

DC ALKO) TP-CP CCOE 

CC ALKO) ERROR STATLS 

DC AL2(0) CSW STATUS 

CC AL4(C) CLRRENT ACCR LIST PTP 

DC AL4<0) CURRENT ADDR POLL PTR 



642 SNAFCCR OCR 



CSCRG=PS,PECPM=VEA,MACRF=W,BLKSIZE=1632,LRECL=125, 
OCNAME=SNAPSW,DEVD=PR 



C0075F 
C n 0758 
CCC768 



644 + * 




645 + * 




646 + 


ORG 


647+SNAFCCP 


CS 


646 + 


ORG 



CATA CONTROL BLOCK 

*-16 TO ELIMINATE UNUSED SPACE 
OF ORIGIN ON WORD BOUNDRY 
*+16 TO ORIGIN GENERATION 



0C076F cere 
C0C76A COOO 



652 + 

653 + 



CC 

nc 



PRINTER DEVICE INTERFACE 



BL2 , OOOO0OCCO0O00OOO' PRTSP.CEVT 



COMMON ACCESS METKC INTERFACE 



LCC OBJECT COCE 

C0C76C CC 

C0076C CCO0C1 

CCC77C CCCC 

0CC772 4CC0 

CCC774 CC00C001 



ACCR1 ADDR2 STMT SOURCE STATEMENT 



F3CSEP69 10/06/70 



657 + 


DC 


656 + . 


CC 


659 + 


CC 


66C + 


DC 


661 + 


CC 



ALKO) BLFNC 
AL3U) BUFCB 
AL2(C) EUFL 
eL2•010000COCOOOOCOO■ 
A(l) IOBAD 



FOUNDATION EXTENSION 



CCC778 CC 
0CC77<; CC00C1 
CC077C 54 
C0C77C CCCOCO 



665 + 


CC 


666 + 


CC 


667 + 


CC 


668 + 


CC 



BLl'OOOCOCCO' 
AL3(1) ECCAD 
BLI'OIOIOICO' 
AL3(0) EXIST 



BFTEK,BFALN,HIARCHY 



0CC78C E2C5C1C7E2E64C40 

00C788 02 

C0C78S CO 

00C78A CC20 



672 + 


DC 


673+ . 


DC 


674 + 


DC 


675 + 


DC 



FOUNDATION BLOCK 

CLP'SNAPSW OCNAME 
BLI'OOOCOOIO' OFLGS 
SLl'CCOOCCOO-' IFLG 
BL2'000C0CCCCC1C0C00' MACF 



P.SAM-BPAM-CSAM INTERFACE 



C0C78C CC 
C0078C C00C01 
QCC7<;C CCC00CC1 
C0C754 CCCC 
C0C796 C66C 
00C7S8 CCCCCCC.C 
C0C79C C0000C01 
0OC7AC CC 
C007A1 CCC0C1 



68C + 


DC 


63 1 + 


CC 


682 + 


CC 


68 3 + 


DC 


684 + 


CC 


685 + 


DC 


636 + 


CC 


687 + 


CC 



BLl'OCOCPCCO 1 RER1 

AL3U) CHECK, GEPR, PERP 

A(l) SYNAD 

H'C" CINC1, CIND2 

AL2(1632) RLKSIZE 

F'0« WCPC, KCFL, CFFSR, OFPSW 

A(l) IOBA 

ALKO) NCP 

AL3(1) EOER, EORAC 
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RSAf'-EPAV INTFPFACE 



C0C7A4 CCCCCCC1 

0CCA8 OCCC 

C007AA CC70 

CC07AC CCCOCCC1 



691 + 


DC 


692 + 


CC 


693 + 


DC 


694 + 


CC 



4(1) Eoev. 

H«0« DIRCT 
AL2<125) LPECL 
A(l) CNTPL, NOT' 



ccc-7ec 

CC07BC CI 
CCC7E1 CC 
0CC7E2 86 
C0C7P? 2C 
C0C7B4 CC0CC758 
OOC7E8 CCCCCCCC 
0CC7EC C0CCC7CC 
00C7CC CC0CC53C 
0CC7C4 OCC007BO 
GCC7C4 
0CC7C4 8C 
00C7Ce 



696 SCLNF SNAP CC E = SN'APOCB t 10 = 1 , PCAT A= ( R FGS ) , 
STCRAGE=(AhSRLIST, SDUMPJ^F^-L 
OF 

ALl(l) IC NUfBER 
ALKC) 

ALK134) OPTION FLAGS 
ALK32) CPTICN FLAGS 
A(SNAPDCB) OCB ACCRESS 
A(C) TCB AOCRESS 

A<*+4) ACCRESS CF SNAP-SHOT LIST 
A(ANSRLIST) STARTING/ENDING ACCRESS 
A(SDUMP) STARTING/ENDING ADDRESS 
*-4 
X'RC" 
* + 3 



697+SCLNF 


cs 


69P + 


DC 


699 + 


CC 


70C + 


DC 


701 + 


CC 


7C2 + 


CC 


703 + 


DC 


7C4 + 


CC 


705 + 


CC 


7C6 + 


DC 


7C7 + 


CPG 


7C8 + 


CC 


7C9 + 


CRG 



LCC 


OBJECT COCE 


ADDR1 AUUK2 iinT 


SCLRCC 


STATEMENT 


0CC7C8 




711 


SAVE 


CS 


ieF«o« 


CCC81C 


ccccoccc 


712 


CCLMEP 


CC 


F'C« 


CCC814 


1140 


713 


DC1SP 


DC 


X«1140 


CCC005 




714 


AREG 


ECU 


5 


cococe 




715 


DCePEG 


EQU 


6 


C0C0C7 




716 


CECEPEG 


ECU 


7 


COCCCA 




717 


CTPEG 


EQU 


IC 


COCCCE 




718 


AREAPEG 


ECU 


11 


cccocc 




719 


BASEPEG 


EQU 


12 


cocccc 




72C 


SAVEPEG 


ECL 


13 



F3CSEP69 1C/C6/70 



SAVE AREA 

COUNTER 

DC1, SPACE 

REG USED TC POINT TC CFTRNLST 

DCE REGISTER 

CFCE REGISTER 

COUNTER REGISTER 

MESSAGE AREA REGISTER 

BASE REGISTER 

SAVE AREA REGISTER 



DCBC DEVD=BS,DSCRG=BX 



724 + * 

725 + * 



CCB SYMBOLIC CEFINITICN FOR 
ETAC LINE GROUP 



727+IHACCB CSECT 



ETAN LINE GROUP INTERFACE 



CC0C14 
0CCO14 
000014 
C00018 
0C001A 
C00C1C 
CC002C 
CCC02C 
C0002V 
000022 
C0C023 
000024 
OOCOIC 
CGCC1C 
C0C024 
C00024 



731 + 


CRG 


IFADCB+2C 


732+CCEPLFNC 


DS 


0AL1 


733+DCEPLFCB 


DS 


A 


734+DCPELFL 


CS 


AL2 


735+CCECSCPG 


DS 


BL2 


736+CCEICBAC 


CS 


A 


737+CCEFIAPC 


CS 


0PL1 


738+CCEEFTEK 


CS 


BL1 


739+CCEEPRCF 


DS 


AL1 


74C+CCEELFCT 


CS 


AL1 


741 + 


CS 


AL1 


742+CCEFXLST 


DS 


A 


743 + 


ORG 


IFACCB+28 


744+CCECEVTP 


CS 


BL1 


745 + 


ORG 


It-ACCB + 36 


746+DCEEICPX 


DS 


BL1 



749 + * 



FCUNDATICN BEFORE OPEN 



C00028 
CCC028 
0CC03C 
C0C031 
000032 



751+ ORG II-ACCB + 4C 

752+CCECCNAN CS CLP 

753+DCECFLGS DS BL1 

754+CCEIFLC OS PL1 

755+DCENACR DS BL2 



757 + * 



FOUNDATION AFTER OPEN 



00CC2E 
C0CO28 
00CO2A 
00CC2C 
C0002C 



7 5 9+ 


CRG 


IFACCB+4 


76C+CCETICT 


DS 


BL2 


761+CCEVACPF 


DS 


PL2 


762+PCEIFLOS 


OS 


0PL1 


763+CCECEBAC 


CS 


A 



Appendix N: Sample Start-Stop and BSC Programs 351 



ICC OBJECT CCCE 



ADCR1 ACQR2 STMT SCLRC C STATFMENT 



F3CSEP69 1C/06/70 



CCCC3C 

cccc?c 



C0C034 
0OCO34 

ccrcse 

0CCC39 
C0CC3A 

ooco2e 

C0CC3C 
C0 0C3C 
00CO3E 
0CC03F 
C0CC4C 
CCC042 
CC0C44 
COCC45 
00CC46 
C0CC^7 
CC004E 
COCOA? 
C0CC4C 
C0CC4E 
COCC5C 



764+CCERFAC 


CS 


0* 


Tt't + DCEhRITF 


CS 


ca 


767 + * 






76 8 + 


CRG 


IFACCB+52 


769+CCELERR 


DS 


A 


771+DCEXMCCF 


CS 


BL1 


772+0CEXCCCF 


CS 


BL1 


773+CCEESRSV 


DS 


CL1 


774+CCEBSVPT 


DS 


CL1 


775+DCEESTSX 


DS 


CL1 


776+DCPESSTX 


DS 


CL1 


777+CCEESTFX 


DS 


CL1 


77P+DCEESETX 


CS 


CL1 


77 C +CCEESAKC 


DS 


CL? 


78c+cc.ffsaki 


CS 


C.L2 


781+cceesfnc 


DS 


CL1 


782+CCEESNAK 


CS 


CL1 


7S3+DCEE5ETP 


CS 


CL1 


784+CCEESCLE 


rs 


CL1 


785+DCEESECT 


DS 


CL1 


786+DCeESSYN 


DS 


CL3 


787+CCEESCNL 


DS 


CL2 


788+DCEESSAK 


CS 


CL2 


789+CCEESRVI 


CS 


C12 



FTAV INTERFACE 



791 IECTDECP 

792+IECTCECB DSECT CFCB DLMMY SECTICN 

79 3+* 

794+* + 

795+* C + STANCARC EVENT CCNTROL BLCCK 

796+* + 

797+* + 

79?+* + + 

799+* 4 + CPERATICN TYPE + AREA LENGTH 

POC+* + + 

80 1+* + 

802+* + CN-LINF + 

803+* 8 +TERMINAL + ADCRESS CF DCB 

804+* + TFST + 

80 5+* + 

806+* + + 

P07+* 12 +RESFRVEC + ACCRESS CF AREA 

808+* + + 

809 + * + 

81C+* + + 

811 + * 16 + SENSE BYTES + RESIDUAL CCLNT 

81 2+* +16 2+ 

81 3 + * + 

P14 + * + + 

815+* 2C + ccmnanc l accress cf terminal list 

816+* + CODE + 

8 17 + * + 



LPC OBJECT COOF 



ADCR1 AD0R2 STMT SCIPCF STATEMENT 



F3CSEP69 1C/06/70 



81S + * 




+ 


+ 


RELATIVE* + 


+ 


819 + * 


24 


+ statls 


+ 


LINE + ACDRESS + VPC/LRC 


+ 


82C + * 




+ flags 


+ 


NUMBER + PESPGNSE+ RESPrNSE 


+ 


821 + * 

822 + * 














+ 


+ 


+ 


+ 


823 + * 


28 


+ TP-CP 


+ 


ERRCR + CSW STATLS 


+ 


824 + * 




+ CCDE 


+ 


STATUS + 


+ 


825 + * 
826+* 














+ 


+ 




+ 


827 + * 


32 


+RFSEPVFD 


+ 


ACCRESS GF CURRENT 


+ 


828 + * 




+ 


+ 


ADDPFSSING ENTRY 


+ 


829 + * 
83C + * 














+ 


+ 




+ 


831 + * 


36 


+PFSFRVEC 


+ 


ACCRFSS CH CURRENT 


+ 


832+* 




+ 


+ 


PCLLING ENTRY 


+ 


833 + * 

834 + * 














+ 


+ 


+ 


+ 


835 + * 


4C 


+PESFRVFO 


+PFSFPVFD + WRITE AREA LENGTH 


+ 


836+* 




+ 


+ 


+ 


+ 


837 + * 

838 + * 














+ 


+ 




+ 


839 + * 


44 


+RESFRVFD 


+ 


ACCPFSS CF URITE AREA 


+ 


84C+* 




+ 


+ 




+ 


P41+* 
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LCC CBJECT COOE 

cooooo 

CCCCC4 

cococe 

cccoce 
cooooe 

cccooc 

COCOIC 

OOOOll 

C00012 

C00014 
C00014 



ACCP1 ACDR2 STMT SCLRCE STATEMENT 



F3CSEP69 1C/C6/70 



843+CECSCECB 05 

845+rECTYPF DS 

847+DECLNGTF DS 

849+CECCNLTT DS 

85C + DECCCB*r. DS 

852+CECAPEA DS 

854+CECSENSC DS 

P56+CECSENS1 DS 

858+CECCCLNT DS 

86C+CECCyCCC DS 

861+DECENTRY DS 



IF STATUS FLAG + ADCPESS CF THE TC° 

IF CPERA7ICN TYPF 

IH AREA LENGTH 

0CL1 RFSEPVET FCR GN-LINF TERMNAL TFST 
IF ADDRESS OF OCR 

IF ACDRESS CF AREA 

1C 1ST SENSF BYTE 

1C 2ND SENSE PYTE 

IF PESICLAL. CCUNT 

OfLl CC^AND CGDE 

IF ADDRESS OF TERMINAL LIST 



0OOC18 
00CC19 
000C1A 
CCCOIC 
00001C 
00001E 
00C02C 
000024 
00C028 
00002A 
O0CO2C 



864+CECFLAGS DS 
866+CECRLN DS 
868+CECPFSPN DS 
87C+CECTFCCC DS 
872+DECEPRST DS 
874+CECCSWST DS 
876+CECACRFT DS 
878+DECPCLPT OS 
BRC+ DS 

882 + DECViLNG DS 
P8A + CECV>AREA OS 



1C STATUS FLAGS 

1C RELATIVE LINE NUMBER 

IF RESPCNSE FIELDS 

1C TP-GP CCDE 

1C ERROR STATUS 

IF CSW STATUS 

IF ACDRESS CF CURRENT ADDRESSING tNTPi 

IF ADDRESS CF CURRENT POLLING ENTRY 

2C RESERVED 

IF WRITE AREA LENGTH 

IF ACDRESS CF WRITE AREA 



CCC818 CCCCOC 

CC081E E6E620 

C0C81E C9CS3C 

0CC821 E6E63D 



887 
888 
889 
89C 
891 



= >' CCCOOC 
= X'E6E62C 
= X '09D93C' 
=X'E6E63C' 



CRCSS-REFERENCE 



SYMECL 



LEN VALUE DEFN 



ANSRLIST OOCCA C00530 00550 

AREAREG CCCC1 OOOCCB 0C718 

AREG 00001 000005 0C714 

BASEREG C00C1 OCOCCC 00719 

BEGIN CCCC1 OCCOAO 00172 

BLFRTN 0CCC1 000338 0CA21 

CLCSE CCCC1 000280 CC3AC 

CCUNTEP CCCCA 0C0810 0C712 



CTREG 



CCCC1 OOOCCA 00717 



CCEBFTEK CCCC1 OtCC20 CC738 

OCBBSAKC 000C2 OOOOAO 00779 

CCBESAK1 CCCC2 0C0CA2 0C76C 

DCBBSCLE 0CC01 0000A7 00784 

CCEBSENC CCCC1 OOOCAA CQ781 

CCBBSECT C00C1 000C4P CC785 

DCBBSETB 0CCC1 0CCCA6 0C783 

CCBBSETX 0C0C1 00003F 0C778 

CCBBSNAK COCCI 00CCA5 CC782 

OCPBSCNL 0CCC2 OCOCAC 00787 

CCBBSPSV CC0C1 00003A 0C773 

DCBBSRVI 0CCC2 000050 0C789 

CCeBSSAK CCCC2 OOOCAE CC786 

CCBBSSTX 00CC1 000C3D 0C776 

CCBBSSYN 0CCC3 00CCA9 0C786 



REFERENCES 1C/C6/7 

0180 C296 C2CA 0311 0319 0633 0705 

0222 C232 C2A6 0258 C268 0268 

0191 0192 C2C7 C2C8 02A3 02AA 0456 CA57 0457 0458 046C 

0C99 0100 

0134 

0396 

0382 C52C 

0269 0271 C272 0274 C274 0433 0435 0436 0463 0A65 0466 0468 0468 0504 0506 

0507 

0269 C27C C27C C271 C4-33 0434 C434 0435 0463 C464 0464 0465 05C4 C5C5 0505 

0506 
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DCPPSTFX COCCI C0003F CC777 
CCBPSTSX COCCI 000C3C CC775 

cceesueT cccci oooc3P co774 

CCPPLFCP CCCC4 000C14 CC733 

DCPPl;FCT COCCI OCOC22 C074C 

CCPPIFL CCCC2 0C0C18 CC734 

CCPPUFNC COCCI OOOC14 CC732 

CCP-PCMf CCCC8 00C028 00752 

CCPCEEAC CCCC4 OO0C2C CC763 

CCBDEVTP CCCCI COOOIC CC744 

OCBCSCRG C0CC2 CCOC1A OC735 

CCPFICBX CCCCI 000024 CC746 

DCEFRRCP COCCI 0CCC21 CC739 

CCBFXLST CCCC4 0CCC24 CC742 

CCBHIARC CCCCI 000.C2C CC737 

DCPIFLG CCCCI 000C31 CC754 

DCBIFLGS COCCI 0CCC2C 0C762 

OCRICEAC C0CC4 OOOCIC C0736 

CC6LEPB C0CC4 000034 CC769 

DC8MACR C00C2 000032 CC755 

CCBMACRF 0CCC2 O00C2A 0C761 

CCRCFLGS CCCCI OCC03C 00753 0133 

CCBREAC CCCC4 C00030 CC764 

CCPREG 0C0C1 000CC6 0C715 Old C1C6 

DCBTICT C0CC2 000C28 C076C 

CCBKRITE 0CCC4 OCCC30 C0765 

CCBXCCCE CC0C1 00CC39 CC772 

CCBXfCCE CCCCI 00^038 0C771 

CC1SP CCCC2 0CC814 CC713 0246 

CRCSS-REFERENCE PAGE 2 

SYMeCL IFIS VALUE CBFh REFERENCES 10/06/70 

CFCAPRPT C0CC4 000020 00876 

CFCAREA CCCC4 COOOCC OC852 0207 

CFCPREG 00001 0000C7 CC716 01C2 C1C7 C387 

CFCCfCCO CC0C1 0C0014 0C86C 

CFCCCLNT C0CC2 0C0C12 CC85E 

CFCCSkST CCCC2 00001P 00874 

DFCCCEAC 00CC4 OOOOCP 0C85C 

CFCEMRY C0CC4 000C14 OC861 0191 C243 C456 

CFCERRST 0CCC1 0CCC1C CC872 

DEC C LAGS CCCCI OCOClfi 0C864 03.97 C4C6 C*5C 0454 C479 

rFCLNCTF C0CC2 0000C6 CC847 

CECTNLTT CCCCI 000008 PC849 

OFCPCLPT C0CC4 CCCC24 CCP78 

CFfRFSPN C0CC2 00C01A CC868 

CECRLN ' COCCI 0CC019 0C666 

CECSCECB CCCC4 OOOCOC OCE^S 0395 C448 

CFCSENSC C00C1 ricOCIO CC854 C431 C5C2 

CECSENS1 "CCC1 0C0C11 0C856 

CFCTPCCC CCCCI OOOCIC CC87C 

CFCTYFE C0CC2 OOOC04 00845 0392 C429 C452 

CECWAREA 0CCC4 000C2C 0C884 

CEOLIVG 0CCC2 0C0C2A CC882 

CIALLI<T CC0C4 000548 CC566 0233 

FNTRY CCCC2 CCCCC4 CCCS9 

ERRRLCCK 00004 000C8C CC15C 0617 

EXAPFLF2 CCCCI COCCOC COCCI 

PXIT CCCCI 0C0296 CC356 0146 

FIM COCCI 0CC3CA CC471 C461 

FTMSI- C0CC4 CCC45C OC512 0*30 0432 C437 C5C3 

TFCTCFCP CCCCI OCCCCC CC792 C1C2 

IHACCE COCCI OOCCCC 0C727 Old C731 C743 C745 C751 C75? 0768 

IHPCCC2 COCCI 00CC3A 00115 0112 

II- , P0CC2A"CCCC2 000C3A CC116 C 1 11 

IHBPCC5 COCCI 0C0C86 0C142 0139 

IHPCCC5A CCCC2 00CCP6 CC143 0138 

IHPCC23 COCCI 0CC27T 0C336 0333 

IHPOC23A 0CCC2 00027F CC337 0332 

IHPCC27 CCCCI 00C2CC CC372 0369 

IHB0C27A CCCC2 0C02C0 OC373 0368 

IHP0031 CCCCI 00C332 0C415 0412 

H-RCC31A CCCC2 C0C332 0C416 0411 

IHB0C36 COCCI CC042B CC488 048? 

IHB0C36A C0CC2 O0C42C 0C48S 0^84 

INPCC38 CCCCl 000486 0C516 0513 

IFBC038A 0CCC2 C00486 00517 0512 

INAPFA CCCC4 0CC56C 00581 0631 

MYDCR 00004 0006DC 0C588 01C6 C130 C178 C184 C230 0237 0346 C630 

^YCECB CCCC4 00C74C 0C626 01C7 C175 C196 0213 0225 C253 C277 C44C 

N0T277C CCCCI 000182 0C25C 0245 

CUTNSG CCCC3 0CC48C CC523 0222 

RFTURN CCCCI 0CC3BC 0C462 0455 C459 

PTC C0CC4 OCOCAC 0C175 C1P8 

RTT CCCCI 0C0CD2 0C19C 02C5 0210 

^VF C0CC4 00C7C8 CC711 01C4 C1C5 C357 

SAVEREG COCCI OOOCOC CC72C 0104 C1C5 C?57 
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LCC CPJECT CCOE AD0P1 ADDR2 STMT SCl'RfE STATFMFNT F3CSEP69 10/06/70 

COOCCC 1 EXAMPLF1 CSECT 

2 *#**#*********#************************#*********#**#*#*******«*#****** 

3 * * 

4 * SAMPLE IPC 274C/276C PRCGRAM * 

5 * * 

6 * ■' THIS PRCGRAM EXERCISES ThE BTAM ONLINE TEST LCGIC FCR A * 

7 * NONSUITCKED POINT-TO-POINT LINE TO WHICH IS CONNECTED AN * 

8 * IBM 27^C ECUIPPEC WITH AN IBM 2760 CPTICAL IMAGE UNIT. * 

9 * * 
1C * OPERATION - WHEN THE PRCGRAM HAS BEEN STARTEC, TWO MESSAGES * 

11 * WILL BE TYPED ON THF SYSTEM CONSOLE: * 

12 * * 

13 * IXTBT022 IS LOADED AT XXXXXXXX * 

14 * IXTBT022 FOP NONSWITCHED 2760 HAS STARTEC. * 
If* * 

16 * THE TERMINAL OPERATOR CAN NOW DO CNE OF THE FOLLOWING: * 

17 * * " 
16 * 1.) PROBE THE 'LOAD' UTILITY RESPONSE PCINT CF THE 2760. * 

19 * 'LOAD' SHOULD NOT BE PROBED WHEN THE FILMSTRIP IS * 

2C * ALREADY LOADED. * 

21 * * 

22 * 2.) ENTER AN ON-LINE TERMINAL TEST REQUEST MESSAGE FOR AMY * 

23 * 2740- OR 276C-TYPE TEST. * 
2 4 ■■• * 

25 * 3.) PROBE THE 'UNLOAD' UTILITY RESPONSE POINT. THIS WILL * 

26 * CAUSE THE FILM TO BE RETRACTED AND THE CARTRIDGE * 

27 * tc BE EJECTED. YOU MAY NOW BEGIN AGAIN. * 
2£ * . * 
2 C * 4.) ENTER A MESSAGE FROM THE 2740 KFYRCARD REQUESTING A * 
3C * CLOSEDOWN. THE 6 CHARACTERS OF THE MESSAGE ARE * 

31 * CLOSE* WHERE #=EOT CHARACTER (UPPER CASE) * 

32 * * 

33 * THE PROGRAM IGNORES ANY OTHER RESPONSE. THE FOLLOWING * 

34 * MESSAGE WILL BE PRINTED ON THE 274C KEYBOARD. * 

35 * 'THE IMMEDIATELY PRECEDING MESSAGE WAS NCT * 

36 * CF THE PROPER FORMAT. * 

37 * YOU ARE EXPECTED" TC PROBE UNLCAO CR LOAD, * 

38 * CR ENTER AN ONLINE TEST REQUEST MESSAGE.' * 
35 * * 
4 **##$* #*♦********************* * **##**#*#***$****#******#***** a********* 

41 PRINT NTGEN 
C0CCC8 

cncoc-c 

CCCCCC 

COCOCD 46 SAVEREG EQL 13 POINTER TO SAVE AREA 

COCCCE 47 RETREG EQL 14 PAL RETURN REGISTER 

CroCCF 48 BRREG ECU 1? eAL BRANCH ADCRESS REGISTER 

COOCCC 

SAVE THE REGISTERS 

C00CC4 C5CC 55 BALR BASEPEG.C 

C0CCC6 56 USING *,RASEREG ESTABLISH ADDRESSABILITY 

COOCCC 57 USING I HAOCB, CCBREG 



LCC CPJECT CODE ACCR1 ADDR? STMT SOURCE STATEMENT F30SEP69 1C/06/7C 

C0CCC6 5CC0 C3F2 003FP 5P ST BASERFG.BASE COMPUTE THE 

OOOrCA F3P4 C3E6 C3F2 003EC 0?3F8 59 UNPK UNPACK < 9 ) , BASE < 5 ) LCAC ACDRESS 

00001C TC07 C3F6 C307 003EC C03C0 6C TR UNPACK < 8 ) .TRTABLE-240 FOR THE 

000016 C2C.-> C034 C3E6 CCC3A 003EC 61 MVC WTOP + 30 ( 8 ) .UNPACK WTC MESSAGE 

63 WTC° WTC 'IXTRT022 IS LOADED AT 

7 3 WTC 'IXTBT022 FOR NCNSWITCHEC 2760 HAS STARTfcC' 

C0CC7C 5000 C32F 0^3 ?4 83 ST S AVEREG , SAVEAR E A+4 

CCCffC 41CC C32A CC33C 84 LA S AVEREG , SAVE AREA 

000C64 41™ C5C2 C05CP 85 LA OCPREG.CCB EASE FOR DCB 



43 


WCRKPEG 


ECL 


n 


44 


DCPREG 


ECU 


9 


45 


BASEREG 


ECL 


12 


46 


SAVEREG 


EQL 


13 


47 


RETREG 


EQL 


14 


48 


BRREG 


ECU 


1 5 


49 


START 


ECU 


* 


51 




SAVE 


( 14,12) 



r 3 3 4 


83 




CC33C 


84 




C05CP 


85 






°6 


CFFN 




87 





00C88 afc CFFN ECU 

OOCCPP 92CC C3F1 003F7 87 MVI ICCODE.O INCICATE OPEN INITIATED 

PS OPEN DCB CPEN THE CCB 

0CC096 9110 9030 CCC3C °6 TM CCPCFLGS , X ' 10 • DID OPEN COMPLETE SUCCESSFULLY 

00009A 477C COrC 0CCn6 97 BN7. OPFNOK 

°S WTO 'CPFN DID NCT COMPLETE SUCCESSFULLY' 

356 OS BTAM SRL 



OOOOCC 5P00 C32F 



109 
111 



SAVEREG,SAVEAPEA+4 
RETURN (14,12) 



PESTCRE THE REGISTERS 



00CCC6 

COCCT.6 9200 C3FO 



115 OPENC* 

lie 



ECU * 

MVI EFPCRCT.O ZEPC ERROR CCUNT 

TRNSLATE DCB , SD40, ERRMSG, LENGTH ' TRANSLATE ERROR MESSAGE 



COCCFE 

COCCFF 92^4 C3F1 



00013C 12FF 

C0C132 4770 C2C6 C02CC 

000136 45FC C1FA C0200 

00C13A C501 C372 C3CA CC378 C03EC 

00014C 4770 C1AC 00182 

000144 C5C1 C376 C3CC 0C37C CC3E2 

OCOl^A 4780 C21A C0220 

00014E C501 C376 C3DF 0C37C 0C3F4 

00015 A 4^70 C1AC 001B2 

C0C156 95FF C3F2 0C3F8 
00015C 4780 C1AC 0C1P2 

0C016C 0202 C372 C.4C3 0037R 0040"? 

oooi et 

C00166 920C C3E1 0C3E7 



131 REACT! 
132 



134 



EOL * 

MVI ICCCDE,4 

READ REACECB,TI. 



148 LTR 

149 BNZ 
15C BAL 

151 COMPARE CLC 

152 BNE 

153 CLC 

154 BF 

155 CLC 

156 BNE 

157 * 

158 CLI 

159 BE 
16C MVC 

161 WRITETCC ECU * 

162 MVI 



8PREG,BRREG 

ICEPPOR 

RFTREG,WAIT 

INAPEA(2),PREC 

IGNORE 

INAREA+4(2),UNL0AC 

OUT 

INAREA+4(2),L0AD 

IGNORE 

LCACDONE.X'FF" 

IGNORE 

INAPFA< 3>,L0ADMSG 



INDICATE READ TI 

, 1 , NF=E 

NORMAL INITIATION 
ERANCH IF NO 

IS MESSAGE FRCM 2760 

BPANCH IF NO 

IS REQUEST TC UNLCAD 

BRANCH IF YES 

IS RECUEST TC LOAC 

IGNORE MESSAGE IF IT IS NOT 

LCAC CR UNLCAC 
IS FILM ALREADY LCADEC 
BRANCH IF YES 
MOVE FAA FCR LOAC 

INCICATE WRITE TCC 



0C01AC 12FF 



164 
IPC 



WRITE READECB,TCC, , I NAP EA, 27 , LOADMSG , 1 , MF=E 

LTR BRPEG.BRPFC NOFMAL INITIATION 



ire 


OBJECT CPOE 


A0CR1 


A00R2 


STMT 


'001A2 


477C C2C6 




002CC 


181 


'001*6 


45F0 C1FA 




00200 


182 


001 &A 


<52FF C3F2 


C03E8 




1»3 


C01AE 


47F0 Cl?4 




0013A 


1«4 



SCLRCE STATEMENT 



BNZ 
BAL 
MVI 



IGFRROR 
RETPEG,WAIT 
LrACDONEtX'FF" 
CCMPARE 



BRANCH IF NO 
INDICATE FILM LCACED 



F3CSEP69 1C/C6/70 



C001E2 

000182 C504 C372 C4C7 0C378 0040D 

C0C1BP 4780 C256 C025C 

C001PC 5210 C3F1 O03E7 



186 


IGNCRE 


ECL 


* 




187 




CLC 


INAREA15), CLOSE 


IS RECUEST TO CLCSE LINE 


188 




BE 


ENC 


YES 


189 




MVI 


ICCODE, 16 


INDICATE WRITE TI 



C0C1F2 12FF 
0001F4 4770 C2C6 
OOClFf 45F0 Cl^A 
C0C1FC 47FC C0F8 



WRITE REACECB,TIR, ,EPRMSG .LENGTH , , 1 , MF=E 





206 


LTR 


RFREG.BRREG 


C02CC 


207 


BNZ 


ICERROR 


C02CC 


208 


BAL 


RETREG,WAIT 


OCOFF 


209 


B 


REACTI 



NORMAL INITIATION 
ERANCH IF NO 



C002CC 

C002CC 5CEC C3C6 



C002CE 957F C5FA 
C0C212 477C C2C6 
000216 9200 C3E0 
C0021A 58EC C3C6 
0' , 021F C7FF 



211 WAIT 


ECU 


* 


212 


ST 


RETREGtTEMP 


214 


WAIT 


1,FCB=READEC 


219 


CLI 


REACEC8,X'7F 


220 


BNE 


ICERROR 


221 


MVI 


ERPCRCT.O 


222 


L 


RETREG.TEMP 


223 


BP 


RFTRFG 



IS COMPLETION SATISFACTORY 
ERANCH IF NO 
RESET ERROR CCUNT 
RESTORE RETURN REGISTER 
RETURN 



C0C22C 

0C022C S208 C3E1 



225 CLT 
226 



ECU 
MVI 



INDICATE WRITE TIC 



'"0024A 12FF 
''0024C 4770 C2C6 
< C025C 45E0 C1FA 
l 00254 9200 C3E2 
( 00258 47FC C0F8 



WRITF READECB,TI0,,,3,PEWIND,,MF=E 





24C 


LTR 


BPPFG, 8RREG 


C02CC 


241 


BNZ 


ICERROR 


00200 


242 


BAL 


RETREG.WAIT 




243 


MVI 


LCAOOONE.X'OO' 


OOOFF 


244 


B 


READTI 



NORMAL INITIATION 
ERANCH IF NO 



INDICATE FILM MO LCNGER LOADEC 



246 ENC ECL * 

•248 WTC ' IXTBT022 ENDED BY TERMINAL OPERATOR REQUEST 1 

258 WRITE REACECB.TIO, ,,3, REWIND, ,MF=E 



CCC2P8 12FF 
(00264 4770 C2F8 



27C 
271 



LTR 
BNZ 



BRREG.BRREG 
PERM 



NORMAL INITIATION 
BRANCH IF NO 
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LCC CBJECT CODE 



ACCR1 ADDR2 STMT SCL'RCE STATEMENT 



F3CSEP69 10/06/70 



:O02BE 45E0 C1FA 
!0°2C2 58DC C32F 



CC02CC 


9102 


C3E0 


CCC2CC 


471C 


C2F8 


C0C204 


1BS8 




CQC2C6 


438C 


C3F0 


C002DA 


4ias 


CCC1 


C0C2CE 


4280 


C3E0 


0002E2 


4380 


C3F1 


00C2E6 


47F8 


C2E4 


0OC2EA 


47FC 


C082 


C002EF 


47FC 


C0F8 


COC2F2 


47<=C 


C21A 


0OC2F6 


47FC 


C160 


CCC2FA 


47FC 


CI AC 



00200 


272 




BAL 


RFTREGtWAIT 


00334 


273 




L 


SAVEREG,SAVEAREA+4 




27 = 




RETURN (14,12) 




279 


ICERPCR 


TM 


ERRCRCT.2 




280 


* 






002FE 


281 




BC 


PERI* 




282 




SR 


WCRKREG.WORKPEG 


C03E6 


283 




IC 


WCRKREG,EPRCRCT 


0C001 


284 




LA 


WCRKRECKWORKREG) 


003E6 


285 




STC 


WCRKREG.EPRORCT 


0H3E7 


2ee 




IC 


WCRKREG,ICCOOE 


002EA 


287 




B 


BRANCHT (WCRKREG) 


00088 


288 


BRANCHT 


B 


CFEN 


OOCFE 


289 




B 


REACTI 


CC220 


29C 




8 


CLT 


00166 


291 




B 


WRITETCC 


0C182 


292 




P 


IGNCRE 



PESTCRE THE REGISTERS 

RETURN 

HAVE THERE BEEN TlnC ERRORS 
CN THIS COMMAND ALREADY 
YES - ABENC 



INCREMENT ERROR CCUNT BY 1 

PICK UP BRANCH INCEX 
RETURN TO RETRY 

READ TI 
WRITE TIC 
WRITE TCO 
WRITF TI 



C00324 58D0 C32E 



294 PERM ECU * 

296 WTC 'IXTRTC22 ENDED - I/O ERRCR ' 

306 L SAVEREG.SAVEAREA+4 RESTORE THF REGISTERS 

308 RETURN (14,12) RETURN 



C0032E 0000 

C0C33C OCCCCCCCOOCOOCOO 

00C378 

C0C3DC CCCCCCCC 

0C03EC 3E4C 

C0C3E2 45C1 

0003E4 25C1 

C0C3E6 00 

C003E7 CC 



CCC3ES CC 

C0C3E9 CCOOCO 

CC03EC OOCCOCOCOCOOOCOO 

CCC3F8 OOCOCOOCFF 

CC03FD' S FCF1F2F3F4F5F6F7 



212 ******** CONSTANTS AREA 



313 SAVEAPEA CC 



314 


INAREA 


cs 


25F 


315 


TEMF 


CC 


F'C 


316 


PREC 


CC 


X'3E4C 


317 


UNLCAD 


DC 


X'4501' 


318 


LCAC 


CC 


X'2501' 


319 


ERPCRCT 


CC 


X'CC" 


32C 


* 






321 


ICCCCE 


CC 


TCCO' 


322 


* 






323 


* 






324 


* 






325 


* 






326 


LCACCCNE 


CC 


X'OO' 


32 7 


* 







328 UNPACK DC 
32= BASE CC 
33C TRTAELE DC 



THIS ROUTINE'S SAVE AREA 



FREFIX 

CNLCAD COORDINATES 

LOAC COORDINATES 

COUNT OF ABNORMAL COMPLETIONS 

CF LAST I/O REQUEST MAX=2 
CO = CPEN INITIATED 
04 = READ INITIAL 
C8 = WRITE TIC 
CC = WRITE TCC 
10 = WRITE INITIAL 
TURNED ON WHEN FILM HAS BEEN 

LCACED 



XL5'000CCC0000FF' 
XL16'F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6' 



LCC OBJECT CODE 



ADDR1 A0DP2 STMT SCLRCE STATEMENT 



F3CSEP69 10/06/70 



C0C4CC E7C6CCA5EB 

Ci C414 

C0C414 1517171717171717 

Ci'041F 4C4C4CE3C8C54CC9 

CC044C 1517171717171717 

CC0457 C6C640E3C8C540D7 

0OC46C 1517171717171717 

C0C477 E8C6E440C1D9C540 

C0C4A1 1517171717171717 

C004AC D6D940C5D5E3C5D9 

0004D5 26 

C00OC2 

00C4C6 C16E6E 

0004C9 C2C104 



331 CLCSE CC X'E7C6CCA5EB« 

332 ERRMSG TS OF 

333 DC X'1517171717171717171717' CR AND IDLES 

334 TC C< THE IMMEDIATELY PRECEDING MESSAGE WAS NCT ' 

335 DC X'1517171717171717171717' CR AND ICLES 

336 DC C'CF THE PROPER FORMAT.' 

337 DC X'1517171717171717171717' CR AND IDLES 

338 DC C'YCU ARE EXPECTEC TO PROBE UNLCAD CR LOAC, • 

339 DC X'1517171717171717171717' CR AND IDLES 

340 CC C'CR ENTER AN ONLINE TEST RECUFST MESSAGE. ' 

341 CC X'26' EOB 

342 LENGTH ECU *-FRPMSG 

343 REWIND CC X'016E6E' MESSAGE TO UNLCAD FILM 



344 LCAtMSO DC X'C20104' 
34 5 PRINT GEN 



MESSAGE TC LOAC FILM 



358 OS BTAM SRL 



347 ******** CCNTRGL BICCKS 



C0C4CC 

C004CC 
0OO4-EC 
COC4FC 
C005CC 
C0C51C 
Q0052C 
0O053C 
C0054C 
COC55C 
C0056C 
CCC57C 
CCC58C 
C0C59C 
CO05AC 
C0C5BC 
(005CC 



5E371 
88888 
88888 
88885 
C1668 
61888 
40238 

88eee 

88626 
8S434 
88882 
88888 
88E2E 
88C3C 
88»PA 
15C2C 



630fi«7A7C7F 
8B8RR5B505F 
ee8883B3088 
E88888P1C1F 
88888888888 
88688888888 
88688888888 
88888888888 
467686B6D6E 
546494A4C4F 
526292A2C2F 
8868888R888 
4F7EPEBEDEH 
5C6C9CACCCF 
5A6A9AA4CAF 
407C8CB0C0E 



349 
35C+IFC 

351 + * 

352 + 

353 + 

354 + 

355 + 

356 + 
357+ 
35<= + 
359 + 
36C + 

361 + 

362 + 

363 + 

364 + 

365 + 

366 + 

367 + 



ASNTRTA8 
TSC4C ECU * 



; D4C 



CC 
DC 
DC 

nc 

CC 
DC 
DC 
DC 
PC 
DC 
DC 
DC 
CC 
CC 
DC 
DC 



1 2 
X'5F3716 
X 'P8P888 
X'P8P8Se 
X 'PPR85E 

x'cipsae 

X'618988 
X '4C2389 
X '888888 
X'BP6264 
X '884345 
X'888825 
X'888888 
X'8PE2E4 
X'PRCSCS 
X 'P888A5 
X'15C2C4 



3 4 
3D88 
8888 
8888 
8888 
8888 
8888 
8868 
8888 
6768 
4649 
2629 
PP6P 
E7E8 
C6C9 
A6A9 
C7C8 



5 6 
7A7C7 

5R505 
3B3D8 
8R1C.1 

peee8 
eeeee 

88888 
88P88 
6R6D6 
4A4C4 
2A2C2 
f PPP8 
EREOE 
CACCC 
AAACA 

ceonc 



7 8 9 
F8888 
E8888 
88888 
F8888 
86888 
88883 
88888 
88888 
E7C73 
F5152 
F3132 
88889 
EFCF3 
FD1D2 
FR1B2 
E 1 1 3 



A B C C 
8888P85e 
68868688 
88888888 
88888888 
A0768493 
D7579095 
88378eC0 
88162C8D 
88888888 
88888888 
88868888 
8888888P 
68888886 
888F9F86 
88 P 89 68 8 
88888886 



E F 
898P 
8888 
868P 
8888 
E1B7 
87F6 
8EA3 
6296 
8888 
e888 
8888 
P888 
8888 
8866 
8888 
8898 



CSrRG = CX,MACRF=(P,W),DCNAI'E = e2760L01,EPCPT = WT 



( oo5re 
«'C05ce 

0005CC 



37 1+* 
372 + * 
373+ 

374+rce 

375 + 



CATA CONTROL BLGCK 

HRG *-20 TO ELIMINATE UNUSED SPACE 
CS OF ORIGIN CN-WCRC EOUNCRY 
CRG *+?0 TO CPIGIN GENERATION 



C0C5CC CC 



377 + * 
379+ 



CCMWCN ACCESS METHCD INTERFACE 
ALKC) BUFNO 



OOQ5DC OOCCOl 
C005EC COCC 
00C5F2 1COC 
COC5E4 CCOCCCOl 





-"■•'• 


38C + 


DC 


381 + 


DC 


382+ 


DC 


383 + 


CC 



CTATCW = M 



F3CSFP69 1C/C6/7C 



AL3(1) EUFCB 
AL2(CI BLFL 

PL2'OC010CCCCCOOCOCO" 
A(l) IOBAD 



FOUNDATION EXTENSION 



COC5E6 CC 
C005E9 14 
C005EA FF 
0005EP. OC 
0OC5EC CC 
0005EC CCCCOO 



387 + 


rx 


388 + 


DC 


389 + 


CC 


3QO + 


CC 


391 + 


CC 


392 + 


DC 



BLl'OOOOOCCO' BFTEK,BFALN,HIAPCHY 
BLI'OOOIOICC BTAM EROPT CODE 
ALK255) BTAM BUFFER CCUNT 
ALKO) 

PLl'COOCCOCO' PECFM 
413(C) EXLST 



FCU.NOATICN BLOCK 



00C5FC C2F2F7F6FCD3FCF1 
0C05FP C2 
CCC5F9 CC 
C0C5FA 2020 



C0C5FC COOCCCOC 



396 + 


PC 


397 + 


DC 


396 + 


CC 


399 + 


DC 


401 + * 




403 + 


CC 



CL8'R276CLC1 • DCNAME 
BLI'COOOCOIO' CFLGS 
BLl'COOCCCCC IFLG 
BL2'00100CCOOC1COOOO' Mt 

BTAM INTERFACE 



REAC REACECB,TI ,DCB,,, ,1,MF=L 



C006CC 




COC60C 


occcocoe 


0006C4 


00 


CC06C5 


CI 


C006C6 


coco 


CCC6C6 


00COC5C6 


0006CC 


00CC0C0C 


C0C61C 


CCCCCCCC 


000614 


OCCCCCOC 


C00618 


00C1 


00061A 


OCOO 


00061C 


OC 


C0C61C 


OC 


00061E 


CCCC- 


00C62C 


CCOOOOOC 


00C624 


CCCCCCOC 



4ce+ 


DS 


OF 


4C9+PEACECB 


DC 


A(0) EVENT CCNTRGL BLCCK 


41C + 


DC 


BLl'OOO' 


411 + 


CC 


MUD TYPE FIELC 


412 + 


DC 


412(0) LENGTH 


413 + 


CC 


A(rCE) CCB ACCRESS 


414 + 


DC 


A(C) AREA ADDRFSS 


415 + 


DC 


MP) ERRCR INFO. FIELD ACCR 


416 + 


DC 


A(C) TFRMINAL LIST ADDRESS 


417 + 


DC 


«L?<1) LINE NUMBER 


418 + 


DC 


4L2(0) RESPONSE FIELD 


419 + 


CC 


ALKO) TF-CP CODE 


42C + 


DC 


ALKO) ERPCR STATUS 


421 + 


CC 


AL2(0) CSW STATUS 


422 + 


DC. 


ALM01 CLPPENT ACCR LIST FTR 


423 + 


CC 


AL4(0) CURRENT ADDR POLL FTR 



425 IECTDECP 

426+IECTCECe DSECT CECP DUMMY SECTICN 

42 7 + * 

426+* + 

429+* + STANDARD FVENT CCNTROL BLOCK 

43C+* + 

43 1 + * + 



Appendix N: Sample Start-Stop and BSC Programs 359 



LCC CPJFCT CODE AODR1 ADDR2 STMT JCLRCE STATEMENT F3CSEP6<= 1C/06/7C 

432+* + + + 

433+* 4 + OPERATION TYPE + AREA LENGTH + 

434+* + + + 

435+* + + 

436 + * + CN-LINF + + 

437+* 8 +TEPWINAL + AOCRESS CF CCB + 

438+* + TFST + + 

43S + * + + 

44C+* + + + 

441+* 12 +RESFRVEC + ADDRESS CF AREA + 

442+* + + + 

443 + * + + 

444+* + + + 

445+* 16 + SENSE BYTES + RFSICUAL CCLNT + 

446+* +16 2+ + 

447 + * + + 

448+* + + + 

449+* 2c + commanc I address of terminal list + 

45C+* + CODE + + 

4 51 + * + : + 

452+* + + RELATIVE+ + + 

453 + * 24 + STATLS + LIt"E + ADDRESS + VPC/LRC + 

454+* + FLAGS + NUMBER + RESPONSE* RESPCNSE + 

45 = + * + + 

456+* + + + + 

457+* 28 + TP-CF + ERROR + CSW STATLS + 

458+* + CODE + STATUS + + 

45? + * + + 

46C+* + + + 

461+* 32 +PESERVEC + ADDRESS CF CURRENT + 

462+* + + ADDRESSING ENTRY + 

463 + * + _ + 

464+* + + + 

465+* 36 +RESERVFC + ADDRESS OF CURRENT + 

466+* + + POLLING ENTRY + 

467 + * + + 

468+* + + + + 

469 + * 4C +PESFRVED +RESERVED + hRITE AREA LENGTH + 

47C + * + + + + 

471 + * + . + 

472+* + + + 

47?+* 44 +PESEPVFC + ACTRESS CF WRITE AREA + 
474+* + + + 

475 + * p flGE p 

LCC CBJECT CCDE ACCP1 ADDR2 STMT SCLRCE STATEMENT F3CSEP69 1C/C6/7C 

COOOOC 477+DECSCECB OS IF STATLS FLAG + ADDRESS CF THE TC« 

CCC0C4 479+CECTYPE OS 1H OPERATION TYPE 

CC00C6 481+OECLNGTH OS 1H AREA LENGTH 

C0COC8 483+CECCNLTT CS OCl 1 PESERVEC FCR ON-LINE TEPMINAL TEST 

:OCCOP 484+DECCCBAC OS IF ACDRESS CF DOE 

COOOOC 486+CFCAREA OS 1 ■= ACDRESS CF AREA 

CCCOIC 488+CECSENSC CS 1C 1ST SENSE BYTE 

OOCC11 49C+CECSENS1 DS 1C 2ND SENSE PYTE 

COOOl? 492+CECCCUNT DS 1H PESICUAL COUNT 

000014 494+CECCMCCO CS CCL1 CCMfANn CCDE 

C00014 4<?5 + 0ECENTFY OS IF ACDRESS OF TERMINAL LIST 

000018 498+CECFLAGS CS 1C STATLS FLAGS 

0"C019 5CC + CECRLN CS 1C RELATIVE LINE NUMEER 

C0CC1A 502+CECPESFN CS 1H RESPONSE FIELDS 

OOOCIC 5C4+CECTFCCC DS 1C TP-CP CCDE 

CCCCIC 506 + CECERRST CS 1.C FPROP STATUS 

CCC01E 508 + CECCSV»ST DS 1H CSW STATUS 

00002C 51C+CECACRPT DS 1 * ACDRESS CF CURRENT ADDRESSING ENTRY 

C00024 512+CECFCLPT CS IF ACCRESS OF CURRENT POLLING FNTRY 

CCCC28 M4 + CS ?C RESERVED 

C0CC2A 516 + CECWLN'C OS 1H kPITE AREA LENGTH 

CCC02C 518 + CECV.ARFA CS IF ACDRESS OF WRITE AREA 



360 OS BTAM SRL 



=521 

522 



*,*** IFBC6B NC VALID DSORG SPEC I F I EC-EXCP ASSUf'EC 



524 + * 
52 = + * 



527+IHACCE CSFCT 



CCB SYMRCLIC CEFINITICN FCR 
BASIC EXCP 



LCC OBJECT C r nE 



ADDR1 ACDR2 STMT SCLRCE STATEVEI^T 
531 + * 



F3CSEP69 1C/C6/7C 



FCUNCATICN BEFCPE CPEN 



00CC2< : 
00C03C 
C ? 1 
COC02 2 



:OCC2 6 
OOC028 
OCC02A 
000C2C 
C0CC2C 



533 + 


CPG 


imct?+4 


534 + DCECCMN 


CS 


CLP 


c 35+rCECFLG? 


DS 


a Ll 


536+CCBIFLC 


DS 


BL1 


537 + CCEMCF 


DS 


BL2 


539 + * 







FCUNTATICN AFTER OPEN 



= 41+ CPG IMCCE + 4C 

c 4?+rCETICT CS <U? 

543+CCEVACPF DS R12 

544+CCEIFLGS DS TPl 1 

545+CCECEBAC DS A 



CPrSS-RE c ERFNCE 



cyMPCL 


LEN 


VALUE 


DEFN 


REFEPENCES 


B4SF 


CCCC5 


C0C3F8 


0C329 


0058 


CC59 


BASFPEG 


rr C 1 


COOOCC 


0CC45 


C055 


C056 


PP.ANCFT 


o:cc4 


OOC2EA 


00286 


C287 




BRRFG 


OCCCl 


OOOOCF 


0CC4F 


0148 


"148 


CLCSF 


C n 0C5 


OOC40D 


CC331 


0187 




C C P P A C E 


cccct 


C.0013A 


001.51 


0184 




DCP 


C0CC4 


00C5C8 


00374 


0085 


0093 


CCROCNAV 


C0CC8 


000C28 


CC534 






CCPCEPAC 


CO0C4 


OOOC2C 


CC545 






CCBIFLG 


CCCC1 


0C0C31 


CC536 






CCPTFICS 


COCOl 


C0002C 


CC544 






rCE«ACP 


o C C C 2 


000032 


CC537 






CCBMACRF 


C0C02 


OOOC2A 


0C543 






CCRCFLGS 


cocci 


000C3O 


00 5 3 5 


CC<56 




CCPPEG 


OCCCl 


00CCC9 


0CC44 


0057 


C0S5 


OCBTICT 


CCCC2 


000028 


00542 







CFCATPPT 00CC4 000020 C051C 
CFCAREA CCCC4 OOCCCC 00486 
CFCC^CCC COCCI CCCC14 CC494 
CECCCLNiT CO0C2 0O0C12 CC492 
CECCSViST 0CCC2 0CCC1E OC5C8 
CECCCPAC O0C04 0C0CC8 CC484 
rECEMRY O0CC4 C0CC14. 00495 
CFC.ERRS7 CCCC1 00001D 0C5C6 
CFCFIAGS 00CC1 0O0C18 CC498 
CECLNCTF 00CC2 0OCOC6 00481 

cEccraTT ococi cooooe oc483 

CECPCLPT CC004 C00C24 0C512 

rFCRFSFN C0CC2 00001A 00502 

CECP.LN C^CCl 00001° 0C5CC 

CFCSCECB CCCC4 000000 CC477 

CECSENSC COCCI 0C0C1C C0488 

C C 0SFI>S1 000C1-0O0C11 0C49C 

CECTFCCD OCCCl 00001C 0C5C4 

CFCTYPE 0C0C2 0C0CC4 CC479 



C180 0183 02C6 02C6 C24C C240 C270 0270 



tECUAREA 


C0CC4 


000C2C 


00518 








CECKLI^G 


CO C C 2 


00002A 


0C516 








E\C 


CCCC1 


00025C 


00246 


0188 






FRPCSG 


C0CC4 


00C414 


00332 


0125 


0198 


C342 


ERRCRCT 


COCCI 


0C03E6 


00319 


0116 


C221 


C2 79 


EX6VPLE1 


CCCC1 


CCCCCC 


ocooi 








IECTCECB 


OCCCl 


OOOOCO 


00426 








IECTSC40 


cocci 


0C04DC 


0C35C 


0124 






IGNORE 


CCCCl 


0001B2 


0C186 


0152 


C156 


C159 


IHAOCB 


COCCI 


CCOOCO 


00527 


0057 


C5 3 3 


C541 



C2P3 0295 
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IHE0CC2 0CCC1 000046 0CC69 CC66 

IHB0CC2A 000C2 000046 0C07C 0065 

IHB0CC3 COCCI 0CC079 0CC79 0076 

IHB0CC3A C0CC2 000C7A 00C8C 0075 

IHB0CC5 CCCC1 OOOOCA 0C1G5 0102 

IHBCCC5A 0CC02 OOOOCA 00106 0101 

XHP0C18 CCCC1 00028F 0C254 0251 

IHB0C18A C0CC2 000290 00255 0250 

IHECC22 CCCC1 00C322 OC3C2 0299 

IHR0C22A C0002 000322 00303 0298 

CROSS-REFERENCE 

SYMBOL LEN VALUE CFFN REFERENCES 1C/06/7C 

INAREA CC0C4 0C0378 00314 

ICCOCE COCCI 0003E7 00321 

ICERPCR 0CCC4 0002CC 0C279 

LENGTH 0CCC1 000CC2 00342 

LCAD CCC02 0C03E4 00316 

LCACCCNE 00001 0003E8 00326 

LCAOPSG CCCC3 00C4C9 0C344 

CPFN C0001 000088 00C86 

CPENCK CC0C1 0C0CC6 0C115 

TUT CCCC1 00022C 0C225 

PEPf 0CC01 0002FE 0C294 

PREG 000C2 0003EC 0C316 

REACECe CCCC4 OC060C 0C4C9 

READTI 00001 OOOOFE 0C131 

RETREG 0CCC1 CCOCCE 0CC47 C15C C182 C2C8 C212 C222 C223 C242 C272 

REWINC 00C03 0004C6 00343 

SAVFAPEA 00CC4 CC033C 00313 

SAVEREG 0C001 OOOOCD 0C046 

START CCCC1 OOOCCC 0CC49 

TECP 00CC4 0003CC 0C315 

TRTAELE 0CC16 0C03F0 C033C 

UNLOAC 0OC02 0003E2 0C317 

LNPACK CCCC4 C003EC 00328 

WAIT 000C1 000200 0C211 

hCRKREG COCCI 000008 0CC43 0282 C262 C283 C2E4 C2E4 C285 C286 C287 

WP.ITETCO COCCI 000166 00161 

WTCP CCCC4 0C001C 0CC65 

NO STATEMENTS FLAGGED IN THIS ASSEMBLY 

*STATISTICS* SOURCE RECORDS (SYSIN) = 237 SOURCE RECORDS (SYSLIB) = 479° 
"OPTIONS IN EFFECT* LIST, DFCK, NOLCAD, NCPENT, XREP, NCTEST, ALGN, OS, LINECNT = 
469 PPINTEC LINES 



REFE 


RENCES 










0140 


C151 


C153 


C155 


C16C 


017C 


0C87 


C132 


C162 


0189 


0226 


0286 


0149 


0161 


C2C7 


C220 


C241 




0120 


C196 










0155 












0158 


0183 


C243 








016C 


C172 










0288 












0C97 












0154 


C29C 










0271 


C261 










0151 












0135 


C165 


C192 


C215 


C21 c 


0229 


0209 


0244 


C289 








C15C 


C182 


C2C8 


C212 


C222 


C223 


0234 


0264 










0C83 


CC64 


C1CS 


C273 


C3C6 




0083 


C0E4 


C1C9 


0273 


C3C6 




0212. 


0222 










0C6C 












0153 












0C59 


C06C 


CC61 








015C 


cie2 


C2C8 


0242 


0272 




0282 


C262 


C283 


C284 


C2E4 


C285 


0291 












CC61 
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APPENDIX 0; LOCAL 32?Q_ SAMPLE PROGRAK 



The local 32 70 sample program shows how BTAM support for the local 
3270 display system works and demonstrates some of the capabilities 
of the display system. The sample program can operate from one to 
255 local 3270 devices, at least one of which must be a 3277 display 
station with a keyboard. If more than one device is used, some or 
all of the remaining devices can be 3284 or 3286 printers (although 
the number of display stations should egual or exceed the number of 
printers). The sample program can work with model 1 or model 2 devices 
or both. 

The local 3270 sample program is distributed as a member of 
SYS1.SAMPLIB named SAMP327L. This PDS member contains (in the form 
of 80-character card images) all the source statements for the sample 
program and most of the JCL needed to assemble, link-edit, and execute 
the program. 

DEFINING THE LOCAL 3270 DISPLAY SYSTEM 

The local 3270 display system used by the sample program is defined 
in two nays. The data definition (DD) statement DD3270 (and any other 
DD statements concatenated with it) specifies the devices to be used 
and assigns relative line numbers to them. The PARS parameter for 
the execution of the program describes the size and composition of 
the display system. 

The DD statement DD3270 should be added to the JCL for the GO step 
(see the examples below) . The UNIT parameter, which is the only 
required parameter, specifies the device to be used by device name 
(3277, 3284, or 3286), by device address, or by a ONITNAME defined 
during system generation, if more devices than one are to be used, 
DD statements for the additional devices should be concatenated with 
DD3270. Print output generated by a display station is directed to 
the printer specified by the DD statement immediately preceding the 
DD statement for the display station. (DD statements for printers 
should be separated by one or more DD statements for display stations.) 
If no printer is associated with a display station in this way, print 
output from that display station is directed to SYSPRINT. 

Example 1: One 3270 device is used; it is attached to address 240: 



//GO- SYS ABEND DD SYS0UT=A 
//GO.DD3270 DD 0NIT=240 
/* 

Example 2 ; Three 3270 devices are used, two 3277 display stations 
and one 3286 printer; they are specified by device name: 
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//GO.SISABEND DD SYSOUT=A 

//GO.DD3270 DD UNIT=3277 relative line number 1 

// DD 0HIT=3286 relative line number 2 

// DD UNIT=3277 relative line number 3 
/* 

Print output from the 3277 display station on relative line number 
1 is directed to SYSPRINT. Print output froa the 3277 display station 
on relative line number 3 is directed to the printer on relative line 
number 2. 

The PARS parameter of the EXEC statement is used to specify the 
number of devices to be used, the number of printers to be used, and 
the relative line nuibers of the printers. The format of the EXEC 
statement with the PARM parameter is: 

// EXEC AS8FCLG,GO.PAai!= , number of devices[ , number of 
printers[, printer rln]...] 

Defaults and limits for these parameters are: 

Number of devices: default = 1; miniaum = 1; maximum = 255 

Number of printers: default = 0; minimum = 0; maximum - one less 

than number of devices 

Printer rln; if number of printers is zero = 0; 

if number of printers is not zero, default =1; 
maxiaua = number of devices 

Parameters are separated by cotamas. Any invalid characters are treated 
as zeros. If a parameter is longer than three characters, the right- 
aost three characters are used, and any others are ignored. 

Exam ple 3 : A one-device system with a 3277 display station and no 
printer (as specified in example 1): 

// EXEC ASMFCLG 

The EXEC statement supplied with the sample program can be used, since 
all the reguired values are defaults. 

Example 4 : A threes-device system with two 3277 display stations and 
a printer on relative line number 2 (as specified in example 2): 

// EXEC ASMFCLG, GO. PABM=«3, 1,2* 

Example 5: A four-device system with three 3277 display stations and 
a printer on relative line number 1: 

// EXEC ASMFCLG,GO.PABM='4,1» 

The default for the relative line number of the printer is used. 

Exa mple: A two-device system with two 3277 display stations and no 
printer: 

// EXEC ASMFCLG, GO.PABM=»2» 
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OPERATING THE SAMPLE PBOGBAM 

When the sample program is initialized, the initial format shown in 
Figure 43a or 13b is displayed on each display station. The subsequent 
operation of the program is controlled by the display station operator 
by means of the ENTEB, CLEAR, PA1, and PA2 keys. 

Pressing the CLEAR key (except when the ending format is displayed) 
causes the control options format shovn in Figure 45a or 45b to be 
displayed. 

Pressing the PA2 key (except vhen the ending format is displayed) 
causes the ending format shovn in Figure 46a or 46b to be displayed. 
Further input from the display station is inhibited. After the PA2 
key has been pressed on each display station, the sample program is 
terminated. (Any unstarted printer operations are lost vhen the program 
is terminated.) 

The result of pressing the ENTER key or PA1 key depends on the 
format being displayed: 

1. Initial format (Figure 43a or 43b) : This is the first format 

displayed vhen the program is initialized. It can be redisplayed 
as described under the control options format. The CLEAR, PA2, 
and ENTEB key are valid for this format. 

There are five unprotected fields on the screen; the field following 
"ZIP:" is numeric-only; Data may be entered into one or more of 

4-Kaoa fi al Ac T»U«»n -»-»»«» -omnoi 



UK A -t->A.\ 



the data from the display station to the program, vhich initializes 
an internal data area associated vith the display station. 

The data is displayed as part of the verification format after 
the ENTEB key has been pressed. 

2. Verification format (Figure 44a or 44b) : This format displays 
the data in the data area for the display station. The display 
station operator can verify, modify, or print the data. The CLEAR, 
PA2, ENTER, and PA1 keys are valid for this format. 

The ENTER key is used to transmit any modifications to the data 

to the program, vhich updates the data area for the display station. 

The PA1 key is used to have the data in the data area printed. 

The verification format is redisplayed after the ENTER or PA1 key 
has been pressed. 

3- Control options format (Figure 45a or 45b) z This format is 

displayed after the CLEAR key has been pressed. The CLEAR, PA2, 
ENTEB, and PA1 keys are valid for this format. 

Pressing the ENTEB key causes the verification format to be 
displayed. 

Pressing the PAT key clears the data area for the display station 
and causes the initial format to be displayed. 

Also, the display station operator can enter a request for a BTAH 
online test (OLT) pattern by following the directions on the format. 
The pattern may be sent to any display station or printer being 
operated by the sample program. To continue, the CLEAR key should 
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be pressed after an OLT pattern is sent or received to redisplay 
the control options format. 

4. Ending format (Figure 46a or 46b): This format is displayed after 
the PA1 key has been pressed. 

Farther input from the display station is inhibited. 

If a key that is not valid is pressed, input from the display 
station is inhibited by the display station hardware and ignored by 
the sample program. To continue, the display station operator should 
press the RESET key to manually enable the keyboard; he should then 
press a valid key for the format being displayed. 



ENTER DATA REQUESTED BELOW: 

NAME: 
A DDR: 
CITY: 
STATE: 



ENTER KEY: ENTER DATA; 
PA2 KEY: END PROGRAM; 
CLEAR KEY: CONTROL OPTIONS. 



ZIP: 



Figure 43A. Initial Format on Model 1 3277 Display Station 



ENTER DATA REQUESTED BELOW: 

NAME: 

CITY: 

ENTER KEY: ENTER DATA; 
CLEAR KEY: CONTROL OPTIONS. 



ADDR: 
STATE: 

PA2 KEY: END PROGRAM; 



ZIP: 



Figure 43B. Initial Format on Model 2 3277 Display Station 
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DATA GIVEN BELOW ENTERED: 

NAME: 
ADDR: 
CITY: 
STATE: 



ENTER KEY: UPDATE DATA; 
PA1 KEY: PRINT DATA; 
PA2 KEY: END PROGRAM; 
CLEAR KEY: CONTROL OPTIONS, 



ZIP: 



Figure 44A. Verification Format on Model 1 3277 Display Station 



DATA GIVEN BELOW ENTERED: 

NAME: 

CITY: 



ENTER KEY: UPDATE DATA; 
PA2 KEY: END PROGRAM; 



ADDR: 
STATE: 



PA1 KEY: PRINT DATA; 

CLEAR KEY: CONTROL OPTIONS. 



ZIP: 



Figure 44B. Verification Format on Model 2 3277 Display Station 



XXYY3CUU 

ENTER KEY: RESUME AND CONTINUE; 
PA1 KEY: BEGIN NEW ENTRY; 
PA2 KEY: END PROGRAM; 

TO REQUEST BTAM OLT — ENTER REQUEST FOR TEST 
MESSAGE OVER SAMPLE FORMAT ABOVE: 
XX=TEST NO. (23-28) YY=REPEATS (01-99) 
CUU=ADDRESS OF THE TARGET DEVICE 
THEN HIT ERASE EOF AND THEN TEST REQ. 

USE CLEAR KEY TO RESUME AFTER TEST. 



Figure 45A. Control Options Format on Model 1 3277 Display Station 
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XXYY3CUU 

ENTER KEY: RESUME AND CONTINUE; PA1 KEY: BEGIN NEW ENTRY; 

PA2 KEY: END PROGRAM; 

TO REQUEST BTAM OLT — ENTER REQUEST FOR TEST MESSAGE OVER SAMPLE FORMAT ABOVE: 
XX=TEST NO. (23-28) YY=REPEATS (01-99) CUU=ADDRESS OF TARGET DEVICE 
THEN HIT ERASE EOF AND THEN TEST REQ. USE CLEAR KEY TO RESUME AFTER TEST. 



Figure 45B. Control Options Format on Model 2 3277 Display Station 



LOCAL 3270 SAMPLE PROGRAM ENDED. 



Figure 46A. Ending Format on Model 1 3277 Display Station 



LOCAL 3270 SAMPLE PROGRAM ENDED. 



Figure 46B. Ending Format on Model 2 3277 Display Station 
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LOCAL 3270 SAMPLE PROGRAM 



PAGE 



LOC OBJECT CODE ADDR1 ADDR2 
000000 



STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000006 
000007 
000007 
000008 
000008 
000003 
00000A 
00000B 
00000D 
00000E 
000OOF 

000005 
000012 
000019 
000024 



000000 47F0 FOOE 

000004 08 

000005 E2C1D4D7F3F2F7D3 
00000D 00 



0000E 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



SAMP327L CSECT 

* STATUS - CHANGE LEVEL 000 

* ENTRY POINT - SAMP327L 
* 

* INPUT - REGISTERS 1, 13, AND 14 PROVIDE INPUT AS FOLLOWS 

* 1 - ADDRESS OF PARM AREA POINTER 

* 13- ADDRESS OF SAVE AREA 

* 14- RETURN ADDRESS 
* 

* THE PARM AREA HAS THE FOLLOWING FORMAT 

* +0 LENGTH FIELD (HALF WORD) 

* +2 NO. OF DEVICES IN LINE GROUP (1-3 DIGITS, 1-255, 1=DEFAULT) 

* NO. OF PRINTERS IN LINE GROUP (1-3 DIGITS, <NO. DEVICES, 0=DEF) 

* RLN'S OF PRINTERS (1-3 DIGITS, NO LARGER THAN NO. OF DEVICES, 

* DEFAULT OF 1 IF NO. OF PRINTERS =1) 

* ALL FIELDS SEPARATED BY COMMAS 



* DDNAME FOR 3270 DEVICES = DD3270 

* DD CARDS ARRANGED - PRINTER, DISPLAYS, PRINTER, DISPLAYS, 

* THOSE FOR PRINTERS OMITTED IF NO PRINTERS 
* 

* SYSPRINT DD SYSOUT=A REQUIRED 
* 

* OUTPUT - DISPLAY OUTPUT, PRINTER OUTPUT 



ETC. 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



ZEROREG 
PARMREG 

30 EVENREG 

31 ODDREG 

32 LOOPREG 

33 INDXREG 

34 CNTREG 

35 RLNREG 

36 LOOPREG2 EQU 

37 DECBREG EQU 

38 INDXREG2 EQU 

39 BUFREG EQU 

40 TABBASE EQU 

41 BASEREG2 EQU 

42 BASEREG EQU 

43 SAVEREG 

44 RETNREG 

45 EPREG 

46 * 

47 TYPE 

48 COUNT 

49 RLN 

50 POLPT 

51 * 
52 
53+ 
54+ 
55+ 



EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 

SAVE 
B 

DC 
DC 





1 

2 

3 

4 

5 

6 

CNTREG 

7 

7 

8 

8 

9 

10 

11 

13 

14 

15 

5 

18 
25 
36 



PARAMETER REGISTER 



BASE FOR CONTROL TABLE 



CSECT BASE REGISTER 



DISP TO TYPE FIELD IN DECB 
DISP TO RESIDUAL COUNT IN DECB 
DISP TO RLN FIELD IN DECB 
DISP TO POLPT FIELD IN DECB 



(14,12),T,* SAVE REGISTER 

14(0,15) BRANCH AROUND ID 

ALK8) 

CL8•SAMP327L , IDENTIFIER 



Appendix O: Local 3270 Sample Program 362.7 



LOCAL 3270 SAMPLE PROGRAM 



LOC OBJECT CODE 



00000E 


90EC 


DOOC 


000012 


05B0 




000014 






000014 


41AB 


OFFF 


000018 


41AA 


0001 


00001C 


50D0 


BA3C 


000020 


4120 


BA38 


000021 


502D 


0008 


000028 


18D2 




00002A 


5831 


0000 


00002E 


4843 


0000 


000032 


1244 




000034 


4780 


BO 54 


000038 


4153 


0002 


00003C 


45E0 


B8PA 


000040 


1211 




000042 


47D0 


B03E 


000046 


5910 


BA80 


00004A 


4720 


B03E 


00004E 


5010 


BA84 


000052 


1244 




000052 






000054 


4780 


B054 


000058 


4 5E0 


B8FA 


00005C 


5910 


BA84 


000060 


47B0 


BO 54 


000064 


5010 


BA88 


000068 


5820 


BA84 


000068 






000068 







00006C 8B20 0003 
000070 5830 BA88 
000074 8B30 0002 
000078 4102 3170 
00007C 5000 BA8C 



000080 
000084 
000086 
000088 
00008E 
000094 
000098 
00009C 
0000AO 
0000A4 
OOO0A8 



4510 
OAOA 
1891 
D201 
D701 
4112 
5019 
4111 
5019 
4111 
5019 



B070 



9000 BA86 

9002 9002 

9010 

0004 

3004 

0008 

0028 

000C 



0000AC 4112 315F 



ADDR1 ADDR2 
0000C 



OOFFF 
00001 
00A50 
O0A4C 
00008 



00000 
00000 

00068 
00002 
0090E 

00052 
00A94 
00052 
00A98 



00068 

0090E 
00A98 
00068 
00A9C 

00A98 



00003 
O0A9C 
00002 
00170 
OOAAO 

00084 



00000 00A9A 
00002 00002 
00010 
00004 
00004 
00008 
00028 
OOOOC 

0015F 



STMT SOURCE STATEMENT 
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56+ 
57 

58 

59 

60 

61 

62 

63 

64 

65 * 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 * 

78 PARM2 

79 DFLTNO 
80 

81 * 

82 

83 

84 

85 

86 * 

87 GETTAB 

88 * 

89 DEFAULTS 

90 DFLTPTR 

91 * 
92 
93 
94 
95 
96 
97 
98+ 
99+ 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 * 

110 



STM 14,12,12(13) SAVE REGISTERS 

BALR BASEREG.O ESTABLISH BASE REG 

USING *,BASEREG,BASEREG2 6 ADDRESSABILITY 



LA 
LA 
ST 
LA 
ST 
LR 

L 

LH 

LTR 

BZ 

LA 

BAL 

LTR 

BNP 

C 

BH 

ST 



BAL 
C 

BNL 
ST 



EQU 
EQU 



BASEREG2,4095(BASEREG) INITIALIZE SECOND BASE 
BASEREG2 , 1 (BASEREG2) 
SAVEREG,SAVE+4 ESTABLISH 
EVENREG,SAVE SAVE AREA 

EVENREG, 8 (SAVEREG) CHAIN 

SAVEREG.EVENREG ESTABLISH NEW SAVE AREA 



ODDREG , ( PARMREG) 
LOOPREG, (ODDREG) 
LOOPREG, LOOPREG 
DEFAULTS 

INDXREG, 2 (ODDREG) 
RETNREG, GETPARM 
PARMREG, PARMREG 
DFLTNO 

PARMREG, MAXRLN 
DFLTNO 
PARMREG, NODVCS 



LTR LOOPREG, LOOPREG 
EQU PARM2 
BZ DFLTPTR 



RETNREG, GETPARM 
PARMREG, NODVCS 
DFLTPTR 
PARMREG, NOPTRS 

EVENREG, NODVCS 

GETTAB 
GETTAB 



GET ADDR OF PARM AREA 

GET LENGTH OF PARM AREA 

PARMS PASSED 

NO, .TAKE DEFAULTS 

INITIALIZE POINTER TO PARM STRING 

GET NUMBER OF DEVICES 

VALUE LESS THAN 1 

YES, TREAT AS 1 

VALUE GREATER THAN 255 

YES, TREAT AS 1 

SAVE NUMBER OF DEVICES 

ANY MORE PARMS 

DEFAULT NO OF DVCS = 1 

NO, DEFAULT NUMBER OF PRINTERS 

GET NUMBER OF PRINTERS 
NUMBER OF PRINTERS LESS THAN 
NUMBER OF DEVICES 
SAVE NUMBER OF PRINTERS 

GET SIZE OF TERMINAL ENTRIES 



DEFAULT NO OF PTRS = 



GET SIZE OF PRINTER ECB'S 



SLA EVENREG, 3 

L ODDREG, NOPTRS 

SLA ODDREG, 2 

LA ZEROREG, 368 (EVENREG, ODDREG) GET SIZE OF CONTROL TABLE 

ST ZEROREG, TABSIZE SAVE SIZE 

GETMAIN R,LV=(0) 

BAL l,* + 4- INDICATE GETMAIN 

SVC 10 ISSUE GETMAIN SVC 

LR TABBASE, PARMREG GET ADDR OF CONTROL TABLE 

MVC 0(2,TABBASE),NODVCS+2 SAVE NO. OF DEVICES 

XC 2 (2, TABBASE), 2 (TABBASE) CLEAR ACTIVE NO. OF DEVICES 

LA PARMREG, 16 (EVENREG, TABBASE) SET ADDR OF ECB LIST 

ST PARMREG, 4 (TABBASE) 6 SAVE IT 

LA PARMREG, 4 (PARMREG, ODDREG) SET ADDR OF DECB 

ST PARMREG, 8 (TABBASE) S SAVE IT 

LA PARMREG, 40 (PARMREG) GET ADDR OF BUFFER 

ST PARMREG, 12 (TABBASE) S SAVE IT 



LA 



PARMREG, 351 (EVENREG, ODDREG) GET LENGTH TO CLEAR 
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LOCAL 3270 SAMPLE PROGRAM 



PAGE 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F010CT71 3/22/72 



0000B0 9200 9010 00010 

0000B4 4129 0010 00010 

OOO0B8 5910 BA90 00AA4 

0000BC 4740 B0C2 00OD6 
0000C0 D2FF 2001 2000 00001 00000 

0000C6 4122 0100 00100 

0000CA 5B10 BA90 00AA4 

0000CE 4770 B0A4 000B8 

0000D2 47F0 B0D2 00OE6 



0000D6 0610 
OOO0D8 4410 BOCC 
0000DC 47F0 B0D2 



OOOEO 
000E6 



0000E0 D200 2001 2000 00001 00000 



0000E6 
0000E8 
0000EA 
0000EE 
0000F2 
0000F4 
0000F8 
OOOOFC 
OOOOFE 
000102 
000106 
00010A 
00010E 
000112 
000118 
00011C 
000120 
000124 



1B77 
1B88 
5970 
47B0 
1244 
4780 
45E0 
1211 
4780 
5910 
4720 
8B10 
4119 
D201 
4081 
4188 
4177 
H7FU 



BA88 
B122 

B114 
B8FA 

BODE 

BA84 

BODE 

0003 

1008 

1000 BB3C 

0002 

0004 

0001 

BODb 



000128 1277 
00012A 4770 B122 
00012E 4110 0001 
000132 47F0 B0F6 



000136 5810 BA84 
00013A 5B10 BA88 
00013E 1841 
000140 5C00 BA94 
000144 1801 
000146 5000 BA98 

00014A 4510 B13A 
00014E OAOA 
000150 5010 BA9C 
000154 1851 
00015b 4189 0010 



00A9C 
00136 

00128 
0090E 

O0OF2 
00A98 
O0OF2 
00003 
00008 
00000 00B50 
00002 
00004 
00001 
GOuua 



00136 
00001 
0010A 



00A98 
00A9C 

00AA8 

OOAAC 

0014E 

OOABO 

00010 



LASTMOVE 



CLRMOVE MVC 1(0, E VENREG ) , ( E VENREG) 



GETPTRS 



111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 PTRLOOP 

131 

132 ENDLIST 

133 

134 

135 

136 

137 

138 

139 INITPTR 

140 

141 

142 

143 

144 

145 

146 * 

147 * 

148 DFLTRLN 
149 

150 
151 

152 * 

153 * 

154 FININIT 
155 

156 

157 

158 

159 

160 

161+ 

162+ 

163 

164 

165 



MVT 

LA 

C 

BL 

MVC 

LA 

S 

BNZ 

B 

BCTR 

EX 
B 



16 (TABBASE), CLEAR FIRST BYTE 
EVENREG, 16 (TABBASE) INITIALIZE ADDRESS POINTER 
PARMREG, F256 MOVE LENGTH OVER 256 
LASTMOVE NO, DO LAST MOVE 

1(256,EVENREG),0(EVENRES) CLEAR 256 BYTES 
EVENREG,256(EVENRES) INCREMENT ADDRESS POINTER 
PARMREG,F256 DECR MOVE COUNT 
CLRLOOP REPEAT IF MORE TO DO 

GETPTRS GET PRINTER RLNS 



PARMREG.O 
PARMREG, CLRMOVE 
GETPTRS 



DECR COUNT FOR EXECUTE 
CLEAR REST OF AREA 
GET PRINTER RLNS 



SR LOOPREG2.LOOPREG2 

SR INDXREG2,INDXREG2 

C LOOPREG2 , NOPTRS 

BNL FININIT 

LTR LOOPREG, LOOPREG 

BZ DFLTRLN 

B AL RETNREG , GETPARM 

LTR PARMREG, PARMREG 

BZ ENDLIST 

C PARMREG, NODVCS 

BH ENDLIST 

SLA PARMREG, 3 GET INDEX TO ENTRY 

LA PARMREG, 8 (TABBASE, PARMREG) GET ADDR OF ENTRY FOR PTR 

MVC 0(2, PARMREG), MINI FREE PTR FORMAT 

STH INDXREG2, 2 (PARMREG) INDEX TO ECB PTR 

LA INDXREG2,4(INDXREG2) INCR TO NEXT ECB 

LA LOOPREG2,l(LOOPREG2) INCR PRINTER COUNTER 

B FxRIiOOP 



INITIALIZE COUNTER 

INITIALIZE PRINTER ECB INDEX 

ALL PTR RLNS OBTAINED 

YES, COMPLETE INITIALIZATION 

ANY MORE PARMS 

NO, TAKE DEFAULTS 

RLN VALID 
NO, IGNORE IT 



LTR LOOPREG2,LOOPREG2 

BNZ FININIT 

LA PARMREG, 1 

B INITPTR 



LR 
M 
LR 
ST 



PARMREG, NODVCS 
PARMREG, NOPTRS 
LOOPREG, PARMREG 
ZEROREG.DATASZ 
ZEROREG, PARMREG 
ZEROREG , DATBLKSZ 



GETMAIN 

SAL 

SVC 

ST 

LR 



R,LV=(0) 



NO PTR RLNS PROCESSED 

NO, COMPLETE INITIALIZATION 

YES, DEFAULT RLN = 1 



GET NUMBER OF DISPLAYS 



SAVE LOOP COUNTER 

GET SIZE OF DATA AREAS 



SAVE DATA AREA SIZE 
GET CORE FOR DATA AREAS 



LA 



l,*+4 INDICATE GETMAIN 

10 ISSUE GETMAIN SVC 

PARMREG, DATBLK AD SAVE DATA AREA ADDR 

I NDXREG, PARMREG GET ADDRESS OF AREA 

INDXREG2, 16 (TABBASE) GET ADDR OF ENTRY 



Appendix 0: Local 3270 Sample Program 362.9 



LOCAL 3270 SAMPLE PROGRAM 



LOC 


OBJECT CODE 


ADDR1 


ADDR2 


STMT SOURCE 


STAT] 


00015A 


1B66 










166 


SR 


00015C 


4170 


0001 






00001 


167 
168 * 


LA 


000160 


D501 


8000 


BB3C 


00000 


00B50 


169 INITLOOP 


CLC 


000166 


4780 


B192 






001A6 


170 


BE 


00016A 


D781 


5000 


5000 


00000 


00000 


171 


XC 


000170 


4068 


0002 






00002 


172 


STH 


000174 


5058 


0004 






00004 


173 


ST 


000178 


5A50 


BA94 






00AA8 


174 


A 


00017C 


4188 


0008 






00008 


175 IMCRPTRS 


LA 


000180 


4177 


0001 






00001 


176 


LA 


000184 


4640 


B14C 






00160 


177 


BCT 


000188 


5819 


0004 






00004 


178 


L 


00018C 


5850 


BA88 






00A9C 


179 


L 


000190 


8B50 


0002 






00002 


180 


SLA 


000194 


4111 


5000 






00000 


181 


LA 


000198 


9280 


1000 




00000 




182 


MVI 


00019C 


D202 


1001 


9009 


00001 


00009 


183 


MVC 


0001A2 


47F0 


B198 






001AC 


184 


B 


0001A6 


1867 










185 PTRINIT 


LR 


0001A8 


47F0 


B168 






0017C 


186 

187 IOINIT 


B 
OPEN 


0001AC 












188 + 


CNOP 


0001AC 


4510 


B1A4 






001B8 


189+IOINIT 


BAL 


0001B0 


OF 










190+ 


DC 


0001B1 


OOOACC 








191+ 


DC 


0001B4 


80 










192+ 


DC 


0001B5 


000B18 








193+ 


DC 


0001B8 


0A13 










194+ 
195 


SVC 
WTO 


0001BA 


0700 










196+ 


CNOP 


0001BC 


4510 


B1D2 






001E6 


197 + 


BAL 


0001C0 


0025 










198 + 


DC 


0001C2 


0000 










199+ 


DC 


0001C4 


D3D6C3C1D340F3F2 




200+ 


DC 


0001E6 












201+IHB0005A 


DS 


0001E6 


0A23 










202+ 


SVC 


0001E8 


5840 


BA84 






0OA98 


203 


L 


0O01EC 


5879 


0008 






00008 


204 


L 


OOOIFO 


5889 


OOOC 






OOOOC 


205 


L 


0001F4 


4159 


0010 






00010 


206 


LA 


0001F8 


4160 


0001 






00001 


207 
208 * 


LA 


0001FC 


41F0 


B6E8 






006FC 


209 IOLOOP 


LA 


000200 


D501 


5000 


BB3C 


00000 


00B50 


210 


CLC 


00020b 


4780 


B20A 






0021E 


211 


BE 


00020A 


1816 










212 


LR 


00020C 


05EF 










213 


BALR 


00020E 


12FF 










214 


LTR 


000210 


4780 


B20A 






0021E 


215 


BZ 


000214 


D701 


5000 


5000 


00000 


00000 


216 


XC 


00021A 


47F0 


B216 






0022A 


217 
218 * 


B 


00021H 


4829 


0002 






00002 


219 UPCOUNT 


LH 


000222 


4122 


0001 






00001 


220 


LA 



P01OCT71 3/22/72 



CNTREG,CNTREG 
LOOPREG2 , 1 



PRINTER RLN 
RLN COUNTER 



0(2,INDXREG2) ,MIN1 PRINTER ENTRY 

PTRINIT YES, GET RLN 

0(130, INDXREG), (INDXREG) CLEAR DATA AREA 

CNTREG,2(INDXREG2) STORE PRINTER RLN FOR THIS DISPLAY 

INDXREG, 4(INDXREG2) STORE ADDR OF DATA AREA 

INDXREG,DATASZ INCR DATA AREA PTR 

INDXREG2,8(INDXREG2) INCR ENTRY PTR 

LOOPREG2,l(LOOPRE32) INCR RLN 

LOOPREG, INITLOOP BR IF MORE TO DO 

PARMREG,4(TABBASE) GET ADDR OF ECB LIST 

INDXREG, NOPTRS GET INDEX PAST PRINTER ECB 

INDXREG, 2 

PARMREG,0(PARMREG, INDXREG) GET ADDR OF DISP ENTRY 

O(PARMREG) ,X' 80' SET VL FLAG 

l(3,PARMREG) e 9(TABBASE) MOVE IN ADDR OF ECB 

IOINIT 

CNTREG,LOOPREG2 GET RLN OF PRINTER 

INCRPTRS 

(SYSPRINT, OUTPUT, DD3 270) 

0,4 

1,*+12 LOAD REG1 W/LIST ADDR. 

ALK15) OPTION BYTE 

AL3 (SYSPRINT) DCB ADDRESS 

ALK128) OPTION BYTE 

AL3CDD3270) DCB ADDRESS 

19 ISSUE OPEN SVC 

■LOCAL 3270 SAMPLE PROGRAM RUNNING* 

0,4 

1.IHB0005A BRANCH AROUND MESSAGE 

AL2(37) TEXT LENGTH 

B'0000000000000000" MCS FLAGS 

C'LOCAL 3270 SAMPLE PROGRAM RUNNING' 

OH 

35 

LOOPREG, NODVCS GET LOOP CTR 

DECBREG, 8 (TABBASE) GET ADDR OF DECB 

BUFREG,12(TABBASE) GET ADDR OF BUFFER 

INDXREG, 16 (TABBASE) GET ADDR OF FIRST TERM ENTRY 

RLNREG.l INITIALIZE RLN REG 



EPREG.WRTFMTl 

(2 , INDXREG) , 'MINI 

UPCOUNT 

PARMREG.RLNREG 

RETNREG, EPREG 

EPREG,EPREG 

UPCOUNT 



GET ADDR OF FIRST WRITE RTN 

PRINTER ENTRY 

YES, DON'T DO WRITE 

PUT RLN IN REG 1 

WRITE FIRST MSG 

SUCCESSFUL 

YES, TRY NEXT 
0(2, INDXREG), (INDXREG) MARK TERMINAL INACTIVE 
IOLPCNT 



EVENREG, 2 (TABBASE) 
EVENREG, 1 (EVENREG) 



INCREMENT 

COUNT OF ACTIVE 



362.10 OS BTAM SRL 



LOCAL 3270 SAMPLE PROGRAM 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F010CT71 3/22/72 



000226 4029 0002 00002 

00022A 4166 0001 00001 

00022J£ 4155 0008 00008 

000232 4640 B1E8 001FC 

000236 4160 0001 00001 

00023A 4159 0010 00010 

00023E 5840 BA84 00A98 
000242 D501 5000 BB3C 00000 00B50 

000248 4770 B248 0025C 

00024C 4166 0001 00001 

000250 4155 0008 00008 

000254 4640 B22E 00242 

000258 4160 0001 00001 

00025C 5060 BAA0 00AB4 

000260 5860 BAAO 00AB4 
000264 0703 7000 7000 00000 00000 



00026A 


1817 




00026C 


9404 


1004 


000270 


9201 


1005 


000274 


41E0 


0134 


000278 


40E0 


1006 


00027C 


41E0 


BB04 


000280 


50E0 


1008 


000284 


5080 


10 OC 


000288 


4060 


1018 


00028C 


58F0 


BB34 


000290 


94F7 


1004 


000294 


05EF 




000296 


1-2FF 




000298 


4770 


B8EC 


00029C 


5839 


0004 


0002A0 






0002A0 






0002AO 


4113 


0000 


0002A4 


1801 




0002A6 


58F1 


0000 


0002AA 


9140 


F000 


0002AE 


4770 


B2C2 


0002B2 


9180 


1000 


0002B6 


4710 


B2AE 


0002BA 


4111 


0004 


0002BE 


47F0 


B292 


0002C2 


1810 




0002C4 


4100 


0001 


0002C8 


4110 


1000 


0002CC 


1800 




0002CE 


1311 




0002D0 


0A01 




0002D2 


47F0 


B28C 


000206 


412F 


0000 



00004 
00005 



00134 
00006 
00B18 
00008 
0000C 
00018 
00B48 



00004 



00000 



00900 
00004 



00000 

00000 

002D6 

002C2 
00004 
002A6 

00001 
00000 



002A0 
00000 



221 

222 IOLPCNT 

223 

224 

225 * 

226 

227 

228 

229 FINDFRST 

230 

231 

232 

233 

234 

235 DSPLY1 

236 * 

237 READ 
238 

239 

240+ 

241+ 

242+ 

243+ 

244+ 

245+ 

246+ 

247+ 

248 + 

249+ 

250+ 

251+ 

252 

253 

254 TWAIT 

2bb 

256+ 

257+IECA0008 

258+ 

259+ 

260+IECB0008 

261+ 

262+ 

263+ 

264+ 

265+ 

266+ 

267+IECD0008 

268+ 

269+ 

270+ 

271+ 

272+ 

273+ 

274+IECC0008 

275+* 



STH 
LA 
LA 
BCT 

LA 

LA 

L 

CLC 

BNE 

LA 

LA 

BCT 

LA 

ST 

L 

XC 

READ 

LR 

NI 

MVI 

LA 

STH 

LA 

ST 

ST 

STH 

L 

NI 

BALR 

LTR 

BNZ 

L 

TWA1I 

DS 

EQU 

LA 

LR 

L 

TM 

BNZ 

TM 

BO 

LA 

B 

LR 

LA 

LA 

LR 

LCR 

SVC 

B 

LA 



EVENREG, 2 (TAB BASE) 
RLNREG, 1 (RLNREG) 
INDXREG, 8 (INDXREG) 
LOOPREG.IOLOOP 

CNTREG, 1 

INDXREG, 16 (TABBASE) 

LOOPREG,NODVCS 

0(2, INDXREG), MINI 

DSPLY1 

CNTREG , 1 ( CNTREG) 

INDXREG, 8 (INDXREG) 

LOOPREG, FINDFRST 

CNTREG, 1 

CNTREG, RE ADRLN 



DEVICES 
INCR RLN 

INCR TO NEXT ENTRY 
LOOP IF MORE TO DO 

INIT RLN 

POINTER TO FIRST ENTRY 

LOOP LIMIT 

PRINTER 

NO, SAVE RLN 

INCR RLN 

INCR TO NEXT ENTRY 



SAVE RLN FOR READS 



RLNREG, READRLN GET READ RLN 

0(4, DECBREG) , ( DECBREG) 

(DECBREG) ,TI,DD3270, (B0FRE3) , 308 , , (RLNREG) , MF=E 

1, DECBREG LOAD DECB ADDRESS 

4(1), 4 

5(1), 1 

14,308(0,0) OOOB 

14,6(0,1) STORE LENGTH OOOB 

14.DD3270 

14,8(0,1) STORE DCB ADDRESS 

BUFREG,12(0,1) STORE AREA ADDR OOOB 

RLNREG, 24 (0,1) STORE LINE NUMBER 

15,DD3270+48 LOAD RDWRT ROOT ADDR 

4(1),X'F7' A38557 

14,15 A38557 

EPREG , EPREG 

ERR ABEND 

ODDREG , 4 ( TABBASE) 

il£Vi;NKEG} , ECBLISr- ODDREG) 

OH 



OK 

NO, ABEND 

GET ADDR OF ECB LIST 



1,0 ((ODDREG)) 000A 

0,1 SAVE PARAMETER LIST ADDRESS. 

15,0(1) LOAD ECB ADDRESS. 

0(15),X' 40' IS COMPLETE BIT ON? 

IECC0008 

0(1), X' 80' IF NOT, TEST FOR END OF LIST. 

IECD0008 

1,4(1) STEP TO NEXT ENTRY IN LIST. 

IECB0008 

1.0 RESTORE PARAMETER LIST REGISTER. 
0,1 LOAD WAIT COUNT. 

1,0(0,1) CLEAR HIGH BYTE OF REG 
0,0 

1.1 INDICATE ECBLIST USED 
1 LINK TO WAIT ROUTINE 
IECA0008 

(EVENREG) ,0(15) IF ON, LOAD SPECIFIED REGISTER WITH 
ADDRESS OF COMPLETED ECB 



Appendix O: Local 3270 Sample Program 362.11 



LOCAL 3270 SAMPLE PROGRAM 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



0002DA 


18P1 




0002DC 


1BF0 




0002DE 


9501 


2005 


0002E2 


4770 


B760 


0002E6 


9544 


2000 


0002EA 


4780 


B24C 


0002EE 


957F 


2000 


0002F2 


4770 


B8EC 


0002F6 


5812 


0024 


0002FA 


1831 




0002FC 


8B30 


0003 


000300 


4869 


3008 


000304 


8B60 


0002 


000308 


47F6 


B2F8 


00030C 


47F0 


B8EC 


000310 


47F0 


B30C 


000314 


47F0 


B5C2 


000318 


47F0 


B6B8 


00031C 


47F0 


B24C 


000320 


956E 


8000 


000324 


4770 


B40A 


000328 


1861 




000328 






00032A 


8B10 


0003 


00032E 


4120 


0004 


000332 


4029 


1008 


000336 






000336 


4110 


BB04 


00033A 


58F1 


00 2C 


00033E 


58EF 


0018 


000342 


41EE 


0000 


000346 


4111 


0000 


00034A 


191E 




00034C 


4770 


B362 


000350 


181F 




000352 


41F0 


0006 


000356 


1BEE 




000358 


43E1 


0010 


00035C 


19FE 




00035E 


4720 


B362 


000362 


8BF0 


0002 


000366 


581F 


101C 


00036A 


1B00 




00036C 


41F0 


0002 


000370 


0A74 




000372 


47F0 


B366 


000376 


41F0 


0008 


00037A 







00005 



00000 



00000 



00774 

00260 

00900 
00024 

00003 
00008 
00002 
0030C 
00900 
C0320 
005D6 
006CC 
00260 



00000 



0041E 



00003 
00004 
00008 



00B18 
0002C 
00018 
00000 
00000 

00376 

00006 

00010 

00376 
00002 
0001C 

00002 

0037A 
00008 



276+ 

277+ 

278 * 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 READRTN 

292 

293 

294 

295 

296 * 

297 * 

298 READFMT1 
299 

300 * 

301 WRTFMT4 

302 ENDMSG 
303 

304 

305 

306 

307+ 

308+ 

309+ 

310+ 

311+ 

312+ 

313+ 

314+ 

315+ 

316+ 

317+ 

318+ 

319+ 

320+ 

321+ 

322+ 

323+ 

324+ 

325+ 

326+ 

327+IECA0010 

328+IECB0010 

329 * 



LR 
SR 

CLI 

BNE 

CLI 

BE 

CLI 

BNE 

L 

LR 

SLA 

LH 

SLA 

B 

B 

B 

B 

B 

B 



CLI 

BNE 

LR 

EQti 

SLA 

LA 

STH 



15,1 
15,0 



TYPE(EVENREG) ,X'01' OPERATION = READ INITIAL 



NO, PRINTER OPERATION 

INTERCEPTED 

YES, RETRY READ 

SUCCESSFUL 

NO, END 

PARMREG,POLPT(EVENREG) GET RESPONDING RLN 
ODDREG,PARMREG 

ODDREG,3 GET INDEX TO TERM ENTRY 

CNTREG,8(TABBASE,ODDREG) GET FORMAT NO. 



PRNTREND 
0(EVENREG),X' 44* 
READ 

0(EVENREG),X'7F' 
ERRABEND 



CNTREG,2 

READRTN (CNTREG) 

ERRABEND 

READFMT1 

READFMT2 

PEADFMT3 

READ 



O(BUFREG) ,X'6E' 
CLR1 

RLNREG,PARMREG 
HRTFMT4 
PARMTJ5G, 3 
BVENREG, 4 



MULTIPLY BY 4 

RLN = INACTIVE DEVICE 

FORMAT 1 ON SCREEN 

FORMAT 2 ON SCREEN 

FORMAT 3 ON SCREEN 

FORMAT 4 ON SCREEN - IGNORE IT 



INTERRUPT IS PA2 KEY 
NO, TEST FOR CLEAR KEY 

SAVE RLN 

RETURN = REESTABLISH READ 
CONVERT RLN TO TABLE INDEX 
FORMAT ID 



EVENREG, 8<TABBASE,PARMREG) STORE ID IN TABLE 



CHGNTRY Dr>3?.70,ATTLST, fRLNREG) , , SXIP 



DEACTIVATE TERMINAL 



DS OH 

LA 1,DD3270 

L 15,44(1) GET DEb ADDR 

L 14,24(15) GET DCB ADDR FROM DEB 

LA 14,0(14) CLEAR HIGH-ORDER BYTE 

LA 1,0(1) CLEAR HIGH-ORDER BYTE 

CR 1,14 DCB-DEB LOOP COMPLETE 

BNE IECA0010 NO, GIVE RETURN CODE = 8 

LR 1,15 DEB ADDR TO RE'S 1 

LA 15, (RLNREG) GET RLi* 

SR 14,14 

IC 14,16(1) GET NUMBER OF EXTENTS 

CR 15,14 IS RLN VALID 

BH IECA0010 No, GIVE RETURN CODE = 8 

SLA 15,2 MULTIPLY RLN BY 4 

L 1,28(15,1) GET ADDR OF UCB FROM DEB 

SR 0,0 

LA 15,2 FUNCTION IS SKIP 

SVC 116 INVOKE ESR 

B IECB0010 BRANCH TO EXIT 

LA 15,8 SET RETURN CODE OF 8 

EQU * 

FOR READ INITIAL 



362.12 OS BTAM SRL 



LOCAL 3270 SAMPLE PROGRAM 



PAGE 



LOC OBJECT CODE 



ADDRl ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



00037A D703 7000 7000 00000 00000 



000380 
000382 
000386 
00038A 
00038E 
000390 
000396 
00039A 
00039E 
0003A2 
0003A6 
0003AA 
0003AE 
0003B2 
0003B4 
0003B6 

0003BA 
0003BE 
0003C2 
0003C4 
0003C8 
0003CC 
0003D0 
0003D4 



1817 
9404 
920E 
47F0 
0024 
D201 
41E0 
50E0 
41E0 
S0E0 
4060 
58F0 
94F7 
05EF 
12FF 
4770 

4110 
4100 
0A01 
9 57F 
4780 
9544 
4780 
47F0 



1004 
1005 
B37C 



00004 
00005 



1006 B37A 00006 

BB04 

1008 

BE76 

100C 

1018 

BB34 

1004 00004 



B8EC 

7000 
0001 

7000 
B3C4 
7000 
B366 
B8EC 



0003D8 4829 0002 
0003DC 4620 B402 

0003E0 

0003E0 4510 S3D6 
0003E4 00 
0003E5 000ACC 
0003E8 80 
0003E9 000B18 
0003EC 0A14 
0003EE 5810 BA9C 
0003F2 5800 BA98 

0003F6 4111 0000 
0003FA OAOA 
0003FC 1819 
0003FE 5800 BA8C 

000402 4111 0000 
000406 OAOA 
000408 58D0 BA3C 

00040C 98EC DOOC 
000410 92FF DOOC 
000414 07FE 



00390 

0038E 
00B18 
00008 
00E8A 
0000C 
00018 
00B48 



00900 



00000 
00001 



00000 



00000 



003D8 



0037A 
00900 



00002 
00416 



00AB0 
OOAAC 

00000 

00AA0 
00000 
00A50 
OOOOC 



OOOOC 



330 WRITE4 

331 

332+ 

333+ 

334+ 

335+ 

336+ 

337+ 

338+ 

339+ 

340+ 

341+ 

342+ 

343+ 

344+ 

345+ 

346 

347 

348 

349+ 

350+ 

351+ 

352 

353 

354 

355 

356 

357 * 

358 * 

359 QUIESCE 
360 

361 

362+ 

363+ 

364+ 

365+ 

366+ 

367+ 

368+ 

369 

370 

371 

372+ 

373+ 

374 

375 

376 

377+ 

378+ 

379 

380 

381+ 

382+ 

383+ 

384 * 



XC 0(4,DECBREG),0(DECBREG) CLEAR ECB 

WRITE (DECBREG) ,TS,DD3270 f FORMAT4 ,FMT4SZ, , (RLNRE3) , MF=E 

LR 1, DECBREG LOAD DECB ADDRESS 

NI 4(1), 4 

MVI 5(1), 14 

B *+6 OOOB 

DC AL2(FMT4SZ) OOOB 

MVC 6(2,l),*-2 MOVE IN LENGTH OOOB 

LA 14.DD3270 

ST 14,8(0,1) STORE DCB ADDRESS 

LA 14,FORMAT4 OOOB 

ST 14,12(0,1) STORE AREA ADDR OOOB 

STH RLNREG,24(0,1) STORE LINE NUMBER 

L 15,DD3270+48 LOAD RDWRT ROUT ADDR 

NI 4(1),X , F7' A38557 

BALR 14,15 A38557 

LTR EPREG,EPREG END IF RC 

BNZ ERRABEND NON-ZERO 

WAIT ECB= (DECBREG) 

LA 1,0(0, DECBREG) CLEAR HIGH BYTE OF REG 

LA 0,1(0,0) COUNT OMITTED, 1 USED 

SVC 1 LINK TO WAIT ROUTINE 

CLI (DECBREG) ,X*7F* SATISFACTORY COMPLETION 

BE QUIESCE UPDATE ACTIVE TERM COUNT 

CLI (DECBREG), X" 44' INTERCEPT 

BE WRITE4 YES, RETRY 

B ERRABEND NO, END 



GET NO. OF ACTIVE TERMS 

DECR COUNT 

IF ZERO, CLOSE DCB' S 



LH EVENREG,2(TABBASE) 

BCT E VENREG , QCNTS TR 

CLOSE (SYSPRINT,,DD3270) 

CNOP , 4 

BAJL- 1 ; *+12 BRANCH ARranun T.TST 

DC ALKO) OPTION BYTE 

DC AL3 (SYSPRINT) DCB ADDRESS 

DC ALK128) OPTION BYTE 

DC AL3(DD3270) DCB ADDRESS 

SVC 20 ISSUE CLOSE SVC 

L PARMREG.DATBLKAD LOCATION OF DATA AREAS 

L ZEROREG.DATBLKSZ SIZE OF DATA AREAS 

FREEMAIN R, LV=(0) , A=(l) FREE DATA AREAS 

LA 1,0(1) CLEAR THE HIGH ORDER BYTE 

SVC 10 ISSUE FREEMAIN SVC 

LR PARMREG,TABBASE LOCATION OF CONTROL TABLE 

L ZEROREG.TABSIZE SIZE OF CONTROL TABLE 

FREEMAIN R,LV= (0) , A=(l) FREE CONTROL TABLE 

LA 1,0(1) CLEAR THE HIGH ORDER BYTE 

SVC 10 ISSUE FREEMAIN SVC 

L SAVEREG.SAVE+4 

RETURN (14,12),T RETURN TO CALLING PROGRAM 

LM 14,12,12(13) RESTORE THE REGISTERS 

MVI 12(13), X'FF' SET RETURN INDICATION 

BR 14 RETURN 



Appendix O: Local 3270 Sample Program 362.13 



LOCAL 3270 SAMPLE PROGRAM 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22'72 



000416 4029 0002 
00041A 47F0 B24C 



00041E 956D 8000 
000422 4770 B47E 



000426 1861 
000426 



00000 



00002 
00260 



00492 



000428 8B10 0003 00003 

00042C 4120 0003 00003 

000430 4029 1008 00008 

000434 D703 7000 7000 00000 00000 



00043A 
00043C 
000440 
000444 
000448 
00044A 
000450 
000454 
000458 
00045C 
000460 
000464 
000468 
00046C 
00046E 
000470 

000474 
000478 
00047C 
00047K 
000482 
000486 
00048A 
00048E 

000492 
000496 
00049A 
00049E 
0004A2 
0004A6 
0004AA 
0004AE 
0004B0 



1817 
9404 
920E 
47F0 
0148 
D201 
41E0 
50E0 
41E0 
50E0 
4060 
58F0 
94F7 
05EF 
12FF 
4770 

4110 
4100 
0A01 
957F 
4780 
9544 
4780 
47F0 

957D 
4770 
5839 
4158 
4140 
4B42 
5B40 
1244 
47D0 



1004 
1005 
B436 

1006 B434 

BB04 

1008 

BD2E 

100C 

1018 

BB34 

1004 



B8EC 

7000 
0001 

7000 
B24C 
7000 
B420 
B8EC 

8000 
B24C 
300C 
0003 
0134 
0012 
BAA8 

B52C 



00004 
00005 

0044A 

00006 00448 
00B18 
00008 
00D42 
0000C 
00018 
00B48 

00004 



00900 



00000 
00001 



00000 



00260 



00000 



00434 
00900 



00000 



00260 
0000C 
00003 
00134 
00012 
OOABC 

00540 



0004B4 D502 5000 BB3F 00000 00B53 
0004BA 4770 B4BA 004CE 

0004BE D720 3000 3000 00000 00000 
0004C4 45E0 B97A 0098E 



385 QCNTSTR 
386 

387 * 

388 * 

389 CLR1 
390 

391 * 

392 WRTFMT3 

393 CNTRLMSG 

394 * 
395 
396 
397 

398 WRITE3 

399 

400+ 

401+ 

402+ 

403+ 

404 + 

405+ 

406+ 

407+ 

408+ 

409 + 

410+ 

411+ 

412+ 

413+ 

414 

415 

416 

417+ 

418+ 

419+ 

420 

421 

422 

423 

424 

425 * 

426 ENT1 
427 

428 

429 

430 

431 

432 

433 

434 

435 * 

436 

437 

438 

439 



STH 

B 



CLI 
BNE 

LR 
EQO 

SLA 

LA 

STH 

XC 

WRITE 

LR 

NI 

MVI 

B 

DC 

MVC 

LA 

ST 

LA 

ST 

STH 

L 

NI 

BALR 

LTR 

BNZ 

WAIT 

LA 

LA 

SVC 

CLI 

BE 

CLI 

BE 

B 

CLI 

BNE 

L 

LA 

LA 

SH 

S 

LTR 

BNP 



EVENREG, 2 (TABBASE) 
READ 



O(BUFREG) ,X'6D' 
ENT1 



SAVE UPDATE ACTIVE TERM CNT 
SET UP READ 



CLEAR KEY 

NO, TEST FOR ENTER KEY 



RLNREG.PARMREG SAVE RLN 
WRTFMT3 

WRITE CONTROL OPTIONS 
PARMREG,3 CONVERT RLN TO TABLE INDEX 

EVENREG, 3 FORMAT ID 

EVENREG, 8 (TABBASE, PARMREG) STORE ID IN TABLE 
0(4,DECBREG),0(DECBREG) CLEAR ECB 

(DECBREG) ,TS,DD3270,FORMAT3,FMT3SZ,, (RLNRES) , MF=E 
1, DECBREG LOAD DECB ADDRESS 
4 (1) , 4 
5(1), 14 
*+6 000B 

AL2(FMT3S2) 000B 

6(2,l),*-2 MOVE IN LENGTH 000B 
14,DD3270 

14,8(0,1) STORE DCB ADDRESS 
14,FORMAT3 00 OB 

14,12(0,1) STORE AREA ADDR 000B 
RLNREG,24(0,1) STORE LINE NUMBER 
15,DD3270+48 LOAD RDWRT ROUT ADDR 
4(1),X'F7' A38557 
14,15 A38557 

EPREG,EPREG END IF RC 
ERRABEND NON-ZERO 

ECB= (DECBREG) WAIT FOR COMPLETION 
1,0(0, DECBREG) CLEAR HIGH BYTE OF REG 
0,1(0,0) COUNT OMITTED, 1 USED 
1 LINK TO WAIT ROUTINE 



(DECBREG), X'7F' 

READ 

(DECBREG) ,X' 44* 

WRITE3 

ERRABEND 



SATISFACTORY COMPLETION 

YES, SET UP READ 

INTERCEPT 

YES, RETRY OPERATION 

NO, END 



O(BUFREG) .X^D' ENTER KEY 

READ NO, REESTABLISH READ 

ODDREG, 12 (TABBASE, ODDREG) SET ADDR OF DATA AREA 

INDXREG,3(BUFREG) INDEX PAST AID 6 CURSOR ADDR 

LOOPREG, 308 

LOOPREG, COUNT (EVENREG) GET NUMBER OF BYTES READ 

LOOPREG, THREE ADJUST FOR LENGTH OF AID 6 ADDR 

LOOPREG, LOOPREG 

WRTRSPNS NOTBIN3 ENTERED 



CLC 0(3,INDXREG),FLD1 FIRST FIELD 

BNE FLD2CHK NO, CHECK FOR SECOND 

XC (33, ODDREG), 0( ODDREG) CLEAR FIELD IN DATA AREA 

BAL RETNREG,GETFIELD FIND FIELD DELIMITERS 



362.14 OS BTAM SRL 



LOCAL 3270 SAMPLE PROGRAM 



PAGE 



LOC OBJECT CODE 



ADDRl ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



0004C8 1244 
0004CA 47D0 



0004CE 
0004D2 
0004D8 
0004DC 
0004E2 
0004E6 
0004E8 

0004EC 
0004F0 
0004F6 
0004FA 
000S00 
000504 
000506 

00OS0A 
00050E 
000514 
000518 
00051E 
000522 
000524 



4133 
D502 
4770 
D720 
45E0 
1244 
47D0 

4133 
D502 
4770 
D720 
45E0 
1244 
47D0 

4133 
D502 
4770 
D714 
45E0 
1244 
47D0 



B52C 

0022 

5000 BB42 
B4D8 

3000 3000 
B97A 

B52C 

0022 

5000 BB45 
B4F6 

3000 3000 
B97A 

B52C 

0022 

5000 BB48 
B514 

3000 3000 
B97A 

B52C 



000528 4133 0016 
00052C D502 5000 BB4B 
000532 4770 B52C 
000536 D704 3000 3000 
00053C 45E0 B97A 



000540 1861 
000540 



00540 

00022 
00000 00B56 

004EC 
00000 00000 

0098E 

00540 

00022 
00000 00B59 

0050A 
00000 00000 

0098E 

00540 

00022 
00000 00B5C 

00528 
00000 00000 

0098E 

00540 

00016 
00000 00B5F 

00540 
00000 00000 

0098E 



000542 
000548 
00054E 
000552 
000556 
00055A 
00055E 
000564 
00056A 
000570 
000576 
00057C 



D2FF 
D231 
8B10 
4120 
4029 
5839 
D220 
D220 
D220 
D214 
D204 
D703 



8000 
8100 
0003 
0002 
1008 
100C 
8028 
8052 
807C 
80A7 
80C4 
7000 



000582 1817 
000584 9404 1004 
000588 920E 1005 
00058C 47F0 B57E 
000590 0132 



BBFC 00000 
BCFC 00100 



3000 00028 
3022 00052 
3044 0007C 
3066 000A7 
307C 000C4 
7000 00000 



00004 
00005 



00C10 
00D10 
00003 
00002 
00008 
0000C 
00000 
00022 
00044 
00066 
0007C 
00000 



00592 



440 
441 

442 * 

443 FLD2CUK 
444 

445 
446 
447 
448 
449 

450 * 

451 FLD3CHK 
452 

453 
454 
455 
456 
457 

458 * 

459 FLD4CHK 
460 

461 
462 
463 
464 
465 

466 * 

467 FLD5CHK 
468 

469 
470 
471 

472 * 

473 * 

474 WRTFMT2 

475 WRTRSPNS 

476 * 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 

488 WRITE2 

489 

490+ 

491+ 

492+ 

493+ 

494+ 



LTR 
BNP 

LA 

CLC 

BNE 

XC 

BAL 

LTR 

BNP 

LA 

CLC 

BNE 

XC 

BAL 

LTR 

BNP 

LA 

CLC 

BNE 

XC 

BAL 

LTR 

BNP 

LA 

CLC 

BNE 

XC 

BAL 



LR 
EQU 

MVC 

MVC 

SLA 

LA 

STH 

L 

MVC 

MVC 

MVC 

MVC 

MVC 

XC 

WRITE 

LR 

NI 

MVI 

B 

DC 



LOOPREG , LOOPREG 
WRTRSPNS 



END OF DATA 

YES, WRITE RESPONSE 



ODDREG,34(ODDREG) INCR TO NEXT FIELD IN DATA AREA 

0(3,INDXREG),FLD2 SECOND FIELD 

FLD3CHK NO, CHECK FOR THIRD FIELD 

0(33,ODDREG),0(ODDREG) CLEAR FIELD IN DATA AREA 

RETNREG.GETFIELD GET FIELD 

LOOPREG .LOOPREG END OF DATA 

WRTRSPNS YES, WRITE RESPONSE 

ODDREG,34(ODDREG) INCR TO THIRD FIELD IN DATA AREA 

0(3,INDXREG),FLD3 THIRD FIELD 

FLD4CHK NO, CHECK FOR FOURTH FIELD 

0(33,ODDREG),0(0DDREG) CLEAR FIELD 

RETNREG,GETFIELD GET FIELD 

LOOPREG, LOOPREG END OF DATA 

WRTRSPNS YES, WRITE RESPONSE 

ODDREG,34(ODDREG) INCR TO FOURTH FIELD 

0(3,INDXREG),FLD4 FOURTH FIELD 

FLD5CHK NO, CHECK FOR LAST FIELD 

0(21,ODDREG),0(0DDREG) CLEAR FIELD 

RETNREG.GETFIELD GET FIELD 

LOOPREG, LOOPREG END OF DATA 

WRTRSPNS YES, WRITE RESPONSE 

ODDREG,22(ODDREG) INCR TO LAST FIELD 

0(3,INDXREG),FLD5 FIFTH FIELD 

WRTRSPNS NO, WRITE RESPONSE 
0(5,ODDREG),0(ODDREG) CLEARFIELD 

RETNREG.GETFIELD GET FIELD 



RLNREG,PARMREG SAVE, RL« 

WRTFMT2 RETURN = REESTABLISH READ 

WRITE FORMAT 2 
0(256,BUFREG) ,F0RMAT2 MOVE BASE MESSAGE 
256(FMT2SZ-256,BUFREG),FORMAT2+256 INTO BUFFER 
PARMREG,3 CONVERT RLN TO TABLE INDEX 

EVENREG, 2 GET FORMAT ID 

EVENREG,8(TABBASE,PARMREG) 6 STORE IN TABLE ENTRY 
ODDREG,12(TABBASE,PARMREG) GET DATA AREA ADDR 
FMT2FLD1(33,BUFRES) ,0(ODDREG) MOVE DATA 
FMT2FLD2(33,BUFREG) ,34(ODDREG) FROM 
FMT2FLD3(33,BUFREG),68(ODDRE3) DATA AREA 
FMT2FLD4(21,BUFREG) ,102(ODDREG) TO 
FMT2FLD5(5,B0FREG) ,124(ODDREG) BUFFER 
(4 ,DECBREG) , (DECBREG) CLEAR ECB 

(DECBREG) ,TS,DD3270, (BUFRE3) ,FMT2SZ, , (RLNRES) , MF=E 
1, DECBREG LOAD DECB ADDRESS 
4(1), 4 
5(1), 14 
*+6 000B 
AL2(FMT2SZ) 000B 



Appendix O: Local 3270 Sample Program 362.15 



LOCAL 3270 SAMPLE PROGRAM 



PAGE 10 



LOC 


OBJECT CODE 


ADDR1 


ADDR2 


STMT SOURCE 


STAT] 


000592 


D201 


1006 B57C 


000C6 


00590 


495+ 


MVC 


000598 


41E0 


BBC 4 




00B18 


496+ 


LA 


00059C 


50E0 


1008 




00008 


497+ 


ST 


0005A0 


5080 


100C 




OOOOC 


498+ 


ST 


0005A4 


4060 


1013 




00018 


499-i 


STH 


0005A8 


58F0 


BB34 




00B48 


500+ 


L 


0005AC 


94F7 


1004 


00004 




501+ 


NI 


0005B0 


05EF 








502+ 


BALR 


0005B2 


12FF 








503 


LTR 


0005B4 


4770 


B8EC 




00900 


504 
505 


BNZ 
WAIT 


0005B8 


4110 


7000 




00000 


506+ 


LA 


0005BC 


4100 


0001 




00001 


507+ 


LA 


0005C0 


0A01 








508 + 


SVC 


0005C2 


957F 


7000 


00000 




509 


CLI 


0005C6 


4780 


B24C 




00260 


510 


BE 


0005CA 


9544 


7000 


00000 




511 


CLI 


0005CE 


4780 


B568 




0057C 


512 


BE 


0005D2 


47F0 


B8EC 




00900 


513 
514 * 


B 


0005D6 


956C 


8000 


00000 




515 READFMT2 


CLI 


0005DA 


4770 


B30C 




00320 


516 


BNE 


0005DE 


1821 








517 


LR 


0005E0 


8B20 


0003 




00003 


518 


SLA 


0005E4 


4832 


900A 




OOOOA 


519 


LH 


0005E8 


1233 








520 


LTR 


0005EA 


4780 


B682 




00696 


521 


BZ 


0005EE 


1863 








522 


LR 


0005F0 


8B30 


0003 




00003 


523 


SLA 


0005F4 


4100 


00B8 




0OOB8 


524 
525 


LA 
GETMi 


0005F8 


4510 


B5E8 




005FC 


526+ 


BAL 


0005FC 


OAOA 








527+ 


SVC 


0005FE 


D7B7 


1000 1000 


00000 


00000 


528 


XC 


000604 


4141 


002C 




0002C 


529 


LA 


000608 


5852 


900C 




OOOOC 


530 


L 


00060C 


92C8 


4000 


00000 




531 


MVI 


000610 


D280 


4001 5000 


00001 


00000 


532 


MVC 


000616 


9215 


4022 


00022 




533 


MVI 


00061A 


9215 


4044 


00044 




534 


MVI 


00061E 


9215 


4066 


00066 




535 


MVI 


000622 


9240 


407C 


0007C 




536 


MVI 


000626 


9219 


4082 


00082 




537 
538 * 


MVI 


00062A 


4809 


3008 




00008 


539 


LH 


00062E 


4900 


BB3C 




00B50 


540 


CH 


000632 


4780 


B638 




0064C 


541 


BE 


000636 


5859 


300C 




OOOOC 


542 


L 


00063A 


5015 


0000 




00000 


543 


ST 


00063E 


5019 


300C 




OOOOC 


544 


ST 


000642 


1812 








545 RSTRKYBD 


LR 


000644 


8A10 


0003 




00003 


546 


SRA 


000648 


47F0 


B52C 




00540 


547 
548 * 


B 


00064C 


5019 


300C 




OOOOC 


549 STRTPRTR 


ST 



F01OCT71 3/22/72 



6(2,l),*-2 MOVE IN LENGTH 000B 

14,DD3270 

14,8(0,1) STORE DCB ADDRESS 

BOFREG,12(0,1) STORE AREA ADDR 000B 

RLNREG,24(0,1) STORE LINE NUMBER 

15,DD3270+48 LOAD RDWRT ROOT ADDR 

4(1),X'F7' A38557 

14,15 A38557 

EPREG,EPREG END IF RC 

ERRABEND NON- ZERO 

ECB=(DECBREG) WAIT FOR OPERATION TO END 

1,0(0,DECBREG) CLEAR HIGH BYTE OF REG 

0,1(0,0) COUNT OMITTED,! USED 

1 LINK TO WAIT ROUTINE 

O(DECBREG) ,X'7F' COMPLETION SATISFACTORY 

READ YES, SET UP READ 

0(DECBREG),X* 44' INTERCEPT 

WRITE2 YES, RETRY 

ERRABEND NO, END 

0(BUFREG),X'6C' PAL KEY 

READFMT1 NO, GO TO READ FORMAT 1 LOGIC 

EVENREG, PARMREG GET RLN OF DISPLAY 
EVENREG.3 GET INDEX TO ENTRY 

ODDREG, 10 (EVENREG, TABBASE) GET RLN OF ASSIGNED PTR 
ODDREG, ODDREG PRINTER ASSIGNED 
SYSOUT NO, USE SYSOUT 

RLNREG, ODDREG SAVE RLN 

ODDREG, 3 GET INDEX TO ENTRY OF PRINTER 

ZEROREG.184 

CN R,LV=(0) GET CORE FOR PRINTER REQUEST BLOCK 

l,*+4 INDICATE GETMAIN 
10 ISSUE GETMAIN SVC 

0(184, PARMREG), O(PARMRES) CLEAR IT 
LOOPRS<3,«44 (PARMREG) GET ADDR OF PRINT BUFFER 
INDXREG, 12 (EVENREG, TABBASE) GET ADDR OF DATA AREA 
0(LOOPREG),X'C8' STORE WCC IN BUFFER 
1(129, LOOPREG),0 (INDXREG) MOVE IN DATA 
34(LOOPREG),X'15* NEW LINE 
68(LOOPREG),X*15* NEW LINE 

NEW LINE 

BLANK 

END OF MESSAGE 



102(LOOPREG),X'15* 
124(LOOPREG),C * 
130 (LOOPREG) , X' 19 ' 



ZEROREG, 8 (TABBASE, ODDREG) GET CURRENT PRINTER FORMAT 

ZEROREG.MINl PRINTER BUSY 

STRTPRTR NO, START OPERATION 

INDXREG, 12 (TABBASE, ODDREG) GET POINTER TO LAST REQ 

PARMREG, (INDXREG) STORE POINTER 

PARMREG, 12 (TABBASE, ODDREG) UPDATE POINTER TO CORR REQ 

PARMREG, EVENREG RECOVER RLN OF DISPLAY 

PARMREG, 3 FROM TABLE INDEX 

WRTRSPNS GO TO UNLOCK KEYBOARD 

PARMREG, 12 (TABBASE, ODDREG) STORE POINTER TO REQ 



362.16 OS BTAM SRL 



LOCAL 3270 SAMPLE PROGRAM 



11 



LOC OBJECT CODE 



ADDRl ADDR2 STMT SOURCE STATEMENT 



F010CT71 3/22'72 



000650 4111 0004 
000654 5859 0004 
000658 4A59 300A 
00065C 5015 0000 
000660 0600 
000662 4009 3008 



00066b 
000668 
00066C 
000670 
000674 
000678 
00067C 
000680 
000684 
000688 
00068C 
000690 
000692 

000696 
00069A 
0006A0 
0006A4 
0006A8 
0006AC 
0006B0 
0006B4 



1811 
9404 
920E 
41E0 
40E0 
41E0 
50E0 
5040 
4060 
58F0 
94F7 
05EF 
47F0 

5859 
D281 
926B 
926B 
926B 
9240 
924B 
DC81 



00004 
00004 
0000A 
00000 

00008 



1004 
1005 
0083 
1006 
BB04 
1008 
100C 
1018 
BB34 
1004 

B62E 

200C 
B9B4 
B9D5 
B9F7 
BA19 
BA2F 
BA35 
B9B4 



00004 
00005 



00083 
00006 
00B18 
00008 
0000C 
00018 
00B48 



0006BA 4110 BAB8 
0006BE 4100 B9B4 
0006C2 58F0 1030 
0006C6 05EF 
0006C8 47F0 B62E 

0006CC 957D 8000 
0006DO 4780 B52C 
0006D4 956E 8000 
0006D8 4780 B314 
0006DC 956C 8000 
0006E0 4770 B412 



00004 

00642 

OOOOC 
5000 009C8 00000 

009E9 

00A0B 

O0A2D 

00A43 

00A49 
BE9A 009C8 OOEAE 

OOACC 
009C8 
00030 



00642 



00000 



00000 



00540 
00328 



00000 



00426 



0006E4 5829 300C OOOOC 

0006E8 D781 2000 2000 00000 00000 
0006EE 45E0 B6E8 006FC 

0006F2 12FF 

0006F4 4770 B8EC 00900 

0006F8 47F0 B24C 00260 

0006FC 183E 
0006FE 1861 
000700 D703 7000 7000 00000 00000 

000706 1817 



550 

551 

552 

553 

554 

555 

556 

557+ 

558+ 

559+ 

560+ 

561+ 

562+ 

563+ 

564+ 

565+ 

566+ 

567+ 

568+ 

569 

570 * 

571 SYSOUT 
572 

573 

574 

575 

576 

577 

578 

579 

580+ 

581+ 

582+ 

583+ 

584 

585 * 

586 READFMT3 
587 

588 

589 

590 

591 

592 * 

593 

594 

595 

596 

597 

598 

599 * 

600 WRTFMT1 
601 

602 WRITE1 

603 

604+ 



LA 

L 

AH 

ST 

BCTR 

STH 

WRITE 

LR 

NI 

MVI 

LA 

STH 

LA 

ST 

ST 

STH 

L 

NI 

BALR 

B 

L 

MVC 

MVI 

MVI 

MVI 

MVI 

MVI 

TR 

PUT 

LA 

LA 

L 

BALR 

B 

CLI 

BE 

CLI 

BE 

CLI 

BNE 

L 
XC 

BAL 
LTR 
BNZ 
B 

LR 

LR 

XC 

WRITE 

LR 



PARMREG,4(PARMREG) GET ADDRESS OF DECB 

INDXREG,4(TABBASE) GET ADDRESS OF ECB LIST 

INDXREG,10(TABBASE,ODDREG) ADD INDEX TO PRTR' S PTR 

PARMREG, O(INDXREG) STORE ECB ADDR IN LIST 

ZEROREG,0 INDICATE 

ZEROREG,8(TABBASE,ODDREG) PRINTER BUSY 

(PARMREG) ,TS,DD3270, (LOOPREG) ,131, , (RLNREG) , MF=E 

1,PARMREG LOAD DECB ADDRESS 

4(1), 4 

5(1), 14 

14,131(0,0) OOOB 

14,6(0,1) STORE LENGTH OOOB 

14.DD3270 

14,8(0,1) STORE DCB ADDRESS 

LOOPREG, 12 (0,1) STORE AREA ADDR OOOB 

RLNREG, 24 (0,1) STORE LINE NUMBER 

15,DD3270+48 LOAD RDWRT ROUT ADDR 

4(1), X'FT A38557 

14,15 A38557 

RSTRKYBD 

INDXREG,12(TABBASE,EVENREG) GET ADDR OF DATA AREA 
SYSOUTBF(130) ,0(INDXREG) MOVE DATA TO PRINT BUFFER 



SYSOUTBF+33,C',' 
SYSOUTBF+67,C, ' 
SYSOUTBF+101,C ,' 
SYSOUTBF+123.C ' 
SYSOUTBF+129.C. 



MOVE IN 

FIELD DELIMITERS 
FOR LINE 

TO BE 

PRINTED 

SYSOUTBFQ30) ,FLDXLATE TRANSLATE TO VALIDATE DATA 
SYSPRINT.SYSOUTBF WRITE TO SYSOUT 
l.SYSPRINT LOAD PARAMETER RES 1 
0,SYSOUTBF LOAD PARAMETER RES 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
RSTRKYBD 



O(BUFREG) ,X'7D' 

WRTRSPNS 

0(BUFREG),X"6E' 

ENDMSG 

0(BUFREG),X'6C 

CNTRLMSG 



ENTER KEY 

YES, WRITE RESPONSE 

PA2 KEY 

YES, END TERMINAL 

PA1 KEY 

NO, WRITE CONTROL OPTIONS 



MSG 



EVENREG,12(TABBASE,ODDREG) GET ADDR OF DATA AREA 
0(130,EVENREG),0(EVENRES) CLEAR IT 
RETNREG.WRTFMT1 WRITE OUT FIRST FORMAT 
EPREG.EPREG WRITE SUCCESSFUL 

ERRABEND NO, END 

READ 

ODDREG.RETNREG SAVE RETURN ADDRESS 

RLNREG, PARMREG SAVE RLN 

0(4,DECBREG),0(DECBREG) CLEAR ECB 

(DECBREG) ,TS,DD3270,FORMAT1,FMT1SZ,, (RLNRE3) , MF=E 

l.DECBREG LOAD DECB ADDRESS 
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LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 
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000708 
00070C 
000710 
000714 
000716 
00071C 
000720 
000724 
000728 
00072C 
000730 
000734 
000738 
00073A 
00073C 

000740 
000744 
000748 
00074A 
00074E 
000752 
000756 
00075A 
00075E 



9404 1004 00004 

920E 1005 00005 

47F0 B702 

00AE 

D201 1006 B700 00006 

41E0 BB04 

50E0 1008 

41E0 BB4E 

50E0 100C 

4060 1018 

58F0 BB34 

94F7 1004 00004 

05EF 

12FF 

4770 B8EC 



4110 
4100 
0A01 
957F 
4780 
9544 
4780 
41F0 
07F3 



7000 
0001 

7000 
B74C 
7000 
B6EC 
B746 



000760 4120 0001 
000764 8B60 0003 
000768 4029 6008 
00076C 8A60 0003 
000770 1BFF 
000772 07F3 



000774 


1B33 




000776 


4332 


0019 


00077A 


1863 




00077C 


8B30 


0003 


000780 


5B20 


BABO 


000784 


4133 


9008 


000788 


5859 


0004 


00078C 


4A53 


0002 


000790 


957F 


2004 


000794 


4780 


B790 


000798 


9544 


2004 


00079C 


4780 


B8E2 


0007A0 


47F0 


B8EC 



00716 

00714 
00B18 
00008 
00B62 
0000C 
00018 
00B48 



00900 



00000 



00000 
00001 



00760 



00000 



00004 



00004 



00700 
0075A 



00001 
00003 
00008 
00003 



00019 

00003 
00AC4 
00008 
00004 
00002 

007A4 

008F6 
00900 



0007A4 D203 3004 2000 00004 00000 

0007AA 1812 

0007AC 4100 00B8 000B8 



0007B0 4111 0000 
0007B4 OAOA 
0007B6 5823 0004 
0007BA 1222 



00000 
00004 



605+ 

606+ 

607+ 

608+ 

609+ 

610+ 

611+ 

612+ 

613+ 

614+ 

615+ 

616+ 

617+ 

618 

619 

620 

621+ 

622+ 

623+ 

624 

625 

626 

627 

628 

629 

630 * 

631 FMT1CD 
632 

633 
634 
635 
636 

637 * 

638 PRNTREND 
639 

640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 

651 * 

652 PRNTRNXT 
653 

654 

655 

656+ 

657+ 

658 

659 



NI 

MVI 

B 

DC 

MVC 

LA 

ST 

LA 

ST 

STH 

L 

NI 

BALR 

LTR 

BNZ 

WAIT 

LA 

LA 

SVC 

CLI 

BE 

CLI 

BE 

LA 

BR 

LA 

SLA 

STH 

SRA 

SR 

BR 

SR 

IC 

LR 

SLA 

S 

LA 

L 

AH 

CLI 

BE 

CLI 

BE 

B 



4(1), 4 

5(1), 14 

*+6 000B 

AL2(FMT1SZ) 000B 

6(2,l),*-2 MOVE IN LENGTH 000B 

14.DD3270 

14,8(0,1) STORE DCB ADDRESS 

14,F0RMAT1 00 OB 

14,12(0,1) STORE AREA ADDR 000B 

RLNREG,24(0,1) STORE LINE NUMBER 

15,DD3270+48 LOAD RDWRT ROUT ADDR 

4(1),X*F7' A38557 

14,15 A38557 

EPREG, EPREG END IF RC 

ERRABEND NON-ZERO 

ECB=(DECBREG) WAIT FOR OPERATION TO END 

1,0(0,DECBREG) CLEAR HIGH BYTE OF REG 

0,1(0,0) COUNT OMITTED, 1 USED 

1 LINK TO WAIT ROUTINE 



0(DECBREG),X*7F' 

FMT1CD 

0(DECBREG0,X'44' 

WRITEl 

EPREG,* 

ODDREG 



SATISFACTORY COMPLETION 

YES, STORE FORMAT CODE IN ENTR3T 

INTERCEPT 

YES, RETRY OPERATION 

SET NON-ZERO RETURN CODE 

AND RETURN TO CALLER 



EVENREG, 1 GET FORMAT ID 

RLNREG,3 CONVERT RLN TO TABLE INDEX 

EVENREG, 8(TABBASE,RLNRES) STORE ID IN TABLE 

RLNREG,3 RESTORE RLN REGISTER TO RLN 

EPREG, EPREG SET RETURN CODE =0 

ODDREG RETURN TO CALLER 

ODDREG, ODDREG 

ODDREG, RLN(EVENREG) GET RLN OF ENDING PRINTER 

RLNREG, ODDREG SAVE RLN 

ODDREG, 3 CONVERT RLN TO TABLE INDEX 

EVENREG, FOUR GET BEGIN OF PRINTER RB 

ODDREG, 8 (ODDREG, TABBASE) GET ADDR OF TABLE ENTR* 

INDXREG, 4 (TABBASE) GET ADDR OF ECB LIST 

GET ADDR OF PRINTER'S ECB 

GOOD END 

YES, CLEAN UP 

INTERCEPT 

YES, RESTART OPERATION 

NO, END 



INDXREG, 2 (ODDREG) 

4 (EVENREG), X'7F« 

PRNTRNXT 

4 (EVENREG), X! 44' 

WRITEPI 

ERRABEND 



MVC 4 (4, ODDREG) ,0 (EVENREG) UPDATE LINK POINTER 

LR PARMREG, EVENREG ADDRESS OF PRINTER RB 

LA ZEROREG.184 SIZE OF RB 

FREEMAIN R,LV= (0) , A=(l) FREE BLOCK 

LA 1,0(1) CLEAR THE HIGH ORDER BYTE 

SVC 10 ISSUE FREEMAIN SVC 

L EVENREG, 4 (ODDREG) GET ADDR OF NEXT RB 

LTR EVENREG, EVENREG END OF CHAIN 
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LOC 


OBJECT CODE 


ADDR1 


ADOR2 


STMT SOURCE 


STA' 


0007BC 


4770 


B7BC 




007D0 


660 


BNZ 


0007CO 


D703 


5000 5000 


00000 


00000 


661 


xc 


0007C6 


D201 


3000 BB3C 


00000 


00B50 


662 


MVC 


0007CC 


47F0 


B288 




0029C 


663 

664 * 

665 WRZTEP 


B 
RES] 


0007D0 










666+WRITEP 


DS 


0007DO 


1817 








667+ 


LR 


0007D2 


1B00 








668+ 


SR 


0007D4 


1BFF 








669+ 


SR 


0007D6 


4301 


0019 




00019 


670+ 


IC 


0007DA 


58E1 


0008 




00008 


671+ 


L 


0007DE 


9110 


E030 


00030 




672+ 


TM 


0007E2 


4710 


B7DA 




007EE 


673+ 


BO 


0007E6 


41F0 


000C 




OOOOC 


674+IECJ0033 


LA 


0007EA 


47F0 


B880 




00894 


675+ 


B 


0007EE 










676+IECA0033 


EQU 


0007EE 


58FE 


00 2C 




0002C 


677+ 


L 


0007F2 


4 IFF 


0000 




00000 


678+ 


LA 


0007Fb 


8B00 


0002 




00002 


679+ 


SLA 


0007FA 


1AF0 








680+ 


AR 


0007FC 


58FF 


001C 




0001C 


681+ 


L 


000800 


9510 


F012 


00012 




682+ 


CLI 


000804 


4770 


B874 




00888 


683+ 


BNE 


000808 


9501 


1005 


00005 




684+ 


CLI 


00080C 


4770 


B87E 




00892 


685+ 


BNE 


000810 


9140 


1000 


00000 




686+ 


TM 


00081« 


4710 


B86C 




00880 


687+ 


BO 


000818 


1801 








688+ 


LR 


00081A 


181F 








689+ 


LR 


00081C 


41F0 


0004 




00004 


690+ 


LA 


00082Q 


0A74 








691+ 


SVC 


000822 


4110 


0004 




00004 


692+ 


LA 


000826 


19F1 








693+ 


CR 


000828 


4720 


B880 




00894 


694+ 


BH 


00082C 


40F0 


B87C 




00890 


695+ 
696+* 


STH 


000830 


581E 


001C 




0001C 


697+ 


L 


000834 


4111 


0058 




00058 


698+ 


LA 


000838 


58EE 


002C 




0002C 


699+ 


L 


00083C 


1B00 








700+ 


SR 


00083E 


430E 


0010 




00010 


701+ 
702+* 


IC 


000842 


41EE 


0020 




00020 


703+ 
704+* 


LA 


000846 


9601 


1001 


00001 




705+IECT0033 


01 


00084A 


9101 


101C 


0001C 




706+ 


TM 


00084E 


4710 


B862 




00876 


707+ 


BO 


000852 


58FE 


0000 




00000 


708+ 


L 


000856 


9120 


F006 


00006 




709+ 


TM 


00085A 


4710 


B84E 




00862 


710+ 


BO 


00085E 


94BF 


101C 


0001C 




711+ 
712+* 


NI 


0008 62 


4111 


0058 




00058 


713+IECU0033 


LA 


000866 


41EE 


0004 




00004 


714+ 


LA 
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WRITEP NO, START HEXT 

0(4,INDXREG),0(INDXREG) CLEAR ECB LIST ENTRY 
0(2,ODDREG),MIN1 MARK PRINTER AVAILABLE 
TWAIT WAIT FOR NEXT COMPLETION 

PL (DECBREG),ATTENT RESET READ INITIAL 
OH 

l.DECBREG 
0,0 
15,15 

0,25(1) GET RELATIVE LINE NUMBER FROM DECB. 
14,8(1) GET DCB ADDRESS FROM DECB. 
4 8(14),X'10 ( HAS DCB BEEN OPENED? 
IECA0033 IF SO, CONTINUE. 
15,12 IF NOT, SET RETURN CODE A28622 
IECB0033 AND EXIT. 

15,44(14) GET ADDR OF DEB 
15,0(15) CLEAR HIGH-ORDER BYTE 
0,2 MULTIPLY RLN BY 4 

15.0 USE RLN* 4 AS INDEX 

15,28(15) TO DEBUCBAD-4 AND SET UCB ADDR 
18(15), X'10" DEVICE CLASS = GRAPHICS 
IECO0033 NO, DEVICE IS NOT ANR 
5(1),X'01' IS OPERATION READ INITIAL 
IECE0033 NO, GIVE RC=0 AND EXIT 
OID.X'HO' IS THE OPERATION COMPLETE 
IECQ0033 YES, GIVE RC=4 AND EXIT 
0,1 DECB ADDR TO RES 
1,15 UCB ADDR TO REG 1 
15,4 ROUTING CODE OF 4 IN RES 15 
116 INVOKE ESR TO DO RESET 
1,4 ESTABLISH COMPARAND 

15.1 IS RC OR 4 
IECB0033 NO, EXIT WITH KC 
15.IECK0033 SAVE RETURN CODE 

1,28(14) GET IOB BASE FROM DCB 

1,88(1) GET ADDR OF FIRST IOB 

14,44(14) GET DEB ADDR FROM DCB 

0,0 

0,16(14) GET NO. OF EXTENTS FROM DEB 

AND USE AS LOOP COUNTER 
14,32(14) GET ADDR OF FIRST DEB UCB PTR 

1(1),X'01' SET RESETPL ISSUED FLAG 
28(1),X , 01' RFT IN PROGRESS 
IECW0033 YES, ADJUST RC 
15,0(14) GET ADDR OF UCB 

6 (15), x* 20* Outstanding i/o operation 

IECU0033 YES, KEEP IOB BUSY 
28(1),X , BF* TURN OFF IOB BUSY FLAG 

1,88(1) STEP TO NEXT IOB 
14,4(14) STEP TO NEXT UCB PTR 



Appendix O: Local 3270 Sample Program 362.19 



LOCAL 3270 SAMPLE PROGRAM 



PAGE 14 



LOC 


OBJECT CODE 


ADDR1 


AODR2 


STMT SOURCE 


STATEMENT FO: 


00086A 


4600 


B832 




00846 


715+ 


BCT 


0.IECT0033 LOOP IF NOT FINISHED 


00086E 


48F0 


B87C 




00890 


716+ 


LH 


15.IECK0033 RESTORE RETURN CODE 


000872 


47F0 


B880 




00894 


717+ 
718+* 


B 


IECB0033 EXIT WITH RC 


000876 


D701 


B87C B87C 


00890 


00890 


719+IECW0033 


XC 


IECK0033.IECK0033 SET RC TO ZERO 


00087C 


47F0 


B84E 




00862 


720+ 
721+ * 


B 


IECU0033 


000880 


41F0 


0004 




00004 


722+IECQ0033 


LA 


15,4 SET RETURN CODE OF 4 


000884 


47F0 


B880 




00894 


723+ 
724+* 


B 


IECB0033 AND EXIT 


000888 


41F0 


0008 




00008 


725+IECO0033 


LA 


15,8 INVALID DEVICE, SET RC = 8 


00088C 


47F0 


B880 




00894 


726+ 


B 


IECB0033 AND EXIT 


000890 


0000 








727+IECK0033 


DC 


H'O* SAVE AREA FOR WTTA 


000892 


1BFF 








728+IECE0033 


SR 


15,15 000A 


000894 










729+IECB0033 


EQU 


* 


000894 


12FF 








730 


LTR 


EPREG,EPREG RC = 


000896 


4780 


B898 




00 8 AC 


731 


BZ 


WRITEPS YES, PROCEED 


00089A 


59F0 


BAB0 




00AC4 


732 


C 


EPREG,FOUR RC = 4 


00089E 


4770 


B8EC 




00900 


733 
734 


BNE 
WAIT 


ERRABEND NO, END 

ECB=(DECBREG) WAIT FOR READ TO COMPLETE 


0008A2 


4110 


7000 




00000 


735+ 


LA 


1,0(0,DECBR£G) CLEAR HIGH BYTE OF REG 


0008A6 


4100 


0001 




00001 


736+ 


LA 


0,1(0,0) COUNT OMITTED, 1 USED 


0008AA 


0A01 








737+ 

738 * 

739 WRITEPS 


SVC 


1 LINK TO WAIT ROUTINE 


00 08 AC 


4122 


0004 




00004 


LA 


EVENREG,4(EVENREG) GET ADDR OF ECB 


00 08B0 


5025 


0000 




00000 


740 


ST 


EVENREG,0(INDXREG) STORE ADDR OF ECB IN ECB LIST 


0008B4 


4132 


0028 




00028 


741 
742 


LA 
WRITE 


ODDREG, 40 (EVENRES) GET ADDR OF PRINT BUFFER 
(EVENREG),TS,DD3270, (ODDREG) , 131, , (RLNREG) ,MF=E 


00 08B8 


1812 








743+ 


LR 


1,EVENREG LOAD DECB ADDRESS 


0008BA 


9404 


1004 


00004 




744+ 


NI 


4(1), 4 


0008BE 


920E 


1005 


CO 00 5 




745+ 


MVI 


5(1), 14 


00 08C2 


41E0 


0083 




00083 


746+ 


LA 


14,131(0,0) 000B 


0008C6 


4 0E0 


1006 




00006 


747+ 


STH 


14,6(0,1) STORE LENGTH 000B 


0008CA 


41E0 


BB04 




00B18 


748+ 


LA 


14,DD3270 


0008CE 


50E0 


1008 




00008 


749* 


ST 


14,8(0,1) STORE DCB ADDRESS 


0008D2 


5030 


100C 




0000C 


750+ 


ST 


ODDREG, 12 (0,1) STORE AREA ADDR OO0B 


0008D6 


4060 


1018 




00018 


751+ 


STH 


RLNREG, 24 (0,1) STORE LINE NUMBER 


0008DA 


58F0 


BB34 




00B48 


752+ 


L 


15.DD3270+48 LOAD RDWRT ROUT ADDR 


0008DE 


94F7 


1004 


00004 




753+ 


NI 


4(1),X'F7' A38557 


0008E2 


05EF 








754+ 


BALR 


14,15 A38557 


0008E4 


12FF 








755 


LTR 


EPREG.EPREG END IF RC 


0008E6 


4770 


B8EC 




00900 


756 


BNZ 


ERRABEND NON-ZERO 


0008EA 


9548 


7000 


00000 




757 


CLI 


0(DECBREG),X' 48' READ INITIAL ENDED BY RESETPL 


0008ES 


4780 


B24C 




00260 


758 


BE 


READ YES, REISSUE READ 


0008F2 


47F0 


B288 




0029C 


759 

760 * 

761 WRITEPI 


B 


TWAIT NO, CHECK STATUS 


0008F6 


D703 


2004 2004 


00004 


00004 


XC 


4(4,EVENREG),4(EVENREG) CLEAR ECB 


0008FC 


47F0 


B7BC 




007D0 


762 

763 * 

764 * 

765 ERRABEND 


B 
ABEND 


WRITEP RESTART WRITE 
(15), DUMP 


000900 










766+ERRABEND 


DS 


OH 


000900 


181F 








767+ 


LR 


1,15 LOAD PARAMETER REG 1 


000902 


4100 


0080 




00080 


768+ 


LA 


0,128 PICK UP DUMP/STEP CODE 


000906 


8900 


0018 




00018 


769+ 


SLL 


0,24(0) SHIFT TO HIGH BYTE 
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ooo: 
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LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 
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00090A 


1610 




00090C 


0A0D 




00090E 


1B22 




000910 


1B66 




000912 


95F0 


5000 


000916 


4740 


B94C 


00091A 


95F9 


5000 


00091E 


4720 


B968 


000922 


8920 


0008 


000926 


4325 


0000 


00092A 


4166 


0001 


00092E 


4155 


0001 


000932 


4640 


B8FE 


000936 


5960 


BAA8 


00093A 


47D0 


B932 


00093E 


5420 


BAAC 


000942 


5860 


BAA8 


000946 


5020 


BAA4 


00094A 


4130 


0004 


0009 4E 


1B36 




000950 


4133 


BAA4 


000954 


0660 




000956 


4460 


B974 


00095A 


4F10 


B9AC 


00095E 


07FE 





000960 956B 5000 
000964 4770 B968 
000968 1266 
00096A 4780 B964 
00096E 4155 0001 
000972 0640 
000974 47F0 B922 

000978 1B11 
00097A 07FE 
00097C 8920 0008 
000980 4320 BB3E 
000984 47F0 B916 



00000 



00000 



00960 

0097C 
00008 
00000 
00001 
00001 
00912 
00ABC 
00946 
0OAC0 
00 ABC 
00AB8 
00004 

00AB8 

00988 
009C0 



00000 



0097C 



00978 
00001 



00936 



00008 
00B52 
0092A 



000988 F270 B9AC 3000 009C0 00000 



00003 
00 ABC 



00098E 


4125 


0003 


000992 


5B40 


BAA8 


000996 


1B66 




000998 


9511 


2000 


00099C 


4780 


B998 


0009A0 


4166 


0001 


0009A4 


4122 


0001 


0009A8 


4640 


B984 


0009AC 


0660 




0009AE 


4460 


B9A2 


0009B2 


1852 




0009B4 


07FE 





00000 



009AC 
00001 
00001 
00998 

009B6 



770+ 

771+ 

772 GETPARM 

773 

774 GETCHAR 

775 

776 

777 

778 

779 

780 PARMLOOP 

781 

782 

783 HAVEPARM 

784 

785 

786 

787 CNVRT 

788 

789 

790 

791 

792 

793 

794 

795 * 

796 DELIM 
797 

798 

799 

800 

801 

802 

«03 * 

804 ZEROPARM 

805 

806 INVLDCHR 

807 

808 

809 * 

810 PACK 

811 * 

812 GETFIELD 
813 

814 

815 FUDLOOP 

816 

817 

818 

819 

820 MVFLD 

821 

822 

823 

824 * 



OR 

SVC 

SR 

SR 

CLI 

BL 

CLI 

BH 

SLL 

IC 

LA 

LA 

BCT 

C 

BNH 

N 

L 

ST 

LA 

SR 

LA 

BCTR 

EX 

CVB 

BR 

CLI 

BNE 

LTR 

BZ 

LA 

BCTR 

B 

SR 
BR 
SLL 
IC 

B 



1,0 OR IN WITH COMPCODE 
13 LINK TO ABEND ROUTINE 



EVENREG, EVENREG 
CNTREG, CNTREG 
(INDXREG), CO' 
DELIM 

0(INDXREG),C'9' 
INVLDCHR 
EVENREG, 8 
EVENREG, (INDXREG) 
CNTREG.KCNTRFS) 
INDXREG, 1 (INDXREG) 
LOOPREG, GETCHAR 
CNTREG, THREE 
CNVRT 

EVENREG, SIXFS 
CNTREG, THREE 
EVENREG, RAWPARM 
ODDREG,4 
ODDREG, CNTREG 



CLEAR RE3ISTER 



CHARACTER A NUMBER 
NO, CHECK FOR DELIMITER 
MAYBE 

NO, INVALID CHARACTER 
CLEAR LOW CHARACTER 
GET CHARACTER 
I NCR LENGTH 
INCR STRING POINTER 
GET NEXT CHARACTER, IF ANY LEFT 
CtlECK PARM LENGTH 
BR iF VALID 
REDUCF TO THREE BYTES 
SET COUNT TO THREE 
STORE RAW PARM VALUE 
LENGTH OF RAWPARM 
SUBT LENGTH OF PARM 6 
ODDREG, RAWPARM( ODDREG) GET Al>DR OF FIRST CHARACTER 
CNTREG, DECR COUNT FOR EXECUTE 

CNTREG, PACK PACK PARM 
PARMREG, PCKDPARM 6 CONVERT TO BINARY 
RETNREG RETURN TO CALLER 



(INDXREG) ,C ,' 

INVLDCHR 

CNTREG, CNTREG 

ZEROPARM 

INDXREG, 1 (INDXREG) 

LOOPREG, 

HAVEPARM 

PARMREG, PARMREG 
RETNREG 
EVENREG, 8 
EVENREG, CO 
PARMLOOP 



COMMA 

NO, TREAT AS INVALID 

PARM OMITTED 

YES, SET IT TO ZERO 

INCR STRING POINTER 

DECR LOOP COUNTER 

BR TO CONVERT PARM 

SET PARM = 

RETURN 

CLEAR LOW CHARACTER 

SUBSTITUTE CO* FOR INVALID CHAR 

BR TO ADJUST COUNTERS 6 POINTERS 



PACK PCKDPARM(8) ,0(0, ODDREG) 



LA EVENREG, 3 (INDXREG) 

S LOOPREG, THREE 

SR CNTREG, CNTREG 

CLI (EVENREG), X' 11* 

BE MVFLD 

LA CNTREG, 1 (CNTREG) 

LA EVENREG, 1 (EVENREG) 

BCT LOOPREG, FNDLOOP 

BCTR CNTREG, 

EX CNTREG, FLDMOVE 

LR INDXREG, EVENREG 

BR RETNREG 



INCR TO FIRST DATA BYTE OF FIELD 

CORRECT LENGTH FOR SBA SEQUENCE 

SET COUNT = ZERO 

BYTE = SBA ORDER 

YES, MOVE FIELD 

INCR FIELD SIZE 

INCR TO NEXT DATA BYTE 

LOOP IF MORE DATA 

ADJUST COUNT FOR EXECUTE 

MOVE FIELD INTO DATA AREA 

GET START OF NEXT FI^LD 

RETURN 



Appendix O: Local 3270 Sample Program 362.21 



LOCAL 3270 SAMPLE PROGRAM 
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LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



0009B6 D200 3000 5003 0000Q 00003 



0O09C0 
0009C0 
0009C8 
0009C8 
OOOAttC 
000A9ft 
000A98 
000A9C 
OOOAAO 
OOOAAft 
000AA8 
000AAC 
00OAB0 
OOOABft 
000AB8 
OOOABC 
000AC0 
OOOACft 
000AC8 



FOFOFOFOFOFOFOFO 



OOOOOOFF 
00000001 
00000000 



00000100 
00000082 



00000001 

00000003 
OOFFFFFF 
00000004 
00000000 



825 FLDMOVE MVC (0,ODDREG) ,3 (INDXREG) MOVE FIELD FROM BUFFER 

826 * TO DATA AREA 

827 DS OD 

828 PCKDPARM DC SCO' 

829 SYSOOTBF DS OD 

830 DS CL130 

831 SAVE DS 18F 

832 MAXRLN DC F*255* 

833 NODVCS DC F*l* 
83ft NOPTRS DC F'O* 

835 TABSIZE DS F 

836 F256 DC F'256* 

837 DATASZ DC F*130' 

838 DATBLKSZ DS F 

839 DATBLKAD DS F 
8«0 READRLN DC F*l* 
8ftl RAWPARM DS IF 
8«2 THREE DC F'3' 

8<»3 SIXFS DC XLft'OOFFFFFF* 

8ftft FOUR DC F'ft* 

8ft5 ZEROWRD DC F'O' 

8ft6 SYSPRINT DCB DDNAME=SYSPRINT,DSORG=PS,DEVD=DA f MACRF=(PM) ,RECFM=F,LREC* 
L=130,BLKSIZE=130 



PACKED PARM AREA 
SYSOUT PRINT BUFFER 

SAVE AREA 

MAXIMUM RLN 

NO. OF DEVICES (DEFAULT =1) 

NO. OF PRINTERS (DEFAULT = 0) 

SIZE OF CONTROL TABLE 

SIZE OF DISPLAY TERM DATA AREA 
SIZE OF DATA AREA CORE BLOCK 
&DDR OF DATA AREA CORE BLOCK 
RLN TO BE USED FOR READ INITIALS 
ZONED PARM AREA 



000ACC 



8ft8+* 
8ft9+* 
850+SYSPRINT DC 

852 + * 



DATA CONTROL BLOCK 
OF'O* ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 



000ACC 0000000000000000 
000ADC 00000000 



85ft + 
855+ 



DC 
DC 



BL16'0* FDAD,DVTBL 
A(0) KEYLE,DEVT,TRBBlL 



362.22 OS BTAM SRL 



857+* 



COMMON ACCESS METHOD INTERFACE 



000AE0 00 
00OAE1 000001 
OOOAEft 0000 
000AE6 ft 000 
000AE8 00000001 



859+ 
860+ 
861+ 
862+ 
863+ 



DC ALKO) BUFNO 

DC AL3(1) BUFCB 

DC AL2(0) BUFL 

DC BL2' 0100000000000000* DSORG 

DC A(l) IOBAD 



865+* 



FOUNDATION EXTENSION 



OOOAEC 00 
000AED 000001 
000AF0 80 
000AF1 000000 



867+ 
868+ 
869+ 
870+ 



DC BL1* 00000000" BFTEK,BFLN,HIARCHY 

DC AL3(1) EODAD 

DC BLl'lOOOOOOO* RECFM 

DC AL3(0) EXLST 



872+* 



FOUNDATION BLOCK 



OOOAFft E2E8E2D7D9C9D5E3 
000AFC 02 
000AFD 00 
000AFE 0050 



874+ 
875+ 
876+ 
877+ 



DC CL8 * SYSPRINT* DDNAME 

DC BL1' 00000010* OFLGS 

DC BL1' 00000000* IFLG 

DC BL2* 0000000001010000* MACR 



LOCAL 3270 SAMPLE PROGRAM 
LOC OBJECT CODE ADOR1 AODR2 



STMT SOURCE STATEMENT 



PAGE 17 
F01OCT71 3/22/72 



000B00 


00 


OO0BO1 


000001 


000B04 


00000001 


000B08 


0000 


000B0A 


0082 


000B0C 


00000000 


000B10 


00000001 


ooobiu 


00 


000B1S 


000001 


000B18 


00000001 


000B1C 


0000 


0OOB1E 


0082 


000B20 


00 


000B21 


000001 


000B24 


00000000 


OO0B28 


00000001 



000B18 




000B18 




000B2C 




000B2C 


00 


000B2D 


000001 


000B30 


0000 


000B32 


1000 


0OOB34 


00000001 


000B38 


00 


000B39 


10 


000B3A 


FF 


000B3B 


00 


000B3C 


00 


0OOB3D 


000000 



000B40 C4C4F3F2F7F04040 
OO0B48 02 
000B49 00 
000B4A 2020 



BSAM-BPAM-aSAM INTERFACE 



881+ 


DC 


882+ 


DC 


883+ 


DC 


884+ 


DC 


885+ 


DC 


886+ 


DC 


887+ 


DC 


888+ 


DC 


889+ 


DC 


891+* 




893+ 


DC 


894+ 


DC 


895+ 


DC 


896+ 


DC 


897+ 


DC 


898+ 


DC 


899+ 


DC 


900 DD3270 


DCB 


902+* 




903+* 




904+ 


ORG 


905+DD3270 


DS 


906+ 


ORG 


908+* 




910+ 


DC 


911+ 


DC 


912+ 


DC 


913+ 


DC 


914+ 


DC 


916+* 




918+ 


DC 


919+ 


DC 


920+ 


DC 


921+ 


DC 


922+ 


DC 


923+ 


DC 


925+* 




927+ 


DC 


928+ 


DC 


929+ 


DC 


930+ 


DC 



932+* 



BLI'00000000' RER1 

AL3(1) CHECK, GERR, PERR 

A(l) SYNAD 

H'O* CIND1, CIND2 

AL2Q30) BLKSIZE 

F'O' WCPO, WCPL, OFFSR, OFFSM 

A(l) IOBA 

ALl(O) NCP 

AL3(1) EOBR, EOBAD 

QSAM INTERFACE 

A(l) RECAD 

H'O' QSWS 

AL2(130) LRECL 

BL1* 00000000' EROPT 

AL3(1) CNTRL 

F'O' PRECL 

A(l) EOB 

DDNAME=DD3270 ,DSORG=CX, MACRF= (R, W) , EROPT=T 



DATA CONTROL BLOCK 

*-20 TO ELIMINATE UNUSED SPACE 
OF'O' ORIGIN ON WORD BOUNDARY 
*+20 TO ORIGIN GENERATION 

COMMON ACCESS METHOD INTERFACE 

ALKO) BUFNO 

AL3(1) BUFCB 

AL2(0) BUFL 

BL2' 0001000000000000' DSORG 

A(l) IOBAD 

FOUNDATION EXTENSION 

BLI'00000000' BFTEK.BFLN, STARCHY 
BLl'00010000' BTAM EROPT CODE 
ALK255) BTAM BUFFER COUNT 
ALKO) 

BLl'00000000' RECFM 
AL3(0) EXLST 

FOUNDATION BLOCK 

CL8'DD3270' DDNAME 

BL1' 00000010' OFLGS 

BLI'00000000' IFLG 

BL2' 0010000000100000' MACR 

BTAM INTERFACE 
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LOC OBJECT CODE 



ADDRl ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



000B4C 
000B50 
000B52 
000B53 
000356 
000B59 
000B5C 
0O0B5F 
000B62 
000B66 
000B81 
000B84 
000B89 
000B91 
000B96 
000B9O 
000BA2 
000BA9 
000BAP 
000BB6 
000BBA 



00000000 

FFFF 

FO 

11C1D6 

11C17E 

11C2E6 

11C34F 

11C36A 

C7114040 

C5D5E3C5D940C4C1 

11C150 

D5C1D4C57A 

1D401311C1F71D60 

C1C4C4D97A 

1D4011C25F1D60 

C3C9E3E87& 

1D4011C3C71D60 

E2E3C1E3C57A 

1D4011C3E41D60 

E9C9D77A 

1D5011C36F1D6011 



000BC4 C5D5E3C5D940D2C5 

000BDA 11C5E8 

000BDD D7C1F240D2C5E87A 

000BF2 11C650 

000BF5 C3D3C5C1D940D2C5 

0000AE 



000C10 


C7114040 


000C14 


C4C1E3C140C7C9E5 


000C2D 


11C150 


000C30 


D5C1D4C57A 


000C35 


1D4013 


000028 




000C38 


0000000000000000 


000C59 


1D60 


000C5B 


C1C4C4D97A 


000C60 


1D40 


000052 




000C62 


0000000000000000 


000C83 


1D60 


000C85 


C3C9E3E87A 


000C8A 


1D40 


00007C 




000C8C 


0000000000000000 


000CAD 


1D60 


OOOCAF 


E2E3C1E3C57A 


00OCB5 


1D40 


0000A7 




000CB7 


0000000000000000 


OOOCCC 


1D60 


OOOCCE 


E9C9D77A 


000CD2 


1D50 


0000C4 





934+ 

935 MINI 

936 CO 

937 FLD1 

938 FLD2 

939 FLD3 

940 FLD4 

941 FLD5 

942 FORMAT1 
943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 * 

956 

957 

958 

959 

960 

961 FMT1SZ 

962 * 

963 FORMAT2 
964 

965 

966 

967 

968 FMT2FLD1 

969 

970 

971 

972 

973 FMT2FLD2 

974 

975 

976 

977 

978 FMT2FLD3 

979 

980 

981 

982 

983 FMT2FLD4 

984 

985 

986 

987 

988 FMT2FLD5 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
EQU 

DC 

DC 

DC 

DC 

DC 

EQD 

DC 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

DC 

EQU 



F'O' 

H'-l' 

CO' 

XL3'11C1D6' 

XL3'11C17E' 

XL3'11C2E6' 

XL3 , 11C34F' 

XL3'11C36A' 

X'C7114040' 



FREE PRINTER FORMAT ID 

SBA SEQ OF FIRST FIELD ( SB A =86) 
SBA SE2 OF SECOND FIELD ( SBA =126) 
SBA SEQ OF THIRD FIELD ( SBA =166) 
SBA SEQ OF FOURTH FIELD (SBA =207) 
SBA SEQ OF FIFTH FIELD ( SBA =234) 
WCC, SBA = 



CENTER DATA REQUESTED BELOW:' 

X'llClSO' SBA =80 

C'NAME:' 

X'1D401311C1F71D60' SF = UNPROT, IC, SBA=119, SF=PROT 

C ' ADDR : ' 

X'1D4011C25F1D60' 

C'CITY:' 

X'1D4011C3C71D60' 

C STATE:' 

X'1D4011C3E41D60' 

CZIP:' 

X'1D5011C36F1D6011C540' 

SBA= 
CENTER KEY: ENTER DATA;' 
X'11C5E8* SBA = 

CPA2 KEY: END PROGRAM;' 
X'11C650' SBA =4 00 

CCLEAR KEY: CONTROL OPTIONS.' 
♦-FORMAT1 



SF = UNPROT, SBA = 159, SF = PROT 
SF = UNPROT, SBA=199, SF=PROT 
SF = UNPROT, SBA=228, SF=PROT 



SF=UNPROT, SBA=239, SF=PROT, 
320 

360 



X'C7114040' 

CDATA GIVEN 

X'11C150* 

C'NAME:' 

X'1D4013' 

♦-FORMAT2 

XL33'0' 

X'1D60' 

CADDR:' 

X'1D40' 

♦-FORMAT2 

XL33-'0* 

X'1D60' 

C'CITY:' 

X'1D40« 

*-FORMAT2 

XL33'0' 

X'1D60* 

C* STATE: ' 

X'1D40' 

*-FORMAT2 

XL21'0' 

X'1D60' 

CZIP:' 

X'1D50' 

♦-FORMAT2 



WCC, SBA = 
BELOW ENTERED: ' 
SBA =80 

SF=UNPROT, IC 

DATA FIELD 1 
SF = PROT 

SF= UNPROT 



DATA FIELD 2 
SF = PROT 



SF = UNPROT 



DATA FIELD 3 
SF = PROT 



SF = UNPROT 



SF = PROT 

SF = UNPROT, NUM ONLY 



362.24 OS BTAM SRL 



LOCAL 3270 SAMPLE PROGRAM 
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LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F010CT71 3/22/72 



00OCD4 
000CD9 
000CDE 
000CF5 
000CF8 
000D0C 
000D0F 
000D24 
000D27 
000132 

000D42 
000D47 
0OOD4F 
000D52 
000D71 
000D74 
000D8D 
000D90 
000DA5 



0000000000 

1D6011C540 

C5D5E3C5D940D2C5 

11C5E8 

D7C1F140D2C5E87A 

11C650 

D7C1F240D2C5E87A 

11C6F8 

C3D3C5C1D940D2C5 



C711404013 

E7E7E8E8F3C3E4E4 

11C150 

C5D5E3C5D940D2C5 

11C1F8 

D7C1F140D2C5E87A 

11C260 

D7C1F240D2C5E87A 

11C3F0 



000DA8 E3D640D9C5D8E4C5 
000DF9 E7E77EE3C5E2E340 
0OOE2O 40C3E4E47EC1C4C4 
000E3D 11C6D1 

000E40 E3C8C5D540C8C9E3 
000148 

000E8A C711C17D 

000E8E D3D6C3C1D340F3F2 

000024 



0O0EAE 
000EBE 
000ECE 
000EDE 
000EEE 
000EFE 
OOOFOE 
0OOF1E 
000F2E 
000F3E 
000F4E 
0OOF5E 
000F6E 
000F7E 
00OF8E 
000F9E 



4040404040404040 
4040404040404040 
4040404040404040 
4040404040404040 
4040404040404040 
5040404040404040 
6061404040404040 
4040404040404040 
40C1C2C3C4C5C6C7 
40D1D2D3D4D5D6D7 
4040E2E3E4E5E6E7 
4040404040404040 
40C1C2C3C4C5C6C7 
40D1D2D3D4D5D6D7 
4 04 0E2E3E4E5E6E7 
F0F1F2F3F4F5F6F7 



989 
990 
991 
992 
993 
994 
995 
996 
997 

998 FMT2SZ 

999 * 

1000 F0RMAT3 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
1013 



1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 



FMT3SZ 



F0RMAT4 



FMT4SZ 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
EQU 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 

EQO 

DC 
DC 
EQU 



FLDXLATE DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

END 



XLS'O' 

X , 1D6011C540* SF = PROT, SBA = 320 

CENTER KEY: UPDATE DATA;' 

X'11C5E8' SBA =360 

C'PAl KEY: PRINT DATA;' 

X'11C650" SBA = 400 

CPA2 KEY: END PROGRAM;' 

X'11C6F8' SBA =440 

C CLEAR KEY: CONTROL OPTIONS.' 

♦-FORMAT2 

X'C711404013' WCC, SBA =0, IC 

CXXYY3CUU' 

X'llClSO' SBA =80 

CENTER KEY: RESUME AND CONTINUE;' 



X'11C1F8' 



SBA = 120 



C'PAl KEY: BEGIN NEW ENTRY;' 

X'11C260' SBA = 160 

CPA2 KEY: END PROGRAM;' 

X"11C3F0' SBA =240 

C'TO REQUEST BTAM OLT ~ ENTER REQUEST FOR TEST MESSAGE * 

OVER SAMPLE FORMAT ABOVE: ' 

CXX=TEST NO. (23-28) YY=REPEATS (01-99)' 

C CUU=ADDRESS OF TARGET DEVICE" 

X'11C6D1» SBA =4 01 

CTHEN HIT ERASE EOF AND THEN TEST REQ. USE CLEAR KE5f T* 

RESUME AFTER TEST. ' 

♦-FORMAT3 

X'C711C17D' WCC, SBA - 125 

C LOCAL 3270 SAMPLE PROGRAM ENDED.' 
♦-FORMAT4 



0123456789ABCDEF 



-v<(+|' 

:#a"=« 



66 

-/ 

ABCDEFGHI 

JKLMNOPQR 

STUVWXYZ 



ABCDEFGHI ' 

JKLMNOPQR ' 

STUVWXYZ ' 

0123456789 ' 

0123456789ABCDEF 



Appendix 0: Local 3270 Sample Program 362.25 



POS.ID REL.ID FLAGS ADDRESS 



01 
01 
01 
01 



01 
01 
01 
01 



08 
08 
08 
08 



0001B1 
0001B5 
0003E5 
0003E9 



RELOCATION DICTIONARY 



PAGE 1 
3/22/72 



CROSS-REFERENCE 



LEN VALUE DEFN 



REFERENCES 



PAGE 1 
3/22/72 



BASEREG 


00001 


00000B 


00042 


0057 


0058 


0059 


























BASEREG2 


00001 


OOOOOA 


00041 


0058 


0059 


0060 


0060 
























BUFREG 


00001 


000008 


00039 


0205 
0586 


0247 
0588 


0298 
0590 


0389 


0426 


0429 


0477 


0478 


0483 


0484 


0485 


0486 


0487 


0498 


0515 


CLRLOOP 


00004 


0000B8 


00113 


0118 






























CLRMOVE 


00006 


0000E0 


00125 


0122 






























CLR1 


00004 


00041E 


00389 


0299 






























CtfTREG 


00001 


000006 


00034 


0035 


0166 


0166 


0172 


0185 


0226 


0231 


0231 


0234 


0235 


0288 


0289 


0290 


0773 


0773 










0780 


0780 


0783 


0786 


0789 


0791 


0792 


0798 


0798 


0814 


0814 


0817 


0817 


0820 


0821 


CNTRLMSG 


00002 


000426 


00393 


0591 






























CNVRT 


00004 


000946 


00787 


0784 






























COUNT 


00001 


000012 


00048 


0431 






























CO 


00001 


000B52 


00936 


0807 






























DATASZ 


00004 


000AA8 


00837 


0157 


0174 




























DATBLKAD 


00004 


00OAB0 


00839 


0163 


0369 




























DATBLKSZ 


00004 


000AAC 


00838 


0159 


0370 




























DD3270 


00004 


0OOB18 


00905 


0193 
0748 


0245 
0752 


0249 


0308 


0338 


0343 


0367 


0406 


0411 


0496 


0500 


0562 


0566 


0610 


0615 


DECBREG 


00001 


000007 


00037 


0204 


0238 


0238 


0240 


0330 


0330 


0332 


0349 


0352 


0354 


0398 


0398 


0400 


0417 


0420 










0422 


0488 


0488 


0490 


0506 


0509 


0511 


0602 


0602 


0604 


0621 


0624 


0626 


0667 


0735 










0757 






























DEFAULTS 


00004 


000068 


00089 


0069 






























DELIM 


00004 


000960 


00796 


0775 






























DFLTNO 


00002 


000052 


00079 


0073 


0075 




























DFLTPTR 


00004 


000068 


00090 


0080 


0084 




























DFLTRLN 


00002 


000128 


00148 


0133 






























DSPLY1 


00004 


00025C 


00235 


0230 






























ENDLIST 


00002 


0000F2 


00132 


0136 


0138 




























ENDMSG 


00002 


000328 


00302 


0589 






























ENT1 


00004 


000492 


00426 


0390 






























EPREG 


00001 


00000F 


00045 


0209 
0618 


0213 
0628 


0214 
0635 


0214 
0635 


0252 
0730 


0252 
0730 


0346 
0732 


0346 
0755 


0414 
0755 


0414 


0503 


0503 


0596 


0596 


0618 


ERRABEND 


00002 


000900 


00766 


0253 


0284 


0291 


0347 


0356 


0415 


0424 


0504 


0513 


0597 


0619 


0650 


0733 


0756 




EVENREG 


00001 


000002 


00030 


0062 


0063 


0064 


0087 


0092 


0095 


0103 


0110 


0112 


0115 


0115 


0116 


0116 


0125 


0125 










0219 


0220 


0220 


0221 


0274 


0279 


0281 


0283 


0285 


0304 


0305 


0359 


0360 


0385 


0396 










0397 


0431 


0480 


0481 


0517 


0518 


0519 


0530 


0545 


0571 


0593 


0594 


0594 


0631 


0633 










0639 


0642 


0646 


0648 


0652 


0653 


0658 


0659 


0659 


0739 


0739 


0740 


0741 


0743 


0761 










0761 


0772 


0772 


0778 


0779 


0785 


0787 


0806 


0807 


0812 


0815 


0818 


0818 


0822 




FINDFRST 


00006 


000242 


00229 


0233 






























FININIT 


00004 


000136 


00154 


0131 


0149 




























FLDMOVE 


00006 


0009B6 


00825 


0821 






























FLDXLATE 


00016 


OOOEAE 


01022 


0578 






























FLD1 


00003 


000B53 


00937 


0436 






























FLD2 


00003 


000B56 


00938 


0444 






























FLD2CHK 


00004 


0004CE 


00443 


0437 






























FLD3 


00003 


000B59 


00939 


0452 






























FLD3CHK 


00004 


0004EC 


00451 


0445 






























FLD4 


00003 


000B5C 


00940 


0460 






























FLD4CHK 


00004 


00050A 


00459 


0453 






























FLD5 


00003 


000B5F 


00941 


0468 






























FLD5CHK 


00004 


000528 


00467 


0461 






























FMT1CD 


00004 


000760 


00631 


0625 






























FMT1SZ 


00001 


0000AE 


00961 


0608 






























FMT2FLD1 


00001 


000028 


00968 


0483 






























FMT2FLD2 


00001 


000052 


00973 


0484 































362.26 OS BTAM SRL 



CROSS-REFERENCE 



SYMBOL 


LEN 


VALUE 


DEFN 


REFE 


RENCES 


























3/22/ 


FMT2FLD3 


00001 


00007C 


00978 


0485 






























FMT2FLD4 


00001 


0000A7 


00983 


0486 






























FMT2FLD5 


00001 


0000C4 


00988 


0487 






























FMT2SZ 


00001 


000132 


00998 


0478 


0494 




























FMT3SZ 


00001 


000148 


01014 


0404 






























FMT4SZ 


00001 


000024 


01018 


0336 






























FNDLOOP 


00004 


000998 


00815 


0819 






























FORMAT1 


00004 


000B62 


00942 


0612 


0961 




























FORMAT 2 


00004 


000C10 


00963 


0477 


0478 


0968 


0973 


0978 


0983 


0988 


0998 
















FORMAT3 


00005 


000D42 


01000 


0408 


1014 




























FORMAT4 


00004 


000E8A 


01016 


0340 


1018 




























FOUR 


00004 


000AC4 


00844 


0642 


0732 




























F2 56 


00004 


0O0AA4 


00836 


0113 


0117 




























GETCHAR 


00004 


000912 


00774 


0782 






























GETFIELD 


00004 


00098E 


00812 


0439 


0447 


0455 


0463 


0471 






















GETPARM 


00002 


00090E 


00772 


0071 


0082 


0134 


























GETPTRS 


00002 


0000E6 


00128 


0119 


0123 




























GETTAB 


00004 


000068 


00087 


0089 


0090 




























HAVEPARM 


00004 


000936 


00783 


0802 






























IECA0008 


00001 


0002A0 


00257 


0273 






























IECA0010 


00004 


000376 


00327 


0314 


0320 




























IECA0033 


00001 


0007EE 


00676 


0673 






























IECB0008 


00004 


0002A6 


00260 


0266 






























IECB0010 


00001 


00037A 


00328 


0326 






























IECB0033 


00001 


000894 


00729 


0675 


0694 


0717 


0723 


0726 






















IECC0008 


00004 


0002D6 


00274 


0262 






























IECD0008 


00002 


0002C2 


00267 


0264 






























IECE0033 


00002 


000892 


00728 


0685 






























IECO0033 


00004 


0007E6 


00674 
































IECK0033 


00002 


000890 


00727 


0695 


0716 


0719 


0719 
























IECO0033 


00004 


000888 


00725 


0683 






























IECQ0633 


00004 


000880 


00722 


0687 






























IECT0033 


00004 


000846 


00705 


0715 




































ftftll S 


mi A 


t\T>n 




























IECW0033 


00006 


000876 


00719 


0707 






























IHB0005A 


00002 


0001E6 


00201 


0197 






























INCRPTRS 


00004 


00017C 


00175 


0186 






























ISDXREG 


00001 


000005 


00033 


0070 


0164 


0171 


0171 


0173 


0174 


0179 


0180 


0181 


0206 


0210 


0216 


0216 


0223 


0223 










0227 


0229 


0232 


0232 


0429 


0436 


0444 


0452 


0460 


0468 


0530 


0532 


0542 


0543 


0551 










0552 


0553 


0571 


0572 


0644 


0645 


0661 


0661 


0740 


0774 


0776 


0779 


0781 


0781 


0796 










0800 


0800 


0812 


0822 


0825 






















INDXREG2 


00001 


000008 


00038 


0129 


0129 


0142 


0143 


0143 


0165 


0169 


0172 


0173 


0175 


0175 










IHI1LOOP 


00006 


000160 


00169 


0177 






























INITPTR 


00004 


00010A 


00139 


0151 






























INVLDCHR 


00004 


00097C 


00806 


0777 


0797 




























IOINIT 


00004 


0001AC 


00189 


0184 






























IOLOOP 


00004 


0001FC 


00209 


0224 






























IOLPCrtT 


00004 


00022A 


00222 


0217 






























LASTMOVE 


00002 


0000D6 


00121 


0114 






























LOOPREG 


00001 


000004 


00032 


0067 


0068 


0068 


0078 


0078 


0132 


0132 


0156 


0177 


0203 


0224 


0228 


0233 


0430 


0431 










0432 


0433 


0433 


0440 


0440 


0448 


0448 


0456 


0456 


0464 


04.64 


0529 


0531 


0532 


0533 










0534 


0535 


0536 


0537 


0564 


0782 


0801 


0813 


0819 














LOOPREG2 


00001 


000007 


00036 


0128 


0128 


0130 


0144 


0144 


0148 


0148 


0167 


0176 


0176 


0185 










MAXELL* 


00004 


000A94 


00832 


0074 






























MINI 


00002 


000B50 


00935 


0141 


0169 


0210 


0229 


0540 


0662 





















Appendix 0: Local 3270 Sample Program 362.27 



CROSS-REFERENCE 



SYMBOL 


LEN 


VALUE 


DEFN 


REFERENCES 


























3/22/ 


MVFLD 


00002 


0009AC 


00820 


0816 






























NODVCS 


00004 


000A98 


00833 


0076 


0083 


0087 


0101 


0137 


0154 


0203 


0228 
















NOPTRS 


00004 


000A9C 


00834 


0085 


0093 


0130 


0155 


0179 






















ODDREG 


00001 


000003 


00031 


0066 


0067 


0070 


0093 


0094 


0095 


0105 


0110 


0254 


0258 


0286 


0287 


0288 


0428 


0423 










0438 


0438 


0443 


0443 


0446 


0446 


0451 


0451 


0454 


0454 


0459 


0459 


0462 


0462 


0467 










0467 


0470 


0470 


0482 


0483 


0484 


0485 


0486 


0487 


0519 


0520 


0520 


0522 


0523 


0539 










0542 


0544 


0549 


0552 


0555 


0593 


0600 


0629 


0636 


0638 


0638 


0639 


0640 


0641 


0643 










0643 


0645 


0652 


0658 


0662 


0741 


0750 


0788 


0789 


0790 


0790 


0810 


0825 






PACK 


00006 


000988 


00810 


0792 






























PARMLOOP 


00004 


00092A 


00780 


0808 






























PARMREG 


00001 


000001 


00029 


0066 


0072 


0072 


0074 


0076 


0083 


0085 


0100 


0103 


0104 


0105 


0105 


0106 


0107 


0107 










0108 


0110 


0113 


0117 


0121 


0122 


0135 


0135 


0137 


0139 


0140 


0140 


0141 


0142 


0150 










0154 


0155 


0156 


0158 


0163 


0164 


0178 


0181 


0181 


0182 


0183 


0212 


0285 


0286 


0301 










0303 


0305 


0369 


0374 


0392 


0395 


0397 


0474 


0479 


0481 


0482 


0517 


0528 


0528 


0529 










0543 


0544 


0545 


0546 


0549 


0550 


0550 


0553 


0557 


0601 


0653 


0793 


0804 


0804 




PARM2 


00002 


000052 


00078 


0079 






























PCKDPARM 


00001 


0009C0 


00828 


0793 


0810 




























POLPT 


00001 


000024 


00050 


0285 






























PRNTREND 


00002 


000774 


00638 


0280 






























PRNTRNXT 


00006 


0007A4 


00652 


0647 






























PTRINIT 


00002 


0001A6 


00185 


0170 






























PTRLOOP 


00004 


0000EA 


00130 


0145 






























QCNTSTR 


00004 


000416 


00385 


0360 






























QOIESCE 


00004 


0003D8 


00359 


0353 






























RAWPARM 


00004 


000AB8 


00841 


0787 


0790 




























READ 


00004 


000260 


00237 


0282 


0295 


0386 


0421 


0427 


0510 


0598 


0758 
















READFMTl 


00004 


000320 


00298 


0292 


0516 




























READFMT2 


00004 


0005D6 


00515 


0293 






























READFMT3 


00004 


0006CC 


00586 


0294 






























READRLN 


00004 


000AB4 


00840 


0235 


0237 




























READRTN 


00004 


00030C 


00291 


0290 






























RETNREG 


00001 


.00000E 


00044 


0071 


0082 


0134 


0213 


0439 


0447 


0455 


0463 


0471 


0595 


0600 


0794 


0805 


0823 




RLN 


00001 


000019 


00049 


0639 






























RLNREG 


00001 


000006 


00035 


0207 
0601 


0212 
0614 


0222 
0632 


0222 
0633 


0237 
0634 


0248 
0640 


0301 
0751 


0316 


0342 


0392 


0410 


0474 


0499 


0522 


0563 


RSTRKYBD 


00002 


000642 


00545 


0569 


0584 




























SAMP327L 


00001 


000000 


00002 
































SAVE 


00004 


000A4C 


00831 


0061 


0062 


0379 


























SAVEREG 


00001 


00000D 


00043 


0061 


0063 


0064 


0379 
























SIXFS 


00004 


000AC0 


00843 


0785 






























STRTPRTR 


00004 


00064C 


00549 


0541 






























SYSOUT 


00004 


000696 


00571 


0521 






























SYSOUTBF 


00008 


0009C8 


00829 


0572 


0573 


0574 


0575 


0576 


0577 


0578 


0581 
















SYSPRINT 


00004 


O00ACC 


00850 


0191 


0365 


0580 


























TABBA3E 


00001 


000009 


00040 


0100 


0101 


0102 


0102 


0103 


0104 


0106 


0108 


0111 


0112 


0140 


0165 


0178 


0183 


0204 










0205 


0206 


0219 


0221 


0227 


0254 


0288 


0305 


0359 


0374 


0385 


0397 


0428 


0481 


0482 










0519 


0530 


0539 


0542 


0544 


0549 


0551 


0552 


0555 


0571 


0593 


0633 


0643 


0644 




TABSIZE 


00004 


000AA0 


00835 


0096 


0375 




























THREE 


00004 


000ABC 


00842 


0432 


0783 


0786 


0813 
























TWAIT 


00004 


00029C 


00254 


0663 


0759 




























TYPE 


00001 


000005 


00047 


0279 






























UPCOUMT 


00004 


00021E 


00219 


0211 


0215 




























WRITEP 


00002 


0007D0 


00666 


0660 


0762 




























WRITEPI 


00006 


0008F6 


00761 


0649 






























WRITEPS 


00004 


0008AC 


00739 


0731 































362.28 OS BTAM SRL 



CROSS-REFERENCE 



SYMBOL 



LEN VALUE DEFN 



REFERENCES 



3/22/72 



HRITE1 00006 000700 00602 0627 

WRITE2 00006 00057C 00488 0512 

WRITE3 00006 000434 00398 0423 

WRITE4 00006 00037A 00330 0355 

WRTFMT1 00002 0006FC 00600 0209 

WRTFMT2 00002 000540 00474 0475 

WRTFMT3 00002 000426 00392 0393 

WRTFMT4 00002 000328 00301 0302 

WRTRSPNS 00002 000540 00475 0434 

ZEROPARM 00002 000978 00804 0799 

ZEROREG 00001 000000 00028 0095 
ZEROWRD 00004 000AC8 0084 5 



0595 



0441 0449 0457 0465 0469 0547 0587 



0096 0157 0158 0159 0370 0375 0524 0539 0540 0554 0555 0654 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
♦STATISTICS* SOURCE RECORDS (SYSIN) = 691 SOURCE RECORDS (SYSLIB) = 5465 
♦OPTIONS IN EFFECT* LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT = 55 
1265 PRINTED LINES 



Appendix 0: Local 3270 Sample Program 362.29 



APPENDIX P: REMOTE 3270 SAMPLE PROGRAM 



The remote 3270 sample program, which exercises the remote 3270 display system, is dis* 
tributed as a member of SYS 1 . SAMPLIB named SAMP327R. This PDS member contains (in the 
form of 80-character card images) all the source statements for the sample program and 
all the JCL needed to assemble, link-edit, and execute the program: 

//SAMP327R JOB BTAM,MSGLEVEL=1 
// EXEC ASMFCLG 
//ASM.SYSIN DD * 



Source Code 



/* 

//GO.DD3270 DD UNIT=address of BSC line 

//GO.SYSABEND DD SYSOUT=A 

/* 

Before assembling the program, supply the address of the BSC line in the 270X control 
unit as the UNIT parameter in the //GO.DD3270 DD card. Place the cards in the card 
reader, and perform the assemble, link-edit, and go procedure. The messages and ins true ■ 



Appendix P: Remote 3270 Sample Program 362.31 



LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT F01OCT71 3/22/72 

000000 1 SAMP327R CSECT 



3 * THIS IS A SAMPLE PROGRAM FOR A REMOTE 3270 INFORMATION DISPLAY 

4 * SYSTEM. PLEASE NOTE THAT THIS PR03RAM HAS BEEN WRITTEN FOR TWO 

5 * 3270 DEVICES, BOTH OF WHICH MOST BE 3277 DISPLAYS. 

6 * 

7 * THIS PROGRAM IS SET UP FOR AN ASSEMBLE, LINKEDIT AND 30 . 

8 * THE DD3270 DD CARD WILL HAVE TO BE CHANGED TO REFLECT THE 

9 * ADDRESS OF THE BSC LINE IN THE TRANSMISSION CONTROL UNIT . 

10 * 

11 * IT MAY BE NECESSARY TO ALTER THIS SAMPLE PROBLEM SO THAT IT 

12 * MAY FUNCTION WITH MORE THAN TWO DEVICES. TO DO SO, THE FOLLOWING 

13 * CARDS MUST BE CHANGED IN THE SOURCE DECK: 

1H * 1. DFTRMLST MACROS (SELDSPLY) 

15 * (SPECPOL) 

16 * 

17 * THIS SAMPLE PROGRAM IS RESTRICTED TO A MAXIMIM OF 32 DEVICES, 

18 * ALL OF WHICH MUST BE ATTACHED TO ONE REMOTE 3271 CONTROL UNIT. 



362.32 OS BTAM SRL 



PAGE 



LOC OBJECT CODE 



000000 
000002 
000003 
000004 
000005 
000006 
000008 
000009 
OOOOOA 
0OOOOB 
0O00OC 
OOOOOD 
OOOOOF 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



20 * 

21 REGZERO 

22 REG2 

23 WORKREG 

24 MSGADDR 

25 MSGLEN 

26 SELREG 

27 FMTREG 

28 DSPTABRG EQU 

29 LNKREG EQU 

30 BASEREG EQU 

31 BASEREG2 EQU 

32 PTRTAB EQU 

33 RTNCDRG EQU 



REGISTER EQUATES 
EQU 

2 

3 

5 

6 

8 

9 

10 

11 

12 

13 

15 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



REGISTER 
WORK REGISTER 
WORK REGISTER 
ADDR OF OUTPUT MESSAGE 
LENGTH OF OUTPUT MESSAGE 
SPEC POLL ADDR OF 3270 DISPLAY 
FORMAT IDENTIFIER 
ADDRESS OF DISPLAY TABLE 
LINKAGE REGISTER 
FIRST BASE RES 
SENOND BASE REG 
PRINTER RLN TABLE ADDRESS 
RETURN CODE REGISTER 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000006 
000007 
000008 
000011 
000010 
000020 
000018 
00001C 
000001 
000010 
000040 
000040 
000041 
00006C 
00006D 
00006E 
00007D 
00007F 
000080 



35 * 

36 ZERO 

37 OWE 

38 TWO 

39 THREE 

40 FOUR 

41 FIVE 

42 SIX 

43 TP06 

44 SEVEN 

45 EIGHT 

46 TP11 

47 SIXTN 

48 TP20 

49 TWENTY4 

50 TWENTY8 

51 TIMEOUT 

52 SSMSG 

53 EOTRSPTX 

54 EOTRCVD 

55 FOURTY1 

56 PA1 

57 CLEAR 

58 PA2 

59 ENTER 

60 SEVENF 

61 LAST 



EQUATES 
EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



1 

2 

3 

4 

5 

6 

6 

7 

8 

X'll' 

16 

X'20' 

24 

28 

X'01' 

X'lO" 

X'40' 

X'40' 

X'41" 

X'6C 

X'6D' 

X'6E* 

X'7.D' 

X'7F* 

X'80' 



LENGTH OF 
LENGTH OF 1 
LENGTH OF 2 
LENGTH OF 3 
FORMAT 1 IDENTIFIER 
LENGTH OF TERMINAL LIST ENTRIES 
LENGTH OF 6 
TP CODE OF 6 
LENGTH OF 7 
FORMAT 2 IDENTIFIER 
TP CODE OF 11 
LENGTH IF 16 

LENGTH OF 24 

LENGTH OF 28 
DECB TIME OUT FLAG 
SENSE/STATUS RECEIVED FLAG 
EOT RESPONSE TO TEXT 
EOT RECEIVED FLAG 
I/O ERROR COMP CODE 
ATTENTION ID FOR PA1 KEY 
ATTENTION ID FOR CLEAR KEY 
ATTENTION ID FOR PA2 (CNCL) 
ATTENTION ID FOR ENTER KEY 
NORMAL COMPLETION CODE 

SIGNIFIES END OF POLLING LIST 



KEY 



Appendix P: Remote 3270 Sample Program 362.33 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



000000 

000000 90EC D00C 
000004 05B0 
000006 
000006 18CB 
000008 4AC0 B714 
OOOOOC 50D0 BF1E 
000010 41D0 BF1A 



000014 

000014 1*510 B016 

000018 80 

000019 000F58 
00001C 0A13 
00001E 9110 BF82 
000022 4710 B03C 



0000C 



0071A 
00F24 
00F20 



0001C 



00F88 



000026 0700 

000028 4510 B036 

00002C 0010 

00002S 0000 

000030 D6D7C5D54 0C6C1C9 

00003C 

000O3C 0A23 

00003E U7F0 B2C2 

000042 4190 B71A 

000046 4160 B6EA 



00042 
0003C 



002C8 
00720 
006F0 



63 

64 + 

65+ 

66 

67 

68 

69 

70 

71 

72 * 

73 

74 + 

75+ 

76+ 

77 + 

78 + 
79 
80 
81 
82+ 

83 + 

84 + 
35+ 
86 + 

87+IHB0003A 
88 + 

89 

90 START 

91 

92 * 



ADDRESSABILITY 



SECOND BASE 



SAVE (14,12) 

DS OH 

STM 14,12,12(13) SAVE REGISTERS 

BALR BASEREG.O ESTABLISH 

USING *,BASEREG,BASEREG2 

LR BASEREG2,BASEREG INITIALIZE 

AH BASEREG2 , H4 09 6 

ST 13,SAVE+4 

LA 13, SAVE 

OPEN THE LINE GROUP 

OPEN (DCBR) OPEN THE DCB 

0,4 

l,*+8 LOAD REG1 W/LIST ADDR. 

ALK128) OPTION BYTE 

AL3(DCBR) DCB ADDRESS 

19 ISSUE OPEN SVC 

DCBR+48,X'10" TEST FOR SUCCESSFUL OPEN 

START YES, 30 TO ST&RT 

'OPEN FAILURE" 

0,4 

1,IHB0003A BRANCH AROUND MESSAGE 

AL2(16) TEXT LENGTH 

B' 0000000000000000" MCS FLAGS 

C'OPEN FAILURE' 



CNOP 

BAL 

DC 

DC 

SVC 

TM 

BO 

WTO 

CNOP 

BAL 

DC 

DC 

DC 

DS 

SVC 

B 

LA 

LA 



OH 
35 

ABNORMAL 

DSPTABRG.DSPTAB 

SELREG,SELDSPLY 



ADDRESS THE DISPLAY TABLE 
GET SELECTION ADDRESS OF 
FIRST 3270 DISPLAY 



00004A 
00004A 
00004E 
000052 
000056 
00005A 
00005E 
000062 
000066 
00006A 
00006E 



4140 
4150 
4 5A0 
45A0 
4 5A0 
4166 
9180 
4710 
4166 
47F0 



B2DA 
00A7 
B5C6 
B1D2 
B222 
0005 
6000 
B06C 
0001 
B044 



00000 





94 INITIAL 


EQU 


* 


002E0 


95 


LA 


MSGADDR,FORMAT0 


000A7 


96 


LA 


MSGLEN,FMT0SZ 


005CC 


97 


BAL 


LNKREG.WRITETI 


001D8 


98 


BAL 


LNKREG.RETCODE 


00228 


99 


BAL 


LNKREG,WAITD 


00005 


100 


LA 


SELREG,FIVE(SELRE3) 




101 


TM 


ZERO(SELREG) , LAST 


00072 


102 


BO 


READ 


00001 


103 


LA 


SELREG.ONE(SELREG) 


0004A 


104 


B 


INITIAL 



ADDR OF FORMATO MESSAGE 

LENGTH OF MESSAGE 

GO WRITE FORMAT 

CHECK RETURN CODE 

WAIT FOR COMPLETION 

ADDR NEXT SPECIFIC POLL ENTRY 

END OF SELECTION LIST 

YES, GO ISSUE A READ 

ADDR OF NEXT ENTRY 

NO, WRITE TO REMAINING DISPLAYS 



000072 

000072 4140 B74A 

000076 D7FE B74A B74A 00750 

00007C D72A B74A B74A 00750 





106 READ 


00750 


107 


00750 


108 


00750 


109 



EQU * 

LA MSGADDR, INAREA 

XC INAREA(255) , INAREA 

XC INAREA(43), INAREA 



ADDR OF INPUT AREA 
CLEAR INPUT 

AREA 



362.34 OS BTAM SRL 



LOC 


OBJECT CODE 


ADDR1 


ADDR2 


STMT SOURCE 


STA' 


000082 


45A0 


B5FA 




00600 


110 


BAL 


00008b 


45A0 


B1D2 




001D8 


111 


BAL 


00008A 


4 SAO 


B222 




00228 


112 


BAL 


00008E 


D201 


B73F B74C 


00745 


00752 


113 


MVC 


000094 


9102 


BFCE 


00FD4 




114 


TM 


000098 


4710 


B2C2 




002C8 


115 


BO 


00009C 


4160 


B6F6 




006FC 


116 


LA 


0000A0 


1B22 








117 


SR 


0000A2 










118 CHKIT 


EQU 


0000A2 


D501 


6001 B74C 


00001 


00752 


119 


CLC 


O000A8 


4780 


BOBA 




OOOCO 


120 


BE 


0000AC 


4122 


0001 




00001 


121 


LA 


OOOOBO 


4166 


0006 




00006 


122 


LA 


0000B4 


9180 


6000 


00000 




123 


TM 


0000B8 


4710 


B2C2 




002C8 


124 


BO 


OOOOBC 


47F0 


B09C 




000A2 


125 


B 


OOOOCO 










126 FNDSEL 


EQU 


OOOOCO 


4220 


B73E 




00744 


127 


STC 


0000C4 


1832 








128 


LR 


0000C6 


5C20 


B746 




0074C 


129 


M 


OOOOCA 


1823 








130 


LR 


OOOOCC 


4160 


B6EA 




006F0 


131 


LA 


OOOODO 


1A62 








132 


AR 


0000D2 


5060 


B742 




00748 


133 


ST 


0000D6 


1B88 








134 


SR 


00 00D8 


4190 


B71A 




00720 


135 


LA 


OOOODC 


4389 


2000 




00000 


136 


IC 


OOOOEO 


47F8 


BODE 




000E4 


137 


B 



F01OCT71 3/22/72 



LNKREG, READTI GO READ A DISPLAY 
LNKREG , RETCODE CHECK RETURN CODE 
LNKREG, WAITD WAIT FOR COMPLETION 
CUDVSAVE(TWO) ,INAREA+TWO SAVE CU.DV 
DECBD+TWENTY4,X'02" STATUS MSG RECIEVED 

SSCHECK 

SELREG, SPECPOL ADDR OD SPEC POLL TABLE 
REG2,REG2 CLEAR RE3ISTER 2 

* 
ONE (TWO, SELREG), INAREA+TWO CHECK FOR CU,DV 



FNDSEL 

REG2,ONE(REG2) 

SELREG,SIX(SELREG) 

ZERO ( SELREG) , LAST 

ABNORMAL 

CHKIT 



YES, GET SELECTION ADDR 
ADD ONE TO INDEX 
POINT TO NEXT ENTRY 
END OF LIST 

NO KEEP CHECKING 



REG2, INDEX 
WORKREG,REG2 
REG2,SIXL 
REG2,WORKREG 
SELREG, SELDSPLY 
SELREG, REG 2 
SELREG, SELSAVE 
FMTREG, FMTREG 
DSPTABRG , DSPTAB 

FMTREG,ZERO(DSPTABRG,REG2) 
FORMATBR ( FMTREG ) 



SAVE INDEX BYTE 
GET INDEX INTO ODD REGISTER 
MULTIPLY INDEX BY 6 
RE-ESTABLISH INDEX REG 
GET SELECTION ADDRES 
ADDR OUTPUT ENTRY IN TABLE 
SAVE SELECTION ADDR 
CLEAR FORMAT REG 
ADDR OF DISPLAY TABLE 
ET FORMAT ID 



0000E4 

0000E4 47F0 BOEA 
O0OOE8 47F0 B10A 
OOOOEC 47F0 B196 



139 FORMATBR EQU * 

000F0 140 B FMTO 

00110 141 a *MTi 

0019C 142 B FMT2 



FORMAT ON SCREEN 
FORiiAx 1 OS SCREEN 
FORMAT 2 ON SCREEN 



0000F0 



00 00F0 
0000F0 
0000F4 
0000F8 
0000FC 
000100 
000104 
000108 
00010C 



ASSUMING THAT THEY 



4180 
4289 
4140 
4150 
45A0 
4 5A0 
45A0 
47F0 



0004 
2000 
B381 
OODA 
B5C6 
B1D2 
B222 
B06C 



144 FMTO EQU * 

145 * VERIFY THE NAME AND SOCIAL SECORITY NUMBER. 

146 * ARE VALID, WE SHALL CONTINUE PROCESSING. 

147 FMTOl EQU * 
FMTREG, FOUR GET FORMAT 1 ID 

FMTREG, ZERO(DSPTABRG,REG2) STORE IN DISPLAY TABLE 
MSG ADDR, FORMAT1 ADDR OF FORMAT1 MESSAGE 
MSGLEN.FMT1SZ LENGTH OF MESSAGE 

LNKREG, WRITETI GO WRITE FORMAT 1 
LNKREG, RETCODE CHECK RETURN CODE 
LNKREG, WAITD WAIT FOR COMPLETION 
READ GO READ ANOTHER DISPLAY 



00004 


148 


LA 


00000 


149 


STC 


00387 


150 


LA 


000DA 


151 


LA 


005CC 


152 


BAL 


001D8 


153 


BAL 


00228 


154 


BAL 


00072 


155 


B 



Appendix P: Remote 3270 Sample Program 362.35 



PAGE 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



000110 
000110 
000114 
000118 
00011C 
000120 
000124 
000128 
00012C 
000130 



957D 
4780 
956C 
4780 
9 56E 
4780 
956D 
4780 
47F0 



B74E 
B12E 
B74E 
B146 
B74E 
B14A 
B74E 
B176 
B06C 



00754 



00754 



00754 



00754 





157 FMT1 


EQU 


* 






158 


CLI 


INAREA+FOUR, 


, ENTER 


00134 


159 


BE 


ENTER INT 






160 


CLI 


INAREA+FOUR, 


F PA1 


0014C 


161 


BE 


PA1INT 






162 


CLI 


INAREA+FOUR, 


,PA2 


00150 


163 


BE 


PA2INT 






164 


CLI 


INAREA+FOUR, 


r CLEAR 


0017C 


165 


BE 


CLEARINT 




00072 


166 


B 


READ 





ENTER KEY INTERRUPT 

YES, 33 UPDATE RECORDS 

PA1 KEY INTERRUPT 

YES, GO MAKE HARD COPY 

PA2 OR CNCL KEY INTERRUPT 

YES, 30 DEACTIVATE TERMINAL 

CLEAR KEY INTERRUPT 

YES, GO WRITE FORMAT 2 

IGNORE THE INTERRUPT AND GO READ 



000134 



000134 
000138 
00013C 
000140 
000144 
000148 
00Q14C 
00014C 
000150 



000150 
000150 
000154 
000158 
00015C 
00015C 
000160 
000164 
000168 
00016C 
000170 
000174 
000178 
00017C 
00017C 
000180 
000184 
000i88 
00018C 
000190 
000194 
000198 
00019C 
000i9C 
0001A0 



4140 
4150 
45A0 
45A0 
4 5A0 
47F0 



B5BF 
0004 
B5C6 
B1D2 
B222 
B06C 



47F0 B1BA 



4140 B57F 
4150 003C 
4160 B6£A 



45A0 
45A0 
45A0 
4166 
9180 
4710 
4166 
47F0 

4140 
4150 
4 SAO 
4 SAO 
45A0 
4180 
4289 
47F0 



B5C6 
B1D2 
B222 
0005 
6000 
B2AE 
0001 
B156 

B45B 
00F7 
B5C6 
B1D2 
B222 
0008 
2000 
B06C 



00000 



005C5 
00004 
005CC 
001D8 
00228 
00072 

001C0 



00585 
0003C 
006F0 

005CC 
001D8 
00228 
00005 

002B4 
00001 
001SC 

00461 
000F7 
005CC 
001D8 
00228 
00008 
00000 
00072 



957D B74E 
4780 BOEA 



00754 



000F0 



168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 



ENTERINT EQU 

* CREATE A 

* DATA SET. 

LA 

LA 

BAL 

BAL 

BAL 

B 

EQU 

B 

EQU 



NEW OR UPDATE AN EXISTING ENTRY IN YOUR PERMANENT 



PA1INT 



MSGADDR, ERALUNP 

MSGLEN,ERALUNPL 

LNKREG,WRITETI 

LNKREG,RETCODE 

LNKREG,WAITD 

READ 

* 

NOPRINT 



ADDR OF MESSAGE 

LENGTH OF MESSAGE 

GO ERASE ALL UNPROTECTED DATA 

CHECK RETURN CODE 

WAIT FOR COMPLETION 

GO READ ANOTHER DISPLAY 

NO PRINTER DEFINED 



DETERMINE IF ANY DATA WAS ENTERED. IF SO, CREATE A NEW OR 'JPDATE 
AN EXISTING ENTRY IN YOUR PERMANENT DATA SET. NOW DEACTIVATE THE 
TERMINAL. 



PA2INT1 EQU 
LA 
LA 
LA 

ONCEMORE EQU 
BAL 
BAL 
BAL 
LA 
TM 
BO 
LA 
B 

CLEARINT EQU 
LA 
LA 
BAL 
BAL 
BAL 
LA 
STC 
B 

EQU 
CLI 
BE 



MSGADDR, CLOSEMG 

MSGLEN.CLOSEMGL 

SELREG,SELDSPLY 

* 

LNKREG,WRITETI 

LNKREG,RETCODE 

LNKREG,WAITD 

SELREG,FIVE (SELRE3) 

ZEROC SELREG) , LAST 

CLOSE 

SELREG , ONE (SELREG) 

ONCEMORE 



ADDR OF CLOSE MSG 

LEN3TH OF MSG 

ADDR OF SELECTION TABLE 

30 WRITE ENDING MS3 
CHECK RETURN CODE 
WAIT FOR COMPLETION 
POINT TO INDICATOR BYTE 
END OF SELECTION LIST 
YES, TERMINATE PROS RAM 
POINT TO NEXT ADDRESS 
NO, WRITE ANOTHER MESSAGE 



ADDR OF FORMAT 2 MSG 
LENGTH OF MSG 
GO WRITE FORMAT 2 
CHECK RETURN CODE 
WAIT FOR COMPLETION 
GET FORMAT 2 ID 
FMTREG,ZERO(DSPTABR3,RE32) STORE IN DISPLAY 
READ 30 READ ANOTHER DISPLASf 



MSGADDR, FORMAT2 

MSGLEN,FMT2SZ 

LNKREG,WRITETI 

LNKREG.RETCODE 

LNKREG.WAITD 

FMTREG, EIGHT 



FKT2 



INAREA+FOUR, ENTER 
FMT01 



ENTER KEY INTERRUPT 
YES, GO WRITE FORMAT 



362.36 OS BTAM SRL 



LOC OBJECT CODE 



0001A4 


956C 


B74E 


0001A8 


4780 


B146 


0001AC 


956E 


B74E 


0001B0 


4780 


B14A 


0001B4 


956D 


B74E 


0001B8 


4780 


B176 


0001BC 


47F0 


B06C 


0001C0 






0001C0 


4140 


B552 


0001C4 


4150 


002D 


0001C8 


4 SAO 


B5C6 


oooicc 


4 SAO 


B1D2 


OOOIDO 


45A0 


B222 


0001D4 


47F0 


B06C 



ADDR1 


ADDR2 


STMT 


SOURCE 


STATEMENT 


00754 




208 




CLI 


INAREA+FOUR,PAl 




0014C 


209 




BE 


PA1INT 


00754 




210 




CLI 


INAREA+FOUR.PA2 




00150 


211 




BE 


PA2INT1 


00754 




212 




CLI 


I NAREA+FOUR , C LEAR 




0017C 


213 




BE 


CLEAR I NT 




00072 


214 




B 


READ 






215 


NOPRINT 


EQU 


* 




00558 


216 




LA 


MSGADDR, NOPTR 




0002D 


217 




LA 


MSGLEN.NOPTRL 




005CC 


218 




BAL 


LNKREG.WRITETI 




001D8 


219 




BAL 


LNKREG.RETCODE 




00228 


220 




BAL 


LNKREG.WAITD 




00072 


221 




B 


READ 



F01OCT71 3/22/72 



PA1 KEY INTERRUPT 

YES, SO HAKE HARD COPY 

PA2 OR CNCL KEY INTERRUPT 

YES, GO DEACTIVATE TERMINAL 

CLEAR KEY INTERRUPT 

GO NRITE FORMAT 2 

GO READ ANOTHER DISPLAY 

ADDR OF NO PRINTER MSG 

LENGTH OF MSG 

GO WRITE MSG 

CHECK RETURN CODE 

WAIT FOR COMPLETION 

GO READ ANOTHER DISPLAY 



Appendix P: Remote 3270 Sample Program 362.37 



LOC OBJECT CODE 



0001D8 
00 01D8 
0001DC 
0001DC 
00 01E0 
0001E4 
0001E8 
0001EC 
0001FO 
0001F4 
0001F8 
OOOIFC 
000200 
000204 
000204 
000206 
000206 
00020A 
00020C 
00020C 
00020C 
000210 
000210 
000214 
000214 
000218 
000218 
00021C 
00021C 
000220 
000220 
000224 
000224 



47FF B1D6 



47F0 
47F0 
47F0 
47F0 
47F0 
47F0 
47F0 
47F0 
47F0 
47F0 

07FA 



B1FE 
B200 
B206 
B206 
B20A 
B20E 
B212 
B216 
B21A 
B21E 



5BA0 B716 
07FA 



47F0 B2C2 
47F0 B2AE 
47F0 B2C2 
47F0 B2C2 
47F0 B2C2 
47F0 B2C2 
47F0 B2C2 



ADDR2 


STMT 


SOURCE 


STATEMENT 




223 


RETCODE 


EQU 


* 


001DC 


224 




B 


RTHCDTAB(RTNC 




225 


RTNCDTAB 


EQU 


* 


00204 


226 




B 


RTNCDO 


00206 


227 




B 


RTNCD4 


0020C 


228 




B 


RTNCD8 


0020C 


229 




B 


RTNCDC 


00210 


230 




B 


RTNCD10 


00214 


231 




B 


RTNCD14 


00218 


232 




B 


RTNCD18 


0021C 


233 




B 


RTNCD1C 


00220 


234 




B 


RTNCD20 


00224 


235 




B 


RTNCD24 




236 


RTNCDO 


EQU 


* 




237 




BR 


LNKREG 




238 


RTNCD4 


EQU 


* 


0071C 


239 




S 


LNKREG, EIGHT8 




240 




BR 


LNKREG 




241 


RTNCD8 


EQU 


* 




242 


RTNCDC 


EQU 


* 


002C8 


243 




B 


ABNORMAL 




244 


RTNCD10 


EQU 


* 


002B4 


245 




B 


CLOSE 




246 


RTNCD14 


EQU 


* 


002C8 


247 




B 


ABNORMAL 




248 


RTNCD18 


EQU 


* 


002C8 


249 




B 


ABNORMAL 




250 


RTNCD1C 


EQU 


* 


002C8 


251 




B 


ABNORMAL 




252 


RTNCD20 


EQU 


* 


002C8 


253 




B 


ABNORMAL 




254 


RTNCD24 


EQU 


* 


002C8 


255 




B 


ABNORMAL 



F01OCT7L 3/22^72 



BRANCH TO CORRESPONDING ENYRY 

I/O SUCCESSFULLY INITIATED 

DTFBT BUSY 

INVALID RLN 

INVALID TYPE CODE 

ALL SKIP BITS ON 

LINE ERROR AT OPEN 

NO BUFFERS 

NO BUFFER POOL 

NO BUFFER MANAGEMENT 

BSC USAGE COUNT EXCEEDED 

RETURN 

SUBTRACT 8 FROM RETURN ADDR 
TO RETRY THE OPERATION 



THIS CONDITION SHOULD NOT OCCUR 
ALL TERMINALS, TERMINATE 
THIS CONDITION SHOULD NOT OCCUR 
THIS CONDITION SHOULD NOT OCCUR 
THIS CONDITION SHOULD NOT OCCUR 
THIS CONDITION SHOULD NOT OCCUR 
THIS CONDITION SHOULD NOT OCCUR 



362.38 OS BTAM SKL 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 
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000228 

000228 
00022C 
000230 
000232 
000232 
000236 
00023A 
00023C 
00023C 
000240 
000244 
000248 
00024C 
000250 
000254 
000258 
00025A 
00025A 
00025E 
000262 
000262 
000266 
00026A 
00026E 
00026E 
000272 
000276 
00027A 
00027A 
00027E 

000282 
00028b 
00028A 
00028E 
000292 
000296 
00029A 
00029E 
0002A2 
0002A6 
0002AA 
0002AE 
0002B0 



4110 BFB6 
4100 0001 
0A01 

957F BFB6 
4770 B236 
07FA 



9541 
4770 
9506 
4770 
9101 
47E0 
5BA0 
07FA 



BFB6 
B2C2 
BFD2 
B254 
BFC6 
B2C2 
B73A 



9520 BFD2 
4770 B268 

9140 BFCE 
47E0 B2C2 
47F0 B06C 

9511 BFD2 
4770 B2C2 
47F0 B25C 

9520 BFD2 
4770 B2C2 



4110 
9405 
920A 
41E0 
50E0 
41E0 
50E0 
41E0 
40E0 
58F0 
94F7 
05EF 
47F0 



BFB6 
1004 
1005 
BF52 
1008 
B74A 
100C 
0001 
1018 
BF82 
1004 

B22C 



OOFBC 
00001 



OOFBC 

OOFBC 
00FD8 
00 FCC 

00FD8 
00FD4 

00FD8 

00FD8 



0023C 



002C8 



0025A 



002C8 
00740 



0026E 



002C8 
00072 



002C8 
00262 



002C8 
OOFBC 



00004 
00005 



0OF58 
00008 
00750 
0000C 
00001 
00018 
00F88 



00004 



00232 



257 WAITD 

258 

259+ 

260+ 

261+ 

262 CHK7FCC 

263 

264 

265 

266 CHK41CC 

267 

268 

269 

270 

271 

272 

273 

274 

275 CKTP20 

276 

277 

278 CHKEOT 

279 

280 

281 

282 CKTP11 

283 

284 

285 

286 CHKTP20 

287 

288 

289 

290+ 

291 + 

292+ 

293+ 

294+ 

295+ 

296+ 

297+ 

298+ 

299+ 

300+ 

301+ 

302 



EQU 

WAIT 

LA 

LA 

SVC 

EQU 

CLI 

BNE 

BR 

EQU 

CLI 

BNE 

CLI 

BNE 

TM 

BNO 

S 

BR 

EQU 

CLI 

BNE 

EQU 

TM 

BNO 

B 

EQU 

CLI 

BNE 

B 

EQU 

CLI 

BNE 

WRITE 

LA 

NI 

MVI 

LA 

ST 

LA 

ST 

LA 

STH 

L 

NI 

BALR 

B 



ECB=DECBD 

l.DECBD LOAD PARAMETER REG 1 
0,1(0,0) COUNT OMITTED, 1 USED 
1 LINK TO WAIT ROUTINE 



DECBD.SEVENF 

CHK41CC 

LNKREG 



NORMAL COMPLETION CODE 
NO, KEEP CHECKING 
RETURN 



DECBD,F0URTY1 I/O ERROR COMP CODE 
ABNORMAL INVALID COMP CODE 

DECBD+TWENTY8,TP06 TP CODE OF 6 
CKTP20 NO, CHECK OTHER TP CODES 

DECBD+SIXTN, TIMEOUT DID DEVICE TIME OUT 



ABNORMAL 

LNKREG, TWELVE 

LNKREG 

* 

DECBD+TWENTY8 , TP20 

CKTP11 



NO, TERMINATE 

SUBTRACR 12 FROM RETURN ADDR 

TO RETRY THE OPERATION 

TP CODE OF 20 
NO, CHECK OTHERS 



DECBD+TWENTY4.EOTRSPTX EOT RESPONSE TO TEXT 



ABNORMAL 

READ 

* 

DECBD+TWENTY8 , TP11 

ABNORMAL 

CHKEOT 



NO, TERMINATE 

YES, GO GET SENSE STATUS MESSAGE 

TP CODE OF 11 
NO, TERMINATE 
YES, CHECK EOT RESPONSE TO TEXT 



DECBD+TWENTY8,TP20 TP CODE OF 20 

ABNORMAL NO, TERMINATE 

DECBD , TR , DCBR , INAREA , , , 1 , MF=E 

l.DECBD LOAD DECB ADDRESS 

4(1). 5 

5(1), 10 

14, DCBR 

14,8(0,1) STORE DCB ADDRESS 

14, INAREA 000B 

14,12(0,1) STORE AREA ADDR 000B 

14,1(0,0) 

14,24(0,1) STORE LINE NUMBER 

15.DCBR+48 LOAD RDWRT ROUT ADDR 

4(1),X , F7 , A38557 

14,15 A38557 

CHK7FCC CHECK COMPLETION CODE 
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LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 
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0002B4 

0002B4 

0002B4 4510 B2B6 
0002B8 80 
0002B9 000F58 
0002BC 0A14 
0002BE 58D0 BF1E 

0002C2 98EC D00C 
0002C6 07FE 



002BC 



00F24 



0000C 



304 CLOSE 

305 

306+ 

307 + 

308 + 
309+ 
310+ 
311 
312 
313+ 
314 + 



EQU * 

CLOSE (DCBR) 

CNOP , 4 

BAL 

DC 

DC 

SVC 

L 



CLOSE THE DCB 



l,*+8 BRANCH AROUND LIST 

ALK128) OPTION BYTE 

AL3(DCBR> DCB ADDRESS 

20 ISSUE CLOSE SVC 
13.SAVE+4 
RETURN (14,12) 

LM 14,12,12(13) RESTORE THE REGISTERS 
BR 14 RETURN 



316 SSCHECK EQU * 

317 * INVESTIGATE THE SENSE/STATUS BYTES SENT BY THE REMOTE DEVICE. 

318 * IF RECOVERY IS POSSIBLE, ATTEMPT TO DO SO. WE SHALL ASSUME THAT 

319 * THE ERROR IS UNRECOVERABLE AND TERMINATE. 



0002C8 

0002C8 
0002C8 

0002C8 47F0 B2CA 
0002CC 80 
0002CD 000001 
0002D0 5810 B2C6 
0002D4 0A0D 
0002D6 58D0 BF1E 

0002DA 98EC D00C 
0002DE 07FE 



321 ABNORMAL EQU 



002DO 



002CC 



00F24 



0OO0C 



322 

323+ 

324+ 

325+ 

326+ 

327+ 

328+ 

329+ 

330 

331 

332+ 

333+ 



ABEND 1,DUMP 



TAKE A DUMP 



DS OH 

CNOP , 4 

B *+8 BRANCH AROUND CONSTANT 

DC ALK128) DUMP/STEP CODE 

DC AL3(1) COMPLETION CODE 

L l,*-4 LOAD CODES INTO REG 1 

SVC 13 LINK TO ABEND ROUTINE 

L 13.SAVE+4 

RETURN (14,12) 

LM 14,12,12(13) RESTORE THE REGISTERS 

BR 14 RETURN 



362.40 OS BTAM SRL 



10 



LOC 


OBJECT CODE ADDHl ADDR2 


STMT 


SOURCE 


STATEMENT 




0002E0 




335 


FORMAT0 


EQU 


* 




0002E0 


0227F5 


336 




DC 


X'0227F5' 


STX,ESC,E/W 


0002E3 


C71DC811C150 


337 




DC 


X , C71DC811C150' 


WCC, SF = PROT, SBA 


0002E9 


C7D6D6C440D4D6D9 


338 




DC 


C'GOOD MORNING. ' 




0002F6 


1D6011C15F 


339 




DC 


x'iD60iici5F' 


SF = PROT, SBA = 94 


0002FB 


E3C8C9E240C2C5C7 


340 




DC 


C'THIS BEGINS THE 


DEMONSTRATION • 


000319 


D6C640E3C8C54040 


341 




DC 


C'OF THE OS/BTA.M 


t 


000329 


1DC8 


342 




DC 


X'1DC8' 


SF = PROT 


00032B 


F3F2F7F040 


343 




DC 


C3270 • 




000330 


1D60 


344 




DC 


X'1D60' 


SF = PROT 


000332 


D9C5D4D6E3C540E2 


345 




DC 


C* REMOTE SAMPLE PROS RAM. * 


0003H8 


1D6011C3F0 


346 




DC 


X'1D6011C3F0' 


SF = PROT, SBA = 24( 


00034D 


C5D5E3C5D940E3C8 


347 




DC 


CENTER THE FOLLOWING:' 


000361 


1D6011C4D8 


348 




DC 


X'lD6011C4D8' 


SF = PROT, SBA = 281 


000366 


D5C1D4C57A 


349 




DC 


C'NAME:' 




00036B 


1D4013 


350 




DC 


X'1D4013' 


SF = UNPROT, IC 


00036E 


11C5401D60 


351 




DC 


X'11C5401D60" 


SBA = 320,SF = PROT 


000373 


E2D6C340E2C5C340 


352 




DC 


C'SOC SEC NUM:' 




00037F 


1D40 


353 




DC 


X'1D40' 


SF = UNPROT 


000381 


11C5E81D60 


354 




DC 


X'11C5E81D60' 


SBA = 360,SF = PROT 


000386 


03 


355 




DC 


X'03' 


ETX 


0000A7 




356 


FMT0SZ 


EQU 


♦-FORMAT0 





F01OCT71 3/22/72 



80 



000387 

000387 0227F5 
00038A C71D60114040 
000390 C5D5E3C5D940C4C1 
0003AB 11C150 
0003AE D5C1D4C57A 
0003B3 1D401311C1F81D60 



0003BB 
0003C0 
0003C7 
0003CC 
0003D3 
00 03D9 
0003E0 
0003E4 



C1C4C4D97A 

1D4011C2601D60 

C3C9E3E87A 

1D4011C3C81D60 

E2E3C1E3C57A 

1D4011C3E41D60 

E9C9D77A 

1D5011C3F01D6011 



0003EE C5D5E3C5D940D2C5 

000404 11C540 

000407 D7C1F140D2C5E87A 

00041B 11C5E8 

00041E D7C1F2404DC3D5C3 

000442 11C650 

000445 C3D3C5C1D940D2C5 

000460 03 

0000DA 



358 


FORMAT1 


EQU 


* 






359 




DC 


X'0227F5' STX,ESC,E/W 






360 




DC 


X'C71D60114040' WCC, SF = PROT, SBA = 




361 




DC 


CENTER DATA REQUESTED BELOW:' 






362 




DC 


X'11C150' SBA =80 






363 




DC 


C'NAME:' 






364 




DC 


X , 1D401311C1F81D60' SF = UNPROT, 


IC, SBA = 120, 




365 


* 




SF = PROT 






366 




DC 


C'ADDR:' 






367 




DC 


X'1D4011C2601D60' SF = UNPROT, 


SBA = 160, SF = 


PROT 


368 




DC 


CCITY: ' 






369 




DC 


X'1D4011C3C81D60' SF = UNPROT, 


SBA = 200, SF = 


PROT 


370 




DC 


C STATE: ' 






371 




DC 


X'1D4011C3E41D60' SF = UNPROT, 


SBA = 228, SF = 


PROT 


372 




DC 


C'ZIP:' 






373 




DC 


X'1D5011C3F01D6011C4D8' SF = UNPROT, SBA = 240, 




374 


* 




SF = PROT, SBA =280 




375 




DC 


CENTER KEY: ENTER DATA;' 






376 




DC 


X'11C540' SBA = 320 






377 




DC 


C'PAl KEY: PRINT DATA;' 






378 




DC 


X'11C5E8\ SBA =360 






379 




DC 


CPA2 (CNCL) KEY: DEACTIVATE TERMINAL;' 




380 




DC 


X'11C650' SBA =4 00 






381 




DC 


C'CLEAR KEY: CONTROL OPTIONS;' 






382 




DC 


X'03' ETX 






383 


FMT1SZ 


EQU 


♦-FORMAT1 
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LOC 


OBJECT CODE ADDR1 ADDR2 


STMT 


SOURCE 


STAT] 


SHEW 


000461 




385 


FORMAT2 


EQU 


* 


000461 


0227F5 


386 




DC 


XV 


000i»6<l 


C711404013 


387 




DC 


X'( 


000469 


E7E7E8E8F4C3C3C4 


388 




DC 


c: 


000472 


1140E8 


389 




DC 


XV 


000475 


E3D640D9C5D8E4C5 


390 




DC 


C" 


0004A7 


C1C7C540D6E5C5D9 


391 




DC 


C'J 


0004D9 


4040E8E87ED9C5D7 


392 




DC 


c 


00050B 


E3C8C5D540C8C9E3 


393 




DC 


c" 


00053D 


E840E3D640D9C5E2 


394 




DC 


c 


000554 


11C3C8 


395 




DC 


x*: 


000557 


03 


396 




DC 


X'i 


0000F7 




397 


FMT2SZ 


EQU 


*-; 



F01OCr71 3/22/72 



STX,ESC,E/W 
WCC, SBA = 0, IC 



0227F5' 
C711404013' 
XXYY4CCDD' 

114 0E8' SBA =40 

TO REQUEST BTAM OLT — ENTER REQUEST FOR TEST MESS' 
AGE OVER SAMPLE FORMAT ABOVE: XX=TEST NO. (23-28)' 
YY=REPEATS (01-99) CCDD=ADDRESS OF TARGET DEVICE' 
THEN HIT ERASE EOF AND THEN TEST REQ. USE CLEAR KE' 
Y TO RESUME AFTER TEST. ' 
11C3C8' SBA =200 

03' ETX 

FORMAT2 



000558 

000558 0227F1 

00055B C61DC811C6F8 

000561 D5D640D7D9C9D5E3 

000584 03 

00002D 



399 NOPTR EQU 

400 DC 

401 DC 

402 DC 

403 DC 



404 NOPTRL 



EQU 



X'0227F1' STX, ESC, WRITE 

X'C61DC811C6F8' WCC, SF = PROT, SBA = 440 
C'NO PRINTER DEFINED FOR THIS PROGRAM' 
X ' 03 ' ETX 

* -NOPTR 



000585 

000585 0227F5 

000588 C71140401DC8 

00058E 4040404040E3C8C5 

0005C0 03 

00003C 



406 CLOSEMG 


EQU 


407 


DC 


408 


DC 


409 


DC 


410 


DC 



X'0227F5* STX,ESC,E/W 

X'C71140401DC8' WCC, SBA = 0, SF = PROT 

C THE REMOTE 3270 SAMPLE PROGRAM HAS CONCLUDED. 

X'03' ETX 



411 CLOSEMGL EQU *-CLOSEMG 



0005C1 

0005C1 0227F203 

000004 



414 READBUF EQU 

415 DC 

416 READBUFL EQU 



X , 0227F203" 
♦-READBUF 



STX,ESC,RD BUF,ETX 



0005C5 

0005C5 02276F03 



418 ERALUNP 
419 



EQU 
DC 



X'02276F03" 



STX,ESC,EAU,ETX 



LOC OBJECT CODE 
000004 



ADDR1 ADDR2 STMT SOURCE STATEMENT 

420 ERALUNPL EQU * -ERALUNP 



PAGE 12 
F01OCT71 3/22/72 



362.42 OS BTAM SRL 



13 



LOC 


OBJECT CODE 


ADDR1 


ADDR2 


STMT SOURCE 


STAT] 












422 * 


READ 


0005CC 










423 


DS 


0005CC 










424 WRITETI 
425 


EQU 
WRIT! 


D005CC 


4110 


BFB6 




00FBC 


426+ 


LA 


3005DO 


9200 


1004 


00004 




427+ 


MVI 


3005D4 


9202 


1005 


00005 




428+ 


MVI 


3005D8 


4050 


1006 




00006 


429+ 


STH 


3005DC 


41E0 


BF52 




00F58 


430+ 


LA 


3005EO 


50E0 


1008 




00008 


431+ 


ST 


3005E4 


5040 


100C 




OOOOC 


432+ 


ST 


)005E8 


5060 


1014 




00014 


433+ 


ST 


)005EC 


41E0 


0001 




00001 


434+ 


LA 


)005F0 


40E0 


1018 




00018 


435+ 


STH 


)005F4 


58F0 


BF82 




00F88 


436+ 


L 


)005F8 


94F7 


1004 


00004 




437+ 


NI 


)005FC 


05EF 








438+ 


BALR 


)005FE 


07FA 








439 


BR 



F01OCT71 3/22'72 



READ AND WRITE MACROS 

OF 

* 
WRITE DECBD,TI,DCBR, (MSGADDR) , (MSGLEN) , (SELREG) ,1, MF=E 

l.DECBD LOAD DECB ADDRESS 

4(1), 

5(1), 2 

MSGLEN,6(0,1) STORE LENGTH 000B 

14, DCBR 

14,8(0,1) STORE DCB ADDRESS 

MSGADDR,12(0,1) STORE AREA ADDR OOOB 

SELREG, 20(0,1) STORE TERM. LIST ADDR. 

14,1(0,0) 

14,24(0,1) STORE LINE NUMBER 

15,DCBR+48 LOAD RDWRT ROUT ADDR 

4(1),X*F7' A38557 

14,15 A38557 

LNKREG 



)00600 










441 READTI 
442 


EQU 
READ 


)00600 


4110 


BFB6 




OOFBC 


443+ 


LA 


)00604 


9200 


1004 


00004 




444+ 


MVI 


)00608 


9201 


1005 


00005 




445+ 


MVI 


)0060C 


41E0 


012C 




0012C 


446+ 


LA 


)00610 


40E0 


1006 




00006 


447+ 


STH 


)00614 


41E0 


BF52 




00F58 


448 + 


LA 


)00618 


50E0 


1008 




00008 


449 + 


ST 


)0061C 


41E0 


B74A 




00750 


450+ 


LA 


)00620 


50E0 


100C 




OOOOC 


451+ 


ST 


)00624 


41E0 


B705 




0070B 


452+ 


LA 


)00628 


50E0 


1014 




00014 


453+ 


ST 


)0062C 


41E0 


0001 




00001 


454+ 


LA 


)00630 


40E0 


1018 




00018 


455+ 


STH 


)00634 


58F0 


BF82 




00F88 


456+ 


L 


)00638 


94F7 


1004 


00004 




457+ 


NI 


)0063C 


05EF 








458 + 


BALR 


)0063E 


07FA 








459 


BR 



DECBD, TI , DCBR, INAREA, 300 , POLDSPLY, 1 , MF=E 

1,DECBD LOAD DECB ADDRESS 

4(1), 

5(1), 1 

14,300(0,0) OOOB 

14,6(0,1) STORE LENGTH OOOB 

14, DCBR 

14,8(0,1) STORE DCB ADDRESS 

14, INAREA OOOB 

14,12(0,1) STORE AREA ADDR OOOB 

14, POLDSPLY 

14,20(0,1) STORE TERM. LIST ADDR. 

14,1(0,0) 

14,24(0,1) STORE LINE NUMBER 

15,DCBR+48 LOAD RDWRT ROUT ADDR 

4(1),X'F7' A38557 

14,15 A38557 

LNKREG 
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LOC 


OBJECT CODE 


ADDR1 


AODR2 


STMT SOURCE 


STAT1 


000640 










461 READTRV 
462 


EQU 
READ 


000640 


4110 


BFB6 




00FBC 


463+ 


LA 


000644 


9404 


1004 


00004 




464 + 


NI 


000648 


921B 


1005 


00005 




465+ 


MVI 


00064C 


41E0 


0100 




00100 


466+ 


LA 


000650 


40E0 


1006 




00006 


467+ 


STH 


000654 


41E0 


BF52 




00F58 


468+ 


LA 


000658 


50E0 


1008 




00008 


469+ 


ST 


00065C 


41E0 


B74A 




00750 


470+ 


LA 


000660 


50E0 


100C 




0000C 


471+ 


ST 


000664 


41E0 


0001 




00001 


472+ 


LA 


000668 


40E0 


1018 




00018 


473+ 


STH 


00066C 


58F0 


BF82 




00F88 


474+ 


L 


000670 


94F7 


1004 


00004 




475+ 


NI 


000674 


05EF 








476+ 


BALR 


00067b 


07FA 








477 


BR 



P01OCT71 3/22/72 



DECBD,TRV,DCBR, INAREA, 256, , 1, MF=E 

l.DECBD LOAD DECB ADDRESS 

4(1), 4 

5(1), 27 

14,256(0,0) 000B 

14,6(0,1) STORE LENGTH 000B 

14,DCBR 

14,8(0,1) STORE DCB ADDRESS 

14.INAREA 000B 

14,12(0,1) STORE AREA ADDR 000B 

14,1(0,0) 

14,24(0,1) STORE LINE NUMBER 

15.DCBR+48 LOAD RDHRT ROUT ADDR 

4(1),X , F7* A38557 

14,15 A38557 

LNKRES RETURN 



300678 



000678 


4110 


BFB6 


00067C 


9200 


1004 


000680 


920D 


1005 


000684 


41E0 


0100 


000688 


40E0 


1006 


00068C 


4050 


102A 


000690 


41E0 


BF52 


000694 


50E0 


100.8 


000698 


41E0 


B74A 


00069C 


50E0 


100C 


0006A0 


5040 


102C 


0006A4 


5060 


1014 


0006A8 


41E0 


0001 


0006AC 


40E0 


1018 


0006B0 


58F0 


BF82 


0006B4 


94F7 


1004 


0006B8 


05EF 




0006BA 


07FA 









479 WRITETIV 


EQU 






480 


WRITE 




OOFBC 


481+ 


LA 


00004 




482+ 


MVI 


00005 




483+ 


MVI 




00100 


484 + 


LA 




00006 


485+ 


STH 




0002A 


486+ 


STH 




00F58 


487+ 


LA 




00008 


488 + 


ST 




00750 


489+ 


LA 




0000C 


490+ 


ST 




0002C 


491+ 


ST 




00014 


492 + 


ST 




00001 


493+ 


LA 




00018 


494 + 


STH 




00F88 


495+ 


L 


00004 




496+ 


NI 






497+ 


BALR 






498 


BR 



DECBD,TIV,DCBR, (INAREA, (MS3ADDR)), f256, (MSGLEN)) , 

(SELREG),1,MF=E 

1,DECBD LOAD DECB ADDRESS 

4(1),0 

5(1), 13 

14,256(0,0) 000B 

14,6(0,1) STORE LENGTH 000B 

MSGLEN, 42(0,1) STORE WLENGTH 000B 

14,DCBR 

14,8(0,1) STORE DCB ADDRESS 

14, INAREA 000B 

14,12(0,1) STORE AREA ADDR 000B 

MSGADDR,44(0,1) STORE WAREA ADDR 000B 

SELREG,20(0,1) STORE TERM. LIST ADDR. 

14,1(0,0) 

14,24(0,1) STORE LINE NUMBER 

15,DCBR+48 LOAD RDWRT ROUT ADDR 

4(1),X'F7' A38557 

14,15 A38557 

LNKREG RETURN 



362.44 OS BTAM SRL 



LOC 


OBJECT CODE 


ADDR1 


ADDR2 


STMT SOURCE 


STAT] 


0006BC 










500 READTT 
501 


EQU 
READ 


0006BC 


4110 


BFB6 




OOFBC 


502+ 


LA 


0006C0 


9404 


1004 


00004 




503+ 


NI 


0006C4 


9203 


1005 


00005 




504+ 


MVI 


0006C8 


41E0 


0100 




00100 


505+ 


LA 


0006CC 


40E0 


1006 




00006 


506+ 


STH 


0006DO 


41E0 


BF52 




00F58 


507+ 


LA 


0006D4 


50E0 


1008 




00008 


508+ 


ST 


0006D8 


5040 


100C 




OOOOC 


509+ 


ST 


0006DC 


41E0 


0001 




00001 


510+ 


LA 


0006EO 


40E0 


1018 




00018 


511+ 


STH 


0006E4 


58F0 


BF82 




00F88 


512+ 


L 


0006E8 


94F7 


1004 


00004 




513+ 


NI 


0006EC 


05EF 








514+ 


BALR 


0006EE 


07FA 








515 


BR 
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DECBD.TT, DCBR, (MSGADDR) , 256 , , 1, MF=E 

1,DECBD LOAD DECB ADDRESS 

4(1), 4 

5(1) ,3 

14,256(0,0) 000B 

14,6(0,1) STORE LENGTH OOOB 

1 4 , DCBR 

14,8(0,1) STORE DCB ADDRESS 

MSGADDR,12(0,1) STORE AREA ADDR OOOB 

14,1(0,0) 

14,24(0,1) STORE LINE NUMBER 

15.DCBR+48 LOAD RDWRT ROUT ADDR 

4(1),X'F7' A38557 

14,15 A38557 

LNKREG RETURN 



Appendix P: Remote 3270 Sample Program 362.45 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 3/22/72 



0006F0 

0006F0 606040402D 

0006F5 01 

0006F6 6060C1C12D 

0006FB 82 



517 * DISPLAY SELECTION ADDRESSES 

518 * THE CURRENT MACRO OPERANDS ARE FOR TWO REMOTE 3270 DISPLAYS; 

519 * 1. OTH CU, OTH DEV (60604040) 

520 * 2. OTH CU, 1ST DEV (6060C1C1) 

521 SELDSPLY DFTRMLST OPENLST, (606040402D,6060C1C12D) 



522+SELDSPLY DS 
523+ DC 

524+ DC 

525+ DC 

526+ DC 



OX A28630 

X* 606040402D* TERMINAL LIST ENTRY 
ALK1) PROCEDURE FLAGS 
X"6060C1C12D' TERMINAL LIST ENTRY 
ALK130) PROCEDURE FLAGS 



0006FC 

0006FC 404040402D 

000701 01 

000702 4040C1C12D 
000707 82 



528 
529 

530 * 

531 * 

532 SPECPOL 
533+SPECPOL 
534+ 

535+ 
536+ 
537+ 



DISPLAY SPECIFIC POLLING ADDRESSES 
THE CURRENT MACRO OPERANDS ARE FOR TWO REMOTE 3270 DISPLAYS: 

1. OTH CU, OTH DEV (40404040) 

2. OTH CU, 1ST DEV (4040C1C1) 
DFTRMLST OPENLST, (404040402D,4040C1C12D) 



DS OX A28630 

DC X'404040402D' TERMINAL LIST ENTRY 

DC ALK1) PROCEDURE FLAGS 

DC X'4040C1C12D" TERMINAL LIST ENTRY 

DC AL1 (130) PROC EDURE FLAGS 



362.46 OS BTAM SRL 
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LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 
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000708 0202 

00070A DO 

00 07 0B 

00070B 40407F7F2D 

000710 01 

000711 3737373737 

000716 02 

000717 FE 

000718 0010 



539 * DISPLAY GENERAL POLLING ADDRESS 

540 POLDSPLY DFTRMLST AUTOWLST, (40407F7F2D, 3737373737) 



541+ DC 

542+ DC 
543+POLDSPLY DS 

544+ DC 

545+ DC 

546+ DC 

547+ DC 

548+ DC 

549+ DC 



2YLK2) TOTAL AND ACTIVE ENTRY COUN000A 

YLKX^O'+e+X'lO'*!) PACKED WIDTH AND WRAP BIT 

OX 000A 

XL5'40407F7F2D' 

YLK1) 000A 

XL5' 3737373737' 

YLK2) 000A 

X'FE' END OF LIST CHARACTER 000 A 

YL2 (2*6+4) OFFSET 000A 



OOOA 



00071A 1000 
00071C 00000008 
000720 0000000000000000 
000740 0000000C 

000744 00 

000745 0000 

000747 00 

000748 00000000 
00074C 00000006 
000750 0000000000000000 
0007D0 

00OF20 0000000000000000 
000F6S 
000F68 80 
000F69 000FBC 



552 * 

553 H4096 

554 EIGHT8 

555 DSPTAB 

556 TWELVE 

557 IciDEX 



CONSTANTS 



DC 
DC 
DC 
DC 
DC 



558 CUDVSAVE DC 



559 SELSAVE 

560 SIXL 

561 INAREA 

562 INAREAL 

563 SAVE 
56f 

565 DECBADDR DC 

566 DC 

567 DCBR DCB 



DC 

DC 

DC 

EQU 

DC 

ns 



H'4096' 

F'8' 

XL32'0" 

F'12' 

X'OO' 

X'0000' 



CONSTANT OF 8 
DISPLAY TABLE 
LENGTH OF 12 
INDEX BYTE SAVE AREA 
CU,DV SAVEAREA 



F'O" 

F"6« 

500F*0' INPUT AREA 

* -INAREA 

18F'0' 

OF 

X'80« 

AL3CDECBD) 

DSORG=CX,MACRF=(R,W) , DDNAME=DD3270,EROPT=T, DEVD=BS, 

MODE= ( , , A, A) , CODE=EBCDIC 



000F58 
000F58 
000F6C 



569+* 

570+* 

571+ 

57 2+ DCBR 

573+ 



DATA CONTROL BLOCK 

ORG *-20 TO ELIMINATE UNUSED SPACE 
DS OF'O' ORIGIN Ofl WORD BOUNDARY 
ORG *+20 TO ORIGIN GENERATION 



575+* 



COMMON ACCESS METHOD INTERFACE 



0O0F6C 00 
O0 0F6D 000001 
000F70 0000 
000F72 1000 
000F74 00000001 



577+ 


DC 


578+ 


DC 


579+ 


DC 


580+ 


DC 


581+ 


DC 



ALKO) BUFNO 
AL3U) BUFCB 
AL2(0) BUFL 
BL2' 0001000000000000' 
A(l) I03AD 
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LOC OBJECT CODE 



000F78 00 
000F79 10 
000F7A FF 
000F7B 00 
000F7C 00 
000F7D 000000 



000F80 C4C4F3F2F7F04040 
000F88 02 
000F89 00 
000F8A 2020 



ADDR1 ADDR2 STMT SOURCE STATEMENT 
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000F8C 


00000000 


00 0F9O 


00 


000F91 


80 


00OF92 


0000000000000000 


000FAC 


0000000000000000 


000FBC 




OOOFBC 


00000000 


000FC0 


00 


000FC1 


01 


O0OFC2 


0000 


000FC4 


00000F58 


000FC8 


00000000 


OOOFCC 


00000000 


000FD0 


00000000 


000FD4 


0000 


000FD6 


0000 


00OFD8 


00 


000FD9 


00 


000FDA 


0000 


OOOFDC 


00000000 


OOOFEO 


00000000 



583+* 

585+ 
586+ 
587+ 
588+ 
589+ 
590+ 

592+* 

591*+ 
595+ 
596 + 
597+ 

599+* 



FOUNDATION EXTENSION 



DC BLl'OOOOOOOO' BFTEK, BFLN.HTARCHY 

DC BL1' 00010000' BTAM EROPT CODE 

DC ALK255) BTAM BUFFER COUNT 

DC ALKO) 

DC BLl'OOOOOOOO' RECFM 

DC AL3(0) EXLST 

FOUNDATION BLOCK 

DC CL8'DD3270' DDNAME 

DC BL1' 00000010' OFLGS 

DC BLl'OOOOOOOO" IFLG 

DC BL2* 0010000000100000* MACR 

BTAM INTERFACE 



601+ 


DC 


F'O' 


602+ 


DC 


BLl'OOOOOOOO' MODE 


603+ 


DC 


BLl'10000000' MAS, CODE 


604 + 


DC 


XL26'0' CONTROL CHARS 


605+ 


DC 


4F*0' RESERVED 


607 


READ 


DECBD , TI , DCBR , MF=L 


608+ 


DS 


OF 


609+DECBD 


DC 


A(0> EVENT CONTROL BLOCK 


610+ 


DC 


BLl'OOO' 


611+ 


DC 


ALK1) TYPE FIELD 


612+ 


DC 


AL2(0) LENGTH 


613 + 


DC 


A (DCBR) DCB ADDRESS 


614+ 


DC 


A(0) AREA ADDRESS 


615+ 


DC 


A(0) ERROR INFO. FIELD ADDR 


616 + 


DC 


A(O) TERMINAL LIST ADDRESS 


617 + 


DC 


AL2C0) LINE NUMBER 


618+ 


DC 


AL2(0) RESPONSE FIELD 


619+ 


DC 


ALKO) TP-OP CODE 


620 + 


DC 


ALKO) ERROR STATUS 


621+ 


DC 


AL2(0) CSW STATUS 


622 + 


DC 


AL4(0) CURRENT ADDR LIST PTR 


623+ 


DC 


AL4(0) CURRENT ADDR POLL PTR 


624 


END 
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RELOCATION DICTIONARY 



POS.ID 


REL.ID 


FLAGS 


ADDRES! 


01 


01 


08 


000019 


01 


01 


08 


0002B9 


01 


01 


08 


000F69 


01 


01 


OC 


000FC4 



3/22/72 



CROSS-REFERENCE 



SYMBOL 

ABNORMAL 

BASEREG 

BASEREG2 

CHKEOT 

CHKIT 

CHKTP20 

CHK41CC 

CHK7FCC 

CKTP11 

CKTP20 

CLEAR 

CLEARINT 

CLOSE 

CLOSEMG 

CLOSEMGL 

CUDVSAVE 

DC BR 



LEN VALUE DEFN 



REFERENCES 



3/22/72 



00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00002 
00004 



0002C8 
00000B 

oooooc 

000262 
0000A2 
00027A 
00023C 
000232 
00026E 
00025A 
00006D 
00017C 
0002B4 
000585 
00003C 
000745 
000F58 



00321 
00030 
00031 
00278 
00118 
00286 
00266 
00262 
00282 
00275 
00057 
00196 
00304 
00406 
00411 
00558 
00572 



UJSCBAUOK uuuui uuut'oe UUDOO 
DECBD 00004 000FBC 00609 



DSPTAB 

DSPTABRG 

EIGHT 

EIGB.T8 

ENTER 

ENTERINT 

EOTRCVD 

EOTRSPTX 

ERALUNP 

ERALUNPL 

FIVE 

FMTREG 

FMT0 

FMT0SZ 

FMT01 

FMT1 

FMT1SZ 

FMT2 

FMT2SZ 

FNDSEL 

FORMATBR 

FORMAT0 

FORMAT1 

FORMAT2 

FOUR 

FOURTY1 

H4096 

IHB0003A 

III AREA 



00032 
00001 
00001 
00004 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00002 
00002 
00004 



000720 
000009 
000008 
00071C 
00007D 
000134 
000040 
000040 
0005C5 
000004 
000005 
000008 
0000F0 
0000A7 
0000F0 
000110 
0000DA 
00019C 
0000F7 
0000C0 
0000E4 
0002E0 
000387 
000461 
000004 
000041 
00071A 
00003C 
000750 



00555 
00028 
00045 
00554 
00059 
00168 
00054 
00053 
00418 
00420 
00041 
00027 
00144 
00356 
00147 
00157 
00383 
00205 
00397 
00126 
00139 
00335 
00358 
00385 
00040 
00055 
00553 
00087 
00561 



INAREAL 00001 0007D0 00562 

INDEX 00001 000744 00557 

INITIAL 00001 00004A 00094 

LAST 00001 000080 00061 



0089 
0066 
0067 
0285 
0125 

0264 
0302 
0277 
0270 
0164 
0165 
0193 
0184 
0185 
0113 
0077 
0613 

0114 
0502 
0090 
0090 
0202 
0239 
0158 
0159 

0279 
0171 
0172 
0100 
0134 
0140 
0096 
0207 
0141 
0151 
0142 
0198 
0120 
0137 
0095 
0150 
0197 
0148 
0267 
0069 
0083 
0107 
0295 

0127 
0104 
0101 



0124 0243 0247 0249 0251 0253 0255 0268 0272 0280 0284 0288 

0067 0068 

0068 0069 



0212 
0213 
0245 
0411 



0079 0293 0299 0309 0430 0436 0448 0456 0468 0474 0487 0495 0507 0512 

0259 0263 0267 0269 0271 0276 0279 0283 0287 0290 0426 0443 0463 048L 

0566 

0135 

0135 0136 0149 0203 



0206 



0191 

0134 0136 0137 0148 0149 0202 0203 



0356 
0383 
0397 
0158 0160 0162 0164 0206 0208 0210 0212 



0108 0108 0109 0109 0113 0119 0158 0160 0162 0164 0206 0208 0210 0212 
0450 0470 0489 0562 



0123 0192 
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CROSS-REFERENCE 



SYMBOL LEN VALUE DEFN 
LNKREG 00001 00000A 00029 



REFERENCES 



MSGADDR 

MSGLEN 

NOPRINT 

NOPTR 

NOPTRL 

ONCEMORE 

ONE 

PA1 

PA1INT 

PA2 

PA2INT 

PA2INT1 

POLDSPLY 

PTRTAB 

READ 

READBOF 

READBUFL 

READTI 

READTRV 

READTT 

REGZERO 

REG2 

RETCODE 

RTNCDC 

RTNCDRG 

RTNCDTAB 

RTNCD0 

RTNCD1C 

RTNCD10 

RTNCD14 

RTNCD18 

RTNCD20 

RTNCD24 

RTNCD4 

RTNCD8 

SAMP327R 

SAVE 

SELDSPLY 

SELREG 

SELSAVE 

SEVEN 

SEVENF 

SIX 

SIXL 

SIXTN 

SPEC POL 

SSCHECK 

SSMSG 

START 

THREE 

TIMEOUT 



00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00004 
00001 
00001 

00004 
00001 
00001 
00001 
00004 
00001 
00001 
00001 
00001 
00004 
00001 
00001 



000004 
000005 
0001C0 
000558 
00002D 
00015C 
000001 
00006C 
00014C 
00006E 
000150 
000150 
00070B 
00000D 
000072 
0005C1 
000004 
000600 
000640 
0006BC 
000000 
000002 
0001D8 
00020C 
00000F 
0001DC 
000204 
00021C 
000210 
000214 
000218 
000220 
000224 
000206 
00020C 
000000 
000F20 
0006F0 
000006 

000748 
000007 
00007F 
000006 
00074C 
000010 
0006FC 
0002C8 
000010 
000042 
000003 
000001 



00024 
00025 
00215 
00399 
00404 
00187 
00037 
00056 
00177 
00058 
00179 
00183 
00543 
00032 
00106 
00414 
00416 
00441 
00461 
00500 
00021 
00022 
00223 
00242 
00033 
00225 
00236 
00250 
00244 
00246 
00248 
00252 
00254 
00238 
00241 
00001 
00563 
00522 
00026 

00559 
00044 
00060 
00042 
00560 
00047 
00533 
00316 
00052 
00090 
00039 
00051 



0097 
0199 
0498 
0095 
0096 
0178 
0216 
0217 
0195 
0103 
0160 
0161 
0162 
0163 
0211 
0452 

0102 
0416 

0110 



0117 
0098 
0229 
0224 
0224 
0226 
0233 
0230 
0231 
0232 
0234 
0235 
0227 
0228 

0070 
0091 
0091 
0191 
0133 

0263 
0122 
0129 
0271 
0116 
0115 

0080 

0271 



0098 
0200 
0515 
0107 
0151 

0404 



0119 
0208 
0209 
0210 



0099 0110 0111 0112 0152 0153 
0201 0218 0219 0220 0237 0239 



0154 
0240 
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0173 0174 0175 0188 0189 0190 
0265 0273 0274 0439 0459 0477 



0150 0171 0184 0197 0216 0432 0491 0509 
0172 0185 0198 0217 0429 0486 



0121 0194 



0155 0166 0176 0204 0214 0221 0281 



0117 0121 0121 0127 0128 0129 0130 0132 0136 0149 0203 
0111 0153 0174 0189 0200 0219 



0071 0311 0330 

0131 0186 

0100 0100 0101 0103 0103 

0191 0192 0194 0194 0433 



0116 
0492 



0119 0122 0122 0123 0131 0132 0133 0186 
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CROSS- REFERENCE 



SYMBOL 


LEN 


VALUE 


DEFN 


REFERENCES 






TP06 


00001 


000006 


00043 


0269 








TP11 


00001 


000011 


0004b 


0283 








TP20 


00001 


000020 


00048 


0276 


0287 






TWELVE 


00004 


000740 


00556 


0273 








TWENTY4 


00001 


000018 


00049 


0114 


0279 






TWENTY8 


00001 


00001C 


00050 


0269 


0276 


0283 


0287 


TWO 


00001 


000002 


00038 


0113 


0113 


0119 


0119 


WAITD 


00001 


000228 


00257 


0099 


0112 


0154 


0175 


WORKREG 


00001 


000003 


00023 


0128 


0130 






WRITETI 


00001 


0005CC 


00424 


0097 


0152 


0173 


0188 


WRITETIV 


00001 


000678 


00479 










ZERO 


00001 


000000 


00036 


0101 


0123 


0136 


0149 



3/22/72 



0190 0201 0220 



0199 0218 



0192 0203 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 

♦STATISTICS* SOURCE RECORDS (SYSIN) = 434 SOURCE RECORDS (SYSLIB) = 4875 
♦OPTIONS IN EFFECT* LIST, DECK, NOLOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM, LINECNT 
784 PRINTED LINES 



55 
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INDEX 



Where more than one page reference is 
given, the major reference is first. 



Abend codes 27 8-2 81 
access method, defined 11 
accumulators, error threshold 193 
acknowledgments (see responses) 
ACK-0, ACK-1 sequences 34 
ACSMETH operand (DATAMGT macro) 2 83 
action operand (CHGNTRY macro) 37 
ACTIVATE operand (CHGNTRY macro) 37 

for IBM 32 70 (local) 19 0.13 
activating teleprocessing system 49-53 
for IBM 3270 (local) 190.12 
for IBM 3270 (remote) 190.4 
activating terminal list entries 37,19 0.3 
AD operand (DFTRMLST macro) 147 
ADAPTER operand (IODEVICE macro) 28 4 
addressability, establishing for DCBs and 

DECBs 49 
addresses, display line (IBM 2260 and 

2265) 78 
ADDRESS operand 

of IOCONTRL macro 283 
of IODEVICE macro 28 4 
addressing 

characters 16 
definition of 16,53 
double 129 

BSC stations required to use 129 
for IBM 3270 (remote) 

control unit addresses 190.2 
device addresses 190.2 
lists 35, 36 

(see also under individual terminal 
or line types in Start-Stop and 
BSC Read and Write Operations 
chapters) 
defining 35-36 
DFTRMLST macro defines 35 
formats 35-36,247-255 
all-skip-bits-on return code (of READ and 

WRITE macros) 6 2.1 
alternate source for DCB parameters 25-2 6 
AN operand (DFTRMLST macro) 1 45 
analysis, user program 55 
ANDGUID operand (PARMLIST macro) 180.4 
ANSRING operand (RESETPL macro) 64 
answerback 17 

for IBM 2760 99 
answering 

defined 54 

for BSC stations 142,143-149 
lists 35 
appearance, line 12 
area operand 

of DFTRMLST macro 36 
of TRNSLATE macro 46 
kREA operand (ONLTST macro) 2 39 



area station address 

(IBM 2715) 175-176,182.5 
AS macro (IBM 2715) 174.2-175 

ID operands table 176 
ASCTR macro (IBM 2715) 178-179 
ASGROUP operand (AS macro) 175 
ASLIST macro (IBM 2715) 181-182.1 
ASLOG operand (ASCTR macro) 178 
ASMTRTAB macro 45 
assembly error messages 265-281 
AT&T 83B3 116 
ATTENT operand (RESETPL macro for local 

IBM 3270) 190.13 
attention interruptions 19 0.12 
ATTLST operand (CHGNTRY macro for local 

IBM 3270) 190.12 
attributes of communications lines 11-12 
authsequence operand DFTRMLST 

macro) 146,147 
Auto Poll feature 

polling list 35-37 

and reset function 64 
index byte, use of 63,125 
restriction on use of WRITE Txv 

macro 58 
use of CHGNTRY macro with 37 
specifying in IODEVICE macro 2 85 
start-stop 

index byte 125 

programming considerations 125-126 
terminal list for 3 5 
AUTOLST operand 

of CHGNTRY macro 37 
of DFTRMLST macro 35 
automatic answering 1 2 

specifying at system generation 285 
automatic dialing 12 

specifying at system generation 28 5 
automatic EOM mode (IBM 2760) 96,98,100 
automatic polling 

(see Auto Poll feature) 
AUTOWLST operand 

of CHGNTRY macro 37 
of DFTRMLST macro 35 
A1,A2 characters (IBM 2760) 95,101,104 



BFTEK operand (DCB macro) 27 
bidding for use of line 15,53 
blocks, message, use of 54,55 
BSCLST operand (DFTRMLST macro) 35 
BSC1 ,BSC2,BSC3 values in IODEVICE 

macro 1 27 
BUFCB operand (DCB macro) 2 7 
BUFFER operand (TPEDIT macro) 321 
bufferaddr operand (RELBUF macro) 4 4 
buffering 17-18,39-44 
(see also buffers) 
dynamic 17-18,40-41 

effect of stopping CPU 41 
in Read operations 40-41 
in Write operations 43 



Index 363 



lost messages 41 
specifying 27,39,41 

programmer buffering 39-40 

techniques 17-18,39-44 
buffers 

control block 17,27,39 

defining 17,39 

extra-buffer condition 40-41 

for IBM 3270 (local) 190.11 

for IBM 3270 (remote) 190.3 

length, specifying 27,39 

link field 41,43 

management 39-44 

maximizing utilization of 18 

pool 17 

quantity, specifying 27,39 

releasing 44 

requesting 43-44 

restriction on use of CLOSE macro 50 

unavailable 41,191 

return code for READ and WRITE 
macros 63 

unused buffer condition 41,43 
buffer-unavailable condition 41,191 

return code for READ and WRITE 
macros 63 
BUFL operand (DCB macro) 27 
BUFNO operand (DCB macro) 27 
BUILD macro 39 

busy- line return code for READ and WRITE 
macros 62 

calling 

defined 54 

for BSC stations 142-148 

lists 35 
central computer 11,18 
central processing unit (CPU) 11 
centrally controlled (multipoint) system 53 
channel commands 19,54-55 
channel program 19,54-55 

(see also sections on individual types 

of terminals (start-stop) or lines 

(BSC) in the Read and Write Operations 

chapters) 
CHGNTRY macro 36-38 

for IBM 3270 (local) 190.12 

for IBM 3270 (remote) 190.3 

restriction on use with certain types 
of terminal lists 37 
cid operand (LERPRT macro) 194 
CKAND operand (PARMLIST macro) 180.4 
CKLNGTH operand (PARMLIST macro) 180.2 
CKMOD10 operand (PARMLIST macro) 18 0.3 
CKMODll operand (PARMLIST macro) 180.2 
CKMONKY operand (PARMLIST macro) 180.2 
CKNONUM operand (PARMLIST macro) 180.4 
CKNUM operand (PARMLIST macro) 180.5 
CKOR operand (PARMLIST macro) 180.3 
CKRANGE operand (PARMLIST macro) 180.3 
CLEAR operand (LERPRT macro) 194 
CLOSE macro 51-52,50 

cntrlseq operand (DFTRMLST macro) 36 
code, transmission 14 

charts 295-309 

Dual Code feature 29 

specifying at system generation 285 

for BSC stations 127,287-288 



289-290 



for IBM 3270 (local) 287 
specifying for BSC 29 
CODE operand (DCB macro) 29 
code translation 45-47 

for IBM 3270 (local) 190.11 
for IBM 3270 (remote) 190.3 
tables 46-47 
assembling 45 
modifying 45 
names 46-47 

World Trade telegraph terminals 
coding format, macro 

instruction 21-22,291 
commands, channel 19,54-55 

( see also sections on individual 
types of terminals (start-stop) or 
lines (BSC) in the Read and Write 
Operations chapters) 
communications common carrier, defined 11 
communications lines 

binary synchronous (BSC) , defined 14-15 

closing (deactivating) 49-52 

configurations 11-13 

control 14-16,53-54 

data representation on 14 

dial connections 12 

disabling 54 

enabling 54 

establishing communication on 15-17 

grouping local IBM 3270 devices 190.10 

half-duplex 14 

identifying local IBM 3270 devices 190.10 

line address 23-25 

line appearance 12 

line control 14-17,53-54 

line group 

characteristics of 23 

characters ( see line control characters) 

data sets 23 

checking for successful opening of 51 
definition of 23 
establishing 23-25,190.1 
examples 24-25 

redefining using DD statements 25 
requirements 23 
multipoint 12 
nonswitched 11-13 
opening (activating) 49-52 
point-to-point 11 
resetting 53,56,63-64 
specifying number of 23-25 
specifying type of 24 
start-stop, defined 14 
switched 11-13,16 
types 11 
compatibility, BSC remote station 127 
completion codes, ONLTST macro 240 
component, definition of 11 
CONFIGUR macro (IBM 2715) 174-174.2 
configurations, line and station, 

supported by BTAM 311-312 
console messages, online test 244 
contention system, definition of 15,53 
continuation lines, BTAM macros 21 
control byte, SWLST form of terminal 
list 147,149,128 

changing value of 36-37 
control characters 18,55-56 
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end-to-end 

definition of 18 
examples of 18 
line (data link) control 

coding in USASCII or Transcode 

format 127 
examples of 18 
functions 15-17 
placing in output area 55 
scanning input area for 55 
specifying 15 
use of 55-56 

where to find information on 56 
control codes, IBM 50 322 
control mode 53 
control station 11,18,53 
control transactions (IBM 2715) 180 
control unit address 24 

control unit not operational message 274 
controlvalue operand (DFTRMLST macro) 145 
conversational operations 55 

defining DECB for 62 
conversion for IBM 3270 190.18 
CORE operand (CONFIGUR macro) 174 
count operand 

of REQBUF macro 43 
of WAIT macro 65 
counter control byte 182.7 
counter readout (see IBM 2715 



SUICUUXI 



r*M ^.^-m 



»v *-o = H^n+- \ 



counter testing ( see IBM 2715 

counter testing) 
CPU (central processing unit) 11 
CTINIT operand (CTRGROUP macro) 180 
CTRADR operand (CTRLIST macro) 182.1 
CTRGROUP macro (IBM 2715) 179-180 
CTRLIST macro (IBM 2715) 182.1-182.2 
CTROP operand (CTRLIST macro) 182.2 
CTRRD operand (CTRLIST macro) 182.2 
CTTEST operand (CTRLIST macro) 182.2 
cummulative counters (line error 

recording) 192-193 



data control block (DCB) (for line group) 

activating and deactivating 49-52 

contents of 32-34 

defining 25-31 

establishing addressability for 49 

format of 32-33 

referencing by DSECT 49 
data control block (DCB) (for local IBM 

3270 device group) 190.9,190.10 
data, defined 18 
data definition (DD) statements 23-25 

examples 24 
data event control block (DECB) 

changing contents of 57 

contents of 257-264 

defining 56-57 

establishing addressability for 49 

for conversational operations 62 

for leading graphics operations 62 

format of 264 

parameters in 56 

purpose of 57 

referencing by DSECT 49 
data link control characters 



coding in USASCII or Transcode 

format 127 
examples of 18 
functions 15-17 
placing in output area 55 
scanning input area for 55 
specifying 15 
use of 55-56 

where to find information on 
data link control 14-17,53-56 
(see also communications lines, 



56 



line 



193 

(DCB)) 
26-31 



239 



control) 
data representation on communications 

line 14 
data tone 

defining 145,142,149-150 
recommended character sequence 

and length for 150 
specifying 3 6 
datack operand (LERB macro) 
DATAMGT macro 2 83 
DCB ( see data control block 
DCB macro (for line groups) 
deb operand 

of CLOSE macro 52 
of OPEN macro 52 
DCB operand (ONLTST macro) 
debaddr operand 

of CHGNTRY macro for IBM 3270 

(local) 190,12 
of READ macro 61 
of RELBUF macro 4 4 
of REQBUF macro 43 
of TRNSLATE macro 4 5 
of WRITE macro 61 
DCBBUFL field 41 
DCBD macro 49 
DCBOFLGS field 49 
DD (data definition) statements 23-25 

examples 24 
DDNAME operand (DCB macro) 27 
deactivating teleprocessing system 49-52 
for IBM 3270 (local) 190.12 
for IBM 3270 (remote) 190.4 
DECADRPT field 262 
DECAREA field 40,259 
DECB ( see data event control block) 
DECB operand (ONLTST macro) 239 
decbaddr operand (RESETPL macro for local 
IBM 3270) 190.13 
196 

41,259 

56,194-195,262 
63,259 
56,195,262 
41,56,259-260 
64,263 
56,261 
261 



DECCMCOD field 
DECCOUNT field 
DECCSWST field 
DECENTRY field 
DECERRST field 
DECFLAGS field 
DECPOLPT field 
DECRESPN field 
DECRLN field 



DECSDECB field 41,194,257 
DECSENS0 field 56,195,259 
DECTPCOD field 261-262 
DECTYPE field 257-258 
defining teleprocessing system 23-3! 
defining terminal lists 35-36,190.2 
DEMOD10 operand (TRLIST macro) 181 
DEMODll operand (TRLIST macro) 181 
DEUGROUP operand (AS macro) 175 



Index 365 



DEULIST macro (IBM 2715) 182 

DEVCOD operand (CTRLIST macro) 182.1 

DEVD operand 

of DCB macro 29 
of DCBD macro 49 
device operand (ASLIST macro) 181 
DFTRMLST macro 35-36 

limit on number of entries 36 
operands for: 

ATST 83B3 116 

Auto Poll start-stop terminals 125 

IBM 1030 67 

IBM 10 50 (nonswitched) 69 

IBM 1050 (switched) 71 

IBM 1060 74 

IBM 2260, 2265 76 

IBM 2740 

with Dial-up feature 85 
with Dial-up and Checking 

features 86 
with Dial-up and Checking 

features and IBM 2760 107,109 
with Dial-up and Transmit 

Control features 88 
with Dial-up, Transmit Control, 

and Checking features 90 
with Station Control feature 92 
with Station Control and 
Checking features 9 3 
IBM 3270 (remote) 190.2 
nonswitched multipoint stations 136 
switched point-to-point 

stations 143-148 
World Trade Telegraph terminals 123 
WU TWX 118 
WU 115A 120 
dialchars operand (DFTRMLST macro) 36 
dialcount operand (DFTRMLST macro) 36 
dialing 

defined 12 
specifying digits 36 
DIALST operand 

of CHGNTRY macro 37 
of DFTRMLST macro 35 
digit checking (IBM 2715) 182 
DIGIT operand 

of ASLIST macro 182 
of DEULIST macro 182-183 
DIGIT2 operand (DEULIST macro) 182.2 
direction of transmission 18 
DISC operand (CHGNTRY macro) 37 
DISPGUID macro (IBM 2715) 180.7 
display line addresses (IBM 2260,2265) 78 
DISPMSG operand 

of DISPGUID macro 180.7 
of GDULIST macro 182.3 
distinction between teleprocessing and 

conventional data processing systems 14 
DLE ETB sequence 56 
DLE ETX sequence 56 
DLE STX sequence 56 
double addressing 129 

BSC stations requiring use of 129 
DSECTs, usefulness of in user program 49 
DSORG operand (DCB macro) 27 
Dual Code feature (IBM 2701) 285,29 
Dual Communications Interface 
feature (IBM 2701) 285,29 



dummy transaction group (IBM 2715) 177 
duplex transmission 14 
dynamic buffering 17-18,40-41 

effect of stopping CPU 41 

in Read operations 40-41 

in Write operations 43 

lost messages 41 

specifying 27,39,41 

EBCDIC (extended binary-coded-decimal 
interchange code) 

transmission code, BSC stations 
using 127 

Transparency feature (IBM 2770) 183 
ECB (event control block) 56,65,40 
ECB operand (WAIT macro) 65 
ECBLIST operand 

of TWAIT macro 65 

of WAIT macro 65 
EDIT operand (TPEDIT macro) (IBM 50) 320 
Edit routine (IBM 50) 319-327 
EIB (error information byte) mode 128-129 
Enable command, effect of RESETPL , 

macro on 64 
enabling of switched line, defined 54 
ENDERR operand (CONFIGUR macro) 174.2 
end-of -address (EOA) character 53 
end-of -block (EOB) character 54 
end-of -transmission (EOT) character 53 
end-of-transmission-block (ETB) 

character 54 
end-to-end control characters 

definition of 18 

examples of 18 
entry operand 

of READ macro 62 

for IBM 3270 (local) 190.15 

for IBM 3270 (remote) 190.4 

of WRITE macro 62 

for IBM 3270 (remote) 190.6,190.7,190.8 
ENTRY operand 

of ASLIST macro 182 

of ONLTST macro 240 
entrylength operand (DFTRMLST 

macro) 145,147 
EOA (end-of -address) character 53 
EOB (end-of-block) character 54 
EOM operand (DCB macro) 31 
EOT (end-of -transmission) character 53 
EOT operand (DCB macro) 31 
EROPT operand (DCB macro) 27-28 
ERP ( see error recovery procedures (ERP) ) 
ERROPT operand (TPEDIT macro) 320 
ERROPT vs. EROPT spelling in DCB macro 28 
error codes (IBM 2715) 182.2 
error description word (IBM 50) 323 
error information byte (EIB) mode 128-129 
error messages, BTAM 265-281 

assembly errors 265-271 

error status messages 
IBM 2715 276-278 
IBM 2770 276 
IBM 3270 (remote) 277 
I/O error 272 
remote BSC station 275 
TCU inoperative 274-274.1 
error recording 191-194,28 
error recovery procedures (ERP) 191-227 

additional functions 192 
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appropriate action when 

ERP fails to recover 195 
basic functions 192 
buffer-unavailable condition 191 
completion codes 195 
detection and analysis 194 
ERP actions 

BSC 208-227 
IBM 3270 (local) 228.1 
start-stop 198-207 
error conditions for IBM 3270 

(remote) 190.9 
error information placed in DECB 192 
errors occurring during transmission 
of test messages 192 

exceptional conditions for IBM 3270 

(remote) 190.9 
for IBM 2760 99-100 
for IBM 3270 (local) 190.16,228.1 
indicators in DECB 194-195 
irrecoverable errors 191 
non-text errors 192 
number of retries 191 
permanent errors 191 
Read text errors 192 
sense byte analysis 
BSC ERP 211 
start- stop ERP 198 
user program 196 
should-not-occur errors 137 
specifying ERP options 192 
status analysis 
BSC ERP 209 
start-stop ERP 198 
user program 196 
suggested retry options for Read 
and Write operations 229-232.2 
temporary errors 191 
undefined errors 197 
use of Outboard Recorder (OBR) 191 
use of Read Skip macro 65 
use of Statistical Data Recorder 

(SDR) 191 
user program analysis procedure 195-196 
Write text errors 192 
error status flags (DECERRST field) 194,262 
error status messages 
IBM 2715 276-278 
IBM 2770 276 
IBM 3270 (remote) 277 
error threshold 

counters 192-193 
default count 193 
printing contents of 194 
errors, transmission 14 
( see also error recovery procedures (ERP) ) 
irrecoverable 191 
permanent 191 
Read text 192 
temporary 191 
undefined 197 
Write text 192 
ETB (end-of-transmission-block) 54 
event control block (ECB) 56,65,40 
exceptional conditions 55,195 

indicated in DECFLAGS 194 
execute format 

CLOSE macro 52 



OPEN macro 52 

READ macro 57 

WRITE macro 57 
exit list (DCB macro) 27 
EXLST operand (DCB macro) 27 
expanded ID verification 144-148,128 
explicit counter addressing 

(IBM 2715) 170,182.1 
EXTALRM operand (ASCTR macro) 178 
external alarm 182.11-182.12 

faaseq operand (DFTRMLST macro) 36 
F-character (IBM 2760) 95,98,100 
FEATURE operand (IODEVICE macro) 285 

for IBM 3270 (local) 286 
filmstrip positioning (IBM 2760) 95,96 
formats, message ( see message formats) 
frame change sequence (IBM 2760) 36 
FUNCERR operand (CONFIGUR macro) 174.1 



GDU operand (TRLIST macro) 181 

GDUAS macro (IBM 2715) 175 

GDULIST macro (IBM 2715) 182.2 

GDUNUMB operand (GDUAS macro) 175 

GDUTRANS macro (IBM 2715) 180 

GETID operand (CONFIGUR macro) 174.2 

GETPOOL macro 39 

guidance lights (IBM 2715) 181 



half-duplex transmission 14 

Halt I/O function 64 

HIGHCTR operand (ASCTR macro) 178 

HIGUID operand (PARMLIST macro) 180.3 



IAM operand (DCB macro) 30 
IBM System/360 and System/3 
( see also BSC Read and Write Operations 
chapter) 

double addressing required 158 
models supported as remote stations 

under BTAM 311 
programming considerations 157-15 8 
transmission over nonswitched multipoint 

line (Model 20 only) 157-158 
transmission over nonswitched point-to- 
point line 157 
transmission over switched point-to-point 
line 158 
IBM 50 319-327,184 

programming considerations 327 
IBM 1030 67-68 

(IBM 2715) 167,182 
(nonswitched) 69-70 
(switched) 71-73 
(IBM 2715) 167 
74-75 



IBM 1035 
IBM 1050 
IBM 1050 
IBM 1053 
IBM 1060 
IBM 1130 
( see also BSC Read and Write Operations 
chapter) 

double addressing recommended 158 
transmission over nonswitched multipoint 

line 157-158 
transmission over nonswitched point-to- 
point line 157 
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IBM 1800 
( see also BSC Read and Write Operations 
chapter) 

double addressing required 158 
transmission over nonswitched multipoint 

line 157-158 
transmission over nonswitched point-to- 
point line 157 
transmission over switched point-to- 
point line 158 
IBM 2213 (IBM 2770) 185 
IBM 2260-2848 76-79 

display line addresses 78 
IBM 2265-2845 76-79 

display line addresses 78 
IBM 2265 Model 2 (IBM 2770) 186 
IBM 2715 

control transactions 182.13 
data entry 182.6 
error status messages 182.9 
expanded capability 167 
external alarm 182.14-182.16 
message formats 182.7-182.9 
message header 182.7-182.8 
System/360 to 2715 182.7 
2715 to System/360 182.8 
programming notes 182.5-182.7 
pulse count 167-170 
counter testing 168 
scheduled counter readout 169 
set counter 169 
transaction header 182.8 
user tables 172.2 
loading 172.2 
sample assembly 329-344.7 
size 172.2 

table-generating macros 173-182.5 
AS macro 174.2-175 
ASCTR macro 178-179 
ASLIST macro 181-182.1 
CONFIGUR macro 174-174.2 
CTRGROUP macro 179-180 
CTRLIST macro 182.3-182.5 
CTRSCHED macro 180 
DEULIST macro 182.1-182.2 
DISPGUID macro 180.7 
GDUAS macro 175 
GDULIST macro 182.2-182.3 
GDUTRANS macro 180 
PARAMNUM macro 180-180.1 
PARMLIST macro 180.1-180.5 
STEND macro 182.5 
TGROUP macro 175 
TRANSLAT macro 180.7 
TRLIST macro 180.7-181 
IBM 2740 (General) 80-81 
buffer overflow 80 
Buffered Receive feature 80 
buffering restrictions 80 
features supported by BTAM 80 
Model 2 80-81 
multiple-block messages 80 
operator awareness 80 
responses 80-81 
TCU timeout 80 
IBM 2740 

Basic 82 
Checking 83-84 



Checking and IBM 2760 104-106 

Dial-up 85 

Dial-up and Checking 86-87 

Dial-up, Checking and IBM 2760 107-110 

Dial-up and Transmit Control 88-89 

Dial-up, Transmit Control, and 
Checking 90-91 

Model 2 80-81 

Station Control 92 

Station Control and Checking 93-94 
IBM 2741 111-115 

designing a message control routine 113 

general information 111-112 

interrupt facility 114 

programming considerations 113-115 
IBM 2760 95-103,104-106,107-110 

automatic EOM mode 99 

Al, A2 characters 95 

error detection and recovery 99-100 

filmstrip positioning 95 

function (F) character 95 

general information 95-103 

image index counter 97 

initializing images 101-102 

manual EOM mode 96,98,99 

manual frame advance 96 

message formats 98-99 

modes of operation 95-96 

multiple message blocks 102-103 

online testing 100-101 

programming considerations 101-103 

signals to operator 99 

start-up procedure 102 

utility response points 97 

V and H coordinates 96-97 
IBM 2770 183-188 

device control 183 

EBCDIC Transparency feature 183 

error status messages 276 

field-control operation 186-187 

nontransparent transmission 183 

polling and selection 183 

protected data 187 

record formats 187-188 

terminal function control 185-186 

transmission codes 183 

transmission delays 184 

vertical forms control 185 
IBM 2772 (see IBM 2770) 
IBM 2780 
( see also BSC Read and Write Operations 
chapter) 

addressing sequences 159 
examples 16 

component selection 161 
examples 162 

end-to-end control characters 160-161 

escape sequences 162-163 

format records 163 

horizontal format control 162-163 

internal errors 165 

Mode switch 161 

MODE operand of DCB macro 159 

multiple record transmission 163-164 

polling sequences 159 
examples 160 

programming considerations 164-166 

records, number and length 164 
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responses to abnormal 

conditions 165-166 
transmission over nonswitched multipoint 

line 159,161 
transmission over nonswitched point-to- 
point line 159,161 
transmission over switched point-to- 
point line 159-160,161 
use of NAK, EOT, and STX ENQ 

characters 165 
vertical forms control 16 2 
IBM 2790 (see IBM 2715) 
IBM 2972 189 
IBM 2980, character set and transmission 

code 313-317 
IBM 3270 Display System 

capabilities supported 190.1 
conversion to 190.18 
devices supported 190.1 

local 3270 display system 190.10-190.16 
ACTIVATE operand 190.13 
activating the system 190.12 
ATTENT operand 190.13 
attention interruptions 190.12 
ATTLST operand 190.12 
buffer management 190.11 
CHGNTRY macro 190.12-190.13 
code chart 287 
code translation 190.11 
dcbaddr operand 190.12 
deactivating the system 190.12 
decbaddr operand 190.13 
device grouping 190.10 
device identifying 190.10 
entry operand 190.15 
erase and write buffer 190.16 
erase unprotected fields 1.90.16 
error recovery procedures 190.16, 

228.1-228.3 
FEATURE operand 285 
inoutarea operand 190.14,190.15, 

190.16 
inoutlength operand 190.16 
interruptions, attention 190.12 
listposition operand 190.13 
MODEL operand 283,284 
on-line testing 190.16,246-246.1 
read buffer 190.15 
read buffer from position 190.15 
read modified fields 190.14-190*15 
read modified fields for operator 

input 190.14 
read modified fields from 

position 190.15 
read operations 190.14-190.15,156.1 
read options 60 
READ TB 190.15 
190.15 
190.14 
190.15 
190.15 

190.13 
190.16,232.2 



READ TBP 
READ TI 
READ TM 
READ TMP 
RESETPL macro 
retry options 



return codes for RESETPL 190.13 

rln operand 190.14 

sample program 362.1,362.31 

SKIP operand 190.13 

write buffer 190.15-190.16 



write operations 190.15-190.16,156.1 
write options 60 
WRITE TI 190.16 
WRITE TS 190.16 
WRITE TUS 190.16 
online testing 190.18 

remote 3270 display system 190.1-190.10 
activating the system 190.4 
buffer management 190.3 
CHGNTRY macro 190.3 
code chart 287 
code translation 190.3 
control unit addresses for 

polling 190.2 
control unit addresses for 

selection 190.2 
copy 190.9 

deactivating the system 190.4 
device addresses 190.2 
DFTRMLST 190.2 
entry operand 190.4,190.5,190.6, 

190.7,190.8 
erase and write buffer 190.8 
erase unprotected fields 190.8 
error conditions 190.9 
error recovery procedures 190.9 
error status message 277-278.1 
exceptional conditions 190.9 
inoutarea operand 190.4,190.6,190.7, 

190.8 
I/O interface code 190.3 
line control 190.4 
line groups 190.1 
message transmission 190.4 
on-line tests options 246.1 
on-line testing 190.9-190.10 
outarea operand 190.6,190.7 
read buffer 19 0.7 
read buffer from position 190.7 
read modified fields 190.6 
read modified fields for operator 

input 190.4-190.6 
read modified fields from 

position 190.6 
read operations 190.4-190.8 
READ TI 190.4 
READ TT 190.4,190.6,190.7 
retry options 190.9 
terminal lists 190.2,190.3 
write buffer 190.8 
write operations 190.8-190.9 
WRITE TI 190.7,190.8,190.9 
WRITE TIR 190.8 
WRITE TIV 190.6,190.7 
WRITE TR 190.8 
WRITE TT 190.8 
WRITE TTR 190.8 
WRITE TTV 190.7,190.8 
storage estimates 190.16 
system generation 190.16 
IBM 3735 190 

IBM 3977 Model 2 modem 51 
ID ACK-0 sequence 144-147 
ID ENQ sequence 144-147 
ID operand 

of AS macro 174.2 
of ASCTR macro 178 
of CTRGROUP macro 17 9 
of GDUAS macro 175 
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ID verification 16,128,142-148 

expanded 144-148,128 

regular 128 

specifying sequences 36 
IDCOUNT operand (CONFIGUR macro) 
idcount operand (DFTRMLST macro) 
IDENT operand 

of GDULIST macro 182.3" 

of PARMLIST macro 180.5 
IDLST operand (DFTRMLST macro) 
idsent operand (DFTRLST macro) 
IECTDECB macro 49 
image index counter (IBM 276 0) 
implicit counter addressing 

(IBM 2715) 170,182.1 
inarea operand 

of READ macro 61 

of WRITE macro 61 
index byte, Auto Poll 63,125 
initialization, user program 49 
initializing images (IBM 2760) 101-102 
inlength operand 

61 
61 



46 



174.2 
146,147 



35 
146,147 

97 



of READ macro 
of WRITE macro 
inoutarea operand 
of READ macro 61 

for IBM 3270 (local) 
for IBM 3270 (remote) 
of WRITE macro 61 

for IBM 3270 (local) 
for IBM 3270 (remote) 
190.8 
inoutlength operand 
of READ macro 61 
of WRITE macro 61 

for IBM 3270 (local) 190.16 
input, defined 18 
INQDISP operand 

of ASLIST macro 182 
of CONFIGUR macro 174.2 
of TRLIST macro 181 
intermediate block checking 

function 128-129 
interruptions, attention 190.12 
interrupt 

overflow 182.11 
power 182.11 
intreq operand (LERB macro) 193 
invalid optype return code for 

READ and WRITE macros 62 
invalid rln return code for 

READ and WRITE macros 62 
IUS (interchange unit separator) 

character 128,129 
11,12 characters (IBM 2760) 96-98 



190.14,190.15 
190.4,190.6 

190.15,190.16 
190.6,190.7, 



181 

182 
240 



27 



of TRNSLATE macro 
LENGTH operand 

of ASLIST macro 
of DEULIST macro 
of ONLTST macro 
LERB macro 192-193 
LERB operand (DCB macro) 
LERPRT macro 194 
limit on number of entries in terminal 

list 36 
line ( see communications line) 
line address 23-25 
line and station configurations supported 

by BTAM 311-312 
line appearance 12 

line configuration, specifying BSC 127,284 
line control 14-17,53-56,190.4 
line control characters 

coding in USASCII or Transcode 

format 127 
examples of 18 
functions 15-17 
placing in output area 
scanning input area for 
specifying 15 
use of 55-56 

where to find information on 56 
line-error-during-Open return code for 

READ and WRITE macros 62 
line error recording block 191-19 3", 27,28 
line group ( see communications lines) 
line number, relative (rln) 25 
line termination, switched 
link field, buffer 40,43 
list format 

52 
52 
57 
57 



55 
55 



12 



CLOSE macro 
OPEN macro 
READ macro 
WRITE macro 
list type 

of DFTRMLST macro 



35 



37 



listaddr operand (CHGNTRY macro) 37 
listposition operand (CHGNTRY macro) 

for IBM 327 (local) 190.13 
listype operand 

of CHGNTRY macro 37 
loading user tables (IBM 2715) 172-173 

errors in 173 
local terminal, defined 11 
LOG operand 

ASCTR macro 178 

TRLIST 180.8 
LOPEN macro 51,50 

restriction on use 51 
LOWGUIDE operand (PARMLIST macro) 180.3 



keyword operands, rules for coding 21 



leading graphics 

defining DECB for 62 

ignored by IBM 1800, 2715, 2770 60 

use of READ TPL macro with 
EIB mode 128-129 
length checking (IBM 2715) 181,182.1 
length operand 

of DFTRMLST macro 36 



machine requirements for BTAM 312 
MACRF operand (DCB macro) 27 
macro instructions 

coding format 21-22,291-293 

index to main discussions 372 
manual EOM mode (IBM 2760) 96,98,99 
manual frame advance (IBM 2760) 96 
MD operand (DFTRMLST macro) 147 
message 

defined 18 

determining source of 63 
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message blocks, use of 54,55 

message control routine example (BSC) 131 

message formats 

BSC 129-130 

console (online tests) 244 

IBM 2715 182.4 

IBM 2760 98-99 

IBM 2770 187-188 

IBM 3270 (local) 190.14-190.16 

IBM 3270 (remote) 190.4-190.9 

on-line test 241-244 
MINLN operand (TPEDIT macro) 319 
MODE operand (DCB macro) 29 
MODEL operand 

(IOCONTRL macro for local IBM 3270) 283 

(IODEVICE macro for local IBM 3270) 284 
MODULUS operand 

of ASLIST macro 182 

of DEULIST macro 182.2 
MON operand (DCB macro) 30 
MONDLY operand (DCB macro) 3 
MONERR operand (CONFIGUR macro) 174.2 
Monitor key (IBM 2715) 182.3 
MSG operand 

of ASLIST macro 182.1 

of CTRLIST macro 182.5 

of DEULIST macro 182.2 

of GDULIST macro 182.3 
multiple console support 
facility 11,265,311 

use by ERP 191,194 
multiple Waits 65 



NEXTAS operand (ASCTR macro) 179 
nlines operand (LERB macro) 193 
non-EIB mode 128-129 
nonswitched line, defined 11-13 
nontransparent mode 55,129 
nontto operand (LERB macro) 193 
NORGUID operand (GDULIST macro) 182.3 
NORM operand (ASLIST macro) 181 
NULL operand (TRLIST macro) 181 
numchars operand (CHGNTRY macro) 37 
numcnsent operand (DFTRMLST macro) 36 
numrec operand (DFTRMLST macro) 36 
numsent operand (DFTRMLST macro) 36 

OBRCNT operand '(IODEVICE macro) 286 
OLTEP for IBM 3270 190.18 
online testing 233-245 

binary synchronous 237-245 

BTAM responses to RFT messages from 
remote stations 238-239 

console messages 244 

how requested 237 

how specified 233,28 

ONLTST macro 239-240 

requirements for entering test 
mode 239 

RFT (request-for-test) message 
formats 241 

summary of options 245 

test type codes 237-238 

use of IBM 2770 Job switch 237,238 

use of IBM 2780 Mode switch 237,238 

use of WACK sequence 239 

for' IBM 276 100 - 1 1 

for IBM 3270 (local) 1W.T6T246.2 



for IBM 3270 (remote) 190.9,246.2 
minimum length requirement for READ 

Initial macro 62 
specifying use of 28 
start-stop 233-237 
how requested 233 
how specified 233,28 
restrictions 236,237 
test request message formats 233 
test type codes 234-236 
ONLTST macro 239-241 
Open flag of DCB 49,51 
OPEN macro 50-51 
OPENLST operand 

of CHGNTRY macro 37 
of DFTRMLST macro 35 
open-type polling list ( see polling, lists) 
operands, rules for coding 21-22 
operator's console, defined 11 
optical image unit ( see IBM 2760) 
optype operand 

of READ macro 61 
of WRITE macro 61 
ORGUID operand (PARMLIST macro) 180.4 
outarea operand 

of READ macro 61 
of WRITE macro 61 

for IBM 3270 (remote) 190.6,190.7 
Outboard Recorder (OBR) 191,192 
outlength operand 
of READ macro 61 
of WRITE macro 61 
output, defined 18 
overflow interrupt, (IBM 2715) 182.11 



PARAMNO. operand (GDULIST macro) 182.3 
PARAMNUM macro (IBM 2715) 180 
PARMLIST macro (IBM 2715) 180.1 
PARMLST operand (PARAMNUM macro) 180.1 
PC operand (CONFIGUR macro) 175 
PLN operand (PARAMNUM macro) 180 
polling 

characters 15,16 

defined 51,53 

double addressing 128-129 

for IBM 3270 (remote) 

control unit addresses 190.2 

device addresses 190.2 

lists 

( see also DFTRMLST macro) 
Auto Poll 35,36,12 5 
defining 35-36 
formats of 35-36,247-255 
limit on number of entries 36 
open- type, format 247-248 
restart address maintained in 

DECB 63 
wraparound type, format 248-249 
termination of, with RESETPL 
macro 63-64 
POLLING operand (RESETPL macro) 64 
positional operands, rules for coding 21 
POST operand (CHGNTRY macro) 37 
problem program initialization 49 
program-controlled interrupt (PCI) , 
used in dynamic buffering 41 

programmer b uffering 17^40 

pulse count feature (see IBM 2715) 
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41 
190.12,190.13- 

190.4-190.7 



READ Connect (TC) macro 149,143 
READ Connect with Tone (TCW) 

macro 149-150,143 
READ macro 57-63 

operation type options 58-60 

summary of options for IBM 3270 
(local) 60 

summary of options for switched 
BSC lines 143 
Read operations 18-19,54-56 

( see also READ macro) 

analyzing results of 55 

canceling 63-64 

extra buffer condition 
for IBM 3270 (local) 

190.15,156.1 
for IBM 3270 (remote) 

read skip operations 65-66 

READ Skip macro 65-66 
Read text error 28,192 
READ Initial (TI) macro 

for IBM 3270 (local) 190.14 

for IBM 3270 (remote) 190.4 

for start-stop Auto Poll 
operations 125-126 

length restriction when BSC online 
test used 62 
RECFM operand (TPEDIT macro) 320 
regular ID verification 128 
relative line number (rln) 25 
RELBUF macro 43-44 

using to release extra buffer 43 
remote computers, programming consider- 
ations for 157-158.1 
remote station 

compatibility (BSC) 127 

defined 11,18 

restrictions for connecting to lines in 
same line group 23 

specifying telephone number of 36 
remote terminal, defined 11, li 
REPLACE operand (TPEDIT macro) 
REQBUF macro 43,39,40 
reset operations 53,56,63 
RESETPL macro 63-64 

for IBM 3270 (local) 190.13 

used to change polling list while 
polling is in progress 37,190.3 
resetting the line 53,56,63 
response points (IBM 2760) 96-97 
responses 16-17 

to addressing 16,53 

to ENQ (BSC) 131 

to EOT (BSC) 131 

to error checking 54 

to message text (BSC) 130 

to polling 16,53 

to selection 16,53 
retry options 

for IBM 3270 (local) 190.16,232.2 

for IBM 3270 (remote) 190.9,232 
return codes 

for CHGNTRY macro 37-38 

for LOPEN macro 51 

for ONLTST macro 240 

for READ macro 62-63 

for RELBUF macro 44 

for REQBUF macro 43 
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for RESETPL macro 64 

for IBM 3270 (local) 190.13 

for TPEDIT macro 323 

for WRITE macro 62-63 

restrictions on use of WAIT or TWAIT 
macro after nonzero return code 63 
returnreg operand 

of REQBUF macro 43 

of TWAIT macro 65 
RFT (request for test) messages 241 
ridseq operand (DFTRMLST macro) 36 
rln (relative line number) 25 
rln operand 

of LERPRT macro 194 

of READ macro 62 

for IBM 3270 (local) 190.14 

of WRITE macro 62 
RLN operand (ONLTST macro) 240 
RNGETST operand (PARMLIST macro) 180.3 
ROUTE operand 

of ASCTR macro 178 

of TRLIST macro 180 
rules for coding BTAM macros 21-22 
RVI (reverse interrupt) sequence 34 



sample program for IBM 3270 (local) 362.1 

selection, station 16,53 

SELTRAN operand (ASLIST macro) 182.1 

set counter ( see IBM 2715) 

SETADDR operand (TODEVICE macro) 286 

skip bit in terminal list 37 

SKIP operand (CHGNTRY macro) 37 

for IBM 3270 (local) 362.31 
source of message, determining 63,128 
SROENAB operand 

(CTRGROUP macro) 179 
SSALST operand 

of CHGNTRY macro 37 

of DFTRMLST macro 35 
SSAWLST operand 

of CHGNTRY macro 37 

of DFTRMLST macro 35 
standard format 

CLOSE macro 52 

OPEN macro 52 
start-stop Auto Poll operations 125-126 
start-of-text (STX) character 53 
start-stop line, defined 14 
station 

defined 18 

restrictions for connecting to lines in 
same line group 23 

specifying type of 24 
Statistical Data Recorder (SDR) 191 
STEND macro (IBM 2715) 176-177 
storage estimates for 

IBM 3270 190.16-190.18 
STORID operand (CONFIGUR macro) 174.2 
STX (start-of-text) character 53 
SUPPRES operand (DISPGUID macro) 180.7 
switched line 11-13,16 

disabling 54 

enabling 54 

termination 12 

use of ID verification 16,128,142-148 
SWLST form of terminal list 36,37,143-147 
SWLST operand 
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of CHGNTRY macro 37 
of DFTRMLST macro 36 
system generation 283-286,23-25 
for IBM 3270 190.16 



table-generating macros (IBM 2715) 

( see IBM 2715, user tables) 
tablename operand 

of ASMTRTAB macro 45 
of TRNSLATE macro 45-46 
TCn operand (TGROUP macro) 177 
TCU ( see transmission control unit) 
TELCMLIB macro 283 

telecommunications subroutine library 283 
teleprocessing (TP) system, defined 11 
terminal 

defined 11 
lists 

addressing 35-36 

answering 35-36 

calling 35-36 

changing entries in 36-38,190.3 

defining 35-36,190.1 

for expanded ID verification 128 

formats 247-255 

modifying 35-37,190.3 

polling 35-36 

for start-stop Auto Poll 125-126 
restrictions on changing 37 
specifying entries in READ and WRITE 

macros 62 
userdata field in SWLST form 128 
tests ( see online testing) 
terminology used in this publication 18 
test request message formats 233 
text, defined 18 
TEXT operand 

of ONLTST macro 240 
of TRLIST macro 180.8 
TGROUP macro (IBM 2715) 175 
tidseq operand (DFTRMLST macro) 36 
timer exit, restriction on use of 

LOPEN macro within 51 
TPEDIT macro (IBM 50) 319-327 
TP-Op codes 261-262,196 
transaction (IBM 2715) 
code 171,173,176,180 
defined 171 
deletion by 2715 182.2 
in TGROUP macro 177 
control 182.5 
expansion 171,176,177 
formats 182.4-182.7 
group 171 

dummy 17 6 
header 182.5 
identifier 181 
list 171 

defining 180-181 
TRANSCH operand (TRANSLAT macro) 180.7 
Transcode 

appearance in main storage 127 
used by IBM 2780 127 
TRANSL operand (PARMLIST macro) 180.5 
TRANSLAT macro (IBM 2715) 180.7 
translation, code 45-47 
tables 45-47 



assembling 45 
names 46-47 
modifying 45 
modifying for World Trade 
telegraph terminals 289-290 
transmct operand (LERB macro) 193 
transmission 

direction of 18 
errors 14 
transmission code 14,295-309 

for BSC stations 127 
transmission control unit (TCU) 11 
access lines 12 

conditioning line adapters of 49 
malfunctioning line adapters 50 
specifying type of adapter 284 
specifying type of TCU 23,283 
Transmission Control Unit Inoperative 

message 274.1 
transparent mode 55,129-130 

placing DLE STX sequence in output 
area 55-56 
TRANTXT operand (TRANSLAT macro) 180.7 
TRCODE operand (GDUTRANS macro) 180 
TRID operand (TRLIST macro) 181 
TRLIST macro (IBM 2715) 180.7 
TRLIST operand (GDUTRANS macro) 180 
TRANSLATE macro 45-47 

TRSLRCTW macro (World Trade telegraph) 289 
TRSLRCT'3 macro (World Trade teleyraph) 283 
TRSLSCTW macro (World Trade telegraph) 289 
TRSLSCT3 macro (World Trade telegraph) 289 
TWAIT macro 65,63 

restriction on use after nonzero return 
code 63 
TWX, WU 118 



unavailable buffer condition 40,41,191 

return code for READ and WRITE 
macros 63 
UNIT operand 

of IOCONTRL macro 283,24 

of IODEVICE macro 283,24 

of UNITNAME macro 24-25 
UNIT parameter (DD statement) 24 
UNITNAME macro 24-25 
unused buffer condition 40-41 
US (unit separator) character 128,129 
usage count too large return code for 

READ and WRITE macros 62 
USASCII code 

appearance in main storage 127 

BSC stations using 127 
user area, SWLST form of terminal list 128 
user program analysis 55 
user program initialization 49 
user tables ( see IBM 2715, user tables) 
userdata operand (DFTRMLST macro) 146,148 
userlength operand (DFTRMLST 

macro) 146,147 
utility response points (IBM 2760) 97 



V and H coordinates (IBM 2760) 96,97 
VERCHK operand (TPEDIT macro) 320-321 
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WACK sequence 34 

WAIT macro 64-65,63,40 

restriction on use after nonzero 
return code 63 
World Trade telegraph 
terminals 122-124,30 

translation tables 289-290 
wraparound-type polling list 

( see polling, list) 
WRAPLST operand 

of CHGNTRY macro 37 
of DFTRMLST macro 35 
WRITE Connect (TC) macro 152-154 
WRITE macro 57-63 

operation type options 58-60 
summary of options for IBM 3270 

(local) 60 
summary of options for switched 
BSC lines 143 
Write operations 18-19,54-56 
analyzing result of 55 
for IBM 3270 

(local) 190.15-190.16,156.1 
for IBM 3270 (remote) 190.8-190.9 
WTLIST operand (DFTRMLST macro) 36 
WTTALST operand (DFTRMLST macro) 35 
WU 115A 120,192 



X operand (ONLTST macro) 239 

xx operand (DFTRMLST macro) 36,190.2 



Y operand (ONLTST macro) 239 

yy operand (DFTRMLST macro) 36,190.2 
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INDEX OF BTAM AND SYSTEM MACRO INSTRUCTIONS 



This index lists only the main discussions 
of the macro instructions. 



AS 


174.2 


ASCTR 


178 


ASLIST 


181 


ASMTRTAB 


45 


BUILD 


39 


CHGNTRY 


36 


CHGNTRY for 




Local 3270 


190.12 


CLOSE 


51 


CONFIGUR 


174 


CTRGROUP 


179 


CTRLIST 


182.3 


CTRSCHED 


180 


DATAMGT 


283 


DCB 


25 


DCBD 


49 


DEULIST 


182.1 


DFTRMLST 


35 


DISPGUID 


180.7 


GDUAS 


175 


GDULIST 


182.2 


GDUTRANS 


180 


GETPOOL 


39 


IECTDECB 


49 


IOCONTRL 


283 


IODEVICE 


283 


LERB 


19 2 



LERPRT 


194 


LOPEN 


51 


ONLTST 


239 


OPEN 


50 


PARAMNUM 


180 


PARMLIST 


180.1 


READ 


57 


RELBUF 


44 


REQBUF 


43 


RESETPL 


63 


RESETPL for 




Local 3270 


190.13 


STEND 


182.5 


TELCMLIB 


283 


TGROUP 


177 


TPEDIT 


319 


TRANSLAT 


180.7 


TRLIST 


180.7 


TRN SLATE 


45 


TRSLRCTW 


289 


TRSLRCT3 


289 


TRSLSCTW 


289 


TRSLSCT3 


289 


TWAIT 


65 


UNITNAME 


24 


WAIT 


64 


WRITE 


57 
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